/ Check-in [a97e8505]
Login
SQLite training in Houston TX on 2019-11-05 (details)
Part of the 2019 Tcl Conference

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

Overview
Comment:Add the "--start=[permutation:][testfile]" option to tester.tcl. For starting quick.test or all.test at the nominated permutation and/or test file.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: a97e8505f229e05bf97ef9edbe063a52b581f339
User & Date: dan 2011-04-04 15:38:16
Original Comment: Add the "--start=[permutation:][testfile]" option to tester.tcl. For starting quick.test or all.test at the nominated permutation and/or test file.
Context
2011-04-04
21:48
Changes for consistent use of SQLITE_OS_UNIX and removal of legacy OS_UNIX from testfixture source; check-in: 78b6eee2 user: shaneh tags: trunk
15:38
Add the "--start=[permutation:][testfile]" option to tester.tcl. For starting quick.test or all.test at the nominated permutation and/or test file. check-in: a97e8505 user: dan tags: trunk
14:03
Have test_syscall.c include "sqliteInt.h". Otherwise the SQLITE_OS_UNIX symbol may not be defined correctly. check-in: fda8fadd user: dan tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to test/tester.tcl.

   150    150     #   --pause
   151    151     #   --soft-heap-limit=NN
   152    152     #   --maxerror=NN
   153    153     #   --malloctrace=N
   154    154     #   --backtrace=N
   155    155     #   --binarylog=N
   156    156     #   --soak=N
          157  +  #   --start=[$permutation:]$testfile
   157    158     #
   158    159     set cmdlinearg(soft-heap-limit)    0
   159    160     set cmdlinearg(maxerror)        1000
   160    161     set cmdlinearg(malloctrace)        0
   161    162     set cmdlinearg(backtrace)         10
   162    163     set cmdlinearg(binarylog)          0
   163    164     set cmdlinearg(soak)               0
          165  +  set cmdlinearg(start)             "" 
   164    166   
   165    167     set leftover [list]
   166    168     foreach a $argv {
   167    169       switch -regexp -- $a {
   168    170         {^-+pause$} {
   169    171           # Wait for user input before continuing. This is to give the user an 
   170    172           # opportunity to connect profiling tools to the process.
................................................................................
   191    193         {^-+binarylog=.+$} {
   192    194           foreach {dummy cmdlinearg(binarylog)} [split $a =] break
   193    195         }
   194    196         {^-+soak=.+$} {
   195    197           foreach {dummy cmdlinearg(soak)} [split $a =] break
   196    198           set ::G(issoak) $cmdlinearg(soak)
   197    199         }
          200  +      {^-+start=.+$} {
          201  +        foreach {dummy cmdlinearg(start)} [split $a =] break
          202  +
          203  +        set ::G(start:file) $cmdlinearg(start)
          204  +        if {[regexp {(.*):(.*)} $cmdlinearg(start) -> s.perm s.file]} {
          205  +          set ::G(start:permutation) ${s.perm}
          206  +          set ::G(start:file)        ${s.file}
          207  +        }
          208  +        if {$::G(start:file) == ""} {unset ::G(start:file)}
          209  +      }
   198    210         default {
   199    211           lappend leftover $a
   200    212         }
   201    213       }
   202    214     }
   203    215     set argv $leftover
   204    216   
................................................................................
  1320   1332   
  1321   1333     # Delete the interpreter used to run the test script.
  1322   1334     interp delete tinterp
  1323   1335   }
  1324   1336   
  1325   1337   proc slave_test_file {zFile} {
  1326   1338     set tail [file tail $zFile]
         1339  +
         1340  +  if {[info exists ::G(start:permutation)]} {
         1341  +    if {[permutation] != $::G(start:permutation)} return
         1342  +    unset ::G(start:permutation)
         1343  +  }
         1344  +  if {[info exists ::G(start:file)]} {
         1345  +    if {$tail != $::G(start:file) && $tail!="$::G(start:file).test"} return
         1346  +    unset ::G(start:file)
         1347  +  }
  1327   1348   
  1328   1349     # Remember the value of the shared-cache setting. So that it is possible
  1329   1350     # to check afterwards that it was not modified by the test script.
  1330   1351     #
  1331   1352     ifcapable shared_cache { set scs [sqlite3_enable_shared_cache] }
  1332   1353   
  1333   1354     # Run the test script in a slave interpreter.