/ Check-in [afaaa276]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fix an obsolete comment in the releasetest.tcl source code.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: afaaa276b256f56adf63cb568e486cb3315c3ec2
User & Date: drh 2016-09-09 13:17:26
Context
2016-09-09
13:23
In releasetest.tcl, the --srcdir option is automatic, so no need to mention it in the --help output. check-in: 2bdd838e user: drh tags: trunk
13:17
Fix an obsolete comment in the releasetest.tcl source code. check-in: afaaa276 user: drh tags: trunk
12:29
In releasetest.tcl: Improved testing for uncommitted changes. If uncommitted changes are seen, exit immediately unless the --force option is used. check-in: 9a14e6c4 user: drh tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to test/releasetest.tcl.

   929    929        1 {PUTSNNL " --quick"}
   930    930        2 {PUTSNNL " --veryquick"}
   931    931     }
   932    932     if {$::JOBS>1} {PUTSNNL " --jobs $::JOBS"}
   933    933     PUTS ""
   934    934   }
   935    935   
   936         -# Check to see if there are changes in the checkout.  If there are
   937         -# prompt the user to see if he wants to continue.
          936  +# Check to see if there are uncommitted changes in the SQLite source
          937  +# checkout.  Exit if there are.  Except:  Do nothing if the --force
          938  +# flag is used.  Also, ignore this test if the fossil binary is
          939  +# unavailable, or if the source tree is not a valid fossil checkout.
   938    940   #
   939    941   proc check_uncommitted {} {
   940    942     if {$::FORCE} return
   941    943     set pwd [pwd]
   942    944     cd $::SRCDIR
   943    945     if {[catch {exec fossil changes} res]==0 && [string trim $res]!=""} {
   944    946       puts "ERROR: The check-out contains uncommitted changes:"