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: |
30e917fff05b02ce2cb1f1c871d63820 |
| 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
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 {}
|