/ Check-in [30e917ff]
Login

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

Overview
Comment:Issue a warning and prompt the user to continue if the releasetest.tcl script is run in a checkout with uncommitted changes.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 30e917fff05b02ce2cb1f1c871d638200fbe5716
User & Date: drh 2016-09-08 23:12:08
Context
2016-09-09
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
2016-09-08
23:12
Issue a warning and prompt the user to continue if the releasetest.tcl script is run in a checkout with uncommitted changes. check-in: 30e917ff user: drh tags: trunk
2016-09-07
19:54
Add support for row-value comparisons, including IN operators, and row-value updates in the UPDATE statement. check-in: ddb5f055 user: drh tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to test/releasetest.tcl.

921
922
923
924
925
926
927















928
929
930
931
932
933
934
935

936
937
938
939
940
941
942
  switch -- $::QUICK {
     1 {PUTSNNL " --quick"}
     2 {PUTSNNL " --veryquick"}
  }
  if {$::JOBS>1} {PUTSNNL " --jobs $::JOBS"}
  PUTS ""
}
















# Main routine.
#
proc main {argv} {

  # Process any command line options.
  set ::EXTRACONFIG {}
  process_options $argv

  PUTS [string repeat * 79]

  set ::NERR 0
  set ::NTEST 0
  set ::NTESTCASE 0
  set ::NERRCASE 0
  set ::SQLITE_VERSION {}







>
>
>
>
>
>
>
>
>
>
>
>
>
>
>








>







921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
  switch -- $::QUICK {
     1 {PUTSNNL " --quick"}
     2 {PUTSNNL " --veryquick"}
  }
  if {$::JOBS>1} {PUTSNNL " --jobs $::JOBS"}
  PUTS ""
}

# Check to see if there are changes in the checkout.  If there are
# prompt the user to see if he wants to continue.
#
proc check_uncommitted {} {
  if {[catch {exec fossil changes} res]==0 && [string trim $res]!=""} {
    puts "The check-out contains uncommitted changes:"
    puts $res
    puts -nonewline "Run test anyhow (y/N)? "
    flush stdout
    set in [gets stdin]
    if {$in!="y"} exit
  }
}


# Main routine.
#
proc main {argv} {

  # Process any command line options.
  set ::EXTRACONFIG {}
  process_options $argv
  if {!$::DRYRUN} check_uncommitted
  PUTS [string repeat * 79]

  set ::NERR 0
  set ::NTEST 0
  set ::NTESTCASE 0
  set ::NERRCASE 0
  set ::SQLITE_VERSION {}