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 266 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
277 # Try the ENABLE/DISABLE symbols one at a time. | 277 # Try the ENABLE/DISABLE symbols one at a time. |
278 # We don't do them all at once since some are conflicting. | 278 # We don't do them all at once since some are conflicting. |
279 foreach sym $::ENABLE_SYMBOLS { | 279 foreach sym $::ENABLE_SYMBOLS { |
280 set dirname "test_[string range $sym 7 end]" | 280 set dirname "test_[string range $sym 7 end]" |
281 run_quick_test $dirname $sym | 281 run_quick_test $dirname $sym |
282 } | 282 } |
283 } | 283 } |
284 } | 284 } |
285 | 285 |
286 main $argv | 286 main $argv |
OLD | NEW |