OLD | NEW |
1 | 1 |
2 set rcsid {$Id: omittest.tcl,v 1.8 2008/10/13 15:35:09 drh Exp $} | 2 set rcsid {$Id: omittest.tcl,v 1.8 2008/10/13 15:35:09 drh Exp $} |
3 | 3 |
4 # Documentation for this script. This may be output to stderr | 4 # Documentation for this script. This may be output to stderr |
5 # if the script is invoked incorrectly. | 5 # if the script is invoked incorrectly. |
6 set ::USAGE_MESSAGE { | 6 set ::USAGE_MESSAGE { |
7 This Tcl script is used to test the various compile time options | 7 This Tcl script is used to test the various compile time options |
8 available for omitting code (the SQLITE_OMIT_xxx options). It | 8 available for omitting code (the SQLITE_OMIT_xxx options). It |
9 should be invoked as follows: | 9 should be invoked as follows: |
10 | 10 |
(...skipping 279 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
290 # Try the ENABLE/DISABLE symbols one at a time. | 290 # Try the ENABLE/DISABLE symbols one at a time. |
291 # We don't do them all at once since some are conflicting. | 291 # We don't do them all at once since some are conflicting. |
292 foreach sym $::ENABLE_SYMBOLS { | 292 foreach sym $::ENABLE_SYMBOLS { |
293 set dirname "test_[regsub -nocase {^x*SQLITE_} $sym {}]" | 293 set dirname "test_[regsub -nocase {^x*SQLITE_} $sym {}]" |
294 run_quick_test $dirname $sym | 294 run_quick_test $dirname $sym |
295 } | 295 } |
296 } | 296 } |
297 } | 297 } |
298 | 298 |
299 main $argv | 299 main $argv |
OLD | NEW |