| 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 |