Annotation of embedaddon/sqlite3/tool/omittest.tcl, revision 1.1
1.1 ! misho 1:
! 2: set rcsid {$Id: omittest.tcl,v 1.8 2008/10/13 15:35:09 drh Exp $}
! 3:
! 4: # Documentation for this script. This may be output to stderr
! 5: # if the script is invoked incorrectly.
! 6: set ::USAGE_MESSAGE {
! 7: This Tcl script is used to test the various compile time options
! 8: available for omitting code (the SQLITE_OMIT_xxx options). It
! 9: should be invoked as follows:
! 10:
! 11: <script> ?test-symbol? ?-makefile PATH-TO-MAKEFILE? ?-skip_run?
! 12:
! 13: The default value for ::MAKEFILE is "../Makefile.linux.gcc".
! 14:
! 15: If -skip_run option is given then only the compile part is attempted.
! 16:
! 17: This script builds the testfixture program and runs the SQLite test suite
! 18: once with each SQLITE_OMIT_ option defined and then once with all options
! 19: defined together. Each run is performed in a seperate directory created
! 20: as a sub-directory of the current directory by the script. The output
! 21: of the build is saved in <sub-directory>/build.log. The output of the
! 22: test-suite is saved in <sub-directory>/test.log.
! 23:
! 24: Almost any SQLite makefile (except those generated by configure - see below)
! 25: should work. The following properties are required:
! 26:
! 27: * The makefile should support the "testfixture" target.
! 28: * The makefile should support the "test" target.
! 29: * The makefile should support the variable "OPTS" as a way to pass
! 30: options from the make command line to lemon and the C compiler.
! 31:
! 32: More precisely, the following two invocations must be supported:
! 33:
! 34: $::MAKEBIN -f $::MAKEFILE testfixture OPTS="-DSQLITE_OMIT_ALTERTABLE=1"
! 35: $::MAKEBIN -f $::MAKEFILE test
! 36:
! 37: Makefiles generated by the sqlite configure program cannot be used as
! 38: they do not respect the OPTS variable.
! 39: }
! 40:
! 41:
! 42: # Build a testfixture executable and run quick.test using it. The first
! 43: # parameter is the name of the directory to create and use to run the
! 44: # test in. The second parameter is a list of OMIT symbols to define
! 45: # when doing so. For example:
! 46: #
! 47: # run_quick_test /tmp/testdir {SQLITE_OMIT_TRIGGER SQLITE_OMIT_VIEW}
! 48: #
! 49: #
! 50: proc run_quick_test {dir omit_symbol_list} {
! 51: # Compile the value of the OPTS Makefile variable.
! 52: set opts ""
! 53: if {$::tcl_platform(platform)=="windows"} {
! 54: append opts "OPTS += -DSQLITE_OS_WIN=1\n"
! 55: set target "testfixture.exe"
! 56: } elseif {$::tcl_platform(platform)=="os2"} {
! 57: append opts "OPTS += -DSQLITE_OS_OS2=1\n"
! 58: } else {
! 59: append opts "OPTS += -DSQLITE_OS_UNIX=1\n"
! 60: }
! 61: foreach sym $omit_symbol_list {
! 62: append opts "OPTS += -D${sym}=1\n"
! 63: }
! 64:
! 65: # Create the directory and do the build. If an error occurs return
! 66: # early without attempting to run the test suite.
! 67: file mkdir $dir
! 68: puts -nonewline "Building $dir..."
! 69: flush stdout
! 70: catch {
! 71: file copy -force ./config.h $dir
! 72: file copy -force ./libtool $dir
! 73: }
! 74: set fd [open $::MAKEFILE]
! 75: set mkfile [read $fd]
! 76: close $fd
! 77: regsub {\ninclude} $mkfile "\n$opts\ninclude" mkfile
! 78: set fd [open $dir/makefile w]
! 79: puts $fd $mkfile
! 80: close $fd
! 81:
! 82: set rc [catch {
! 83: exec $::MAKEBIN -C $dir -f makefile clean $::TARGET >& $dir/build.log
! 84: }]
! 85: if {$rc} {
! 86: puts "No good. See $dir/build.log."
! 87: return
! 88: } else {
! 89: puts "Ok"
! 90: }
! 91:
! 92: # Create an empty file "$dir/sqlite3". This is to trick the makefile out
! 93: # of trying to build the sqlite shell. The sqlite shell won't build
! 94: # with some of the OMIT options (i.e OMIT_COMPLETE).
! 95: set sqlite3_dummy $dir/sqlite3
! 96: if {$::tcl_platform(platform)=="windows" || $::tcl_platform(platform)=="os2"} {
! 97: append sqlite3_dummy ".exe"
! 98: }
! 99: if {![file exists $sqlite3_dummy]} {
! 100: set wr [open $sqlite3_dummy w]
! 101: puts $wr "dummy"
! 102: close $wr
! 103: }
! 104:
! 105: if {$::SKIP_RUN} {
! 106: puts "Skip testing $dir."
! 107: } else {
! 108: # Run the test suite.
! 109: puts -nonewline "Testing $dir..."
! 110: flush stdout
! 111: set rc [catch {
! 112: exec $::MAKEBIN -C $dir -f makefile test >& $dir/test.log
! 113: }]
! 114: if {$rc} {
! 115: puts "No good. See $dir/test.log."
! 116: } else {
! 117: puts "Ok"
! 118: }
! 119: }
! 120: }
! 121:
! 122:
! 123: # This proc processes the command line options passed to this script.
! 124: # Currently the only option supported is "-makefile", default
! 125: # "../Makefile.linux-gcc". Set the ::MAKEFILE variable to the value of this
! 126: # option.
! 127: #
! 128: proc process_options {argv} {
! 129: set ::MAKEBIN make ;# Default value
! 130: if {$::tcl_platform(platform)=="windows" || $::tcl_platform(platform)=="os2"} {
! 131: set ::MAKEFILE ./Makefile ;# Default value on Windows and OS2
! 132: } else {
! 133: set ::MAKEFILE ./Makefile.linux-gcc ;# Default value
! 134: }
! 135: set ::SKIP_RUN 0 ;# Default to attempt test
! 136: set ::TARGET testfixture ;# Default thing to build
! 137:
! 138: for {set i 0} {$i < [llength $argv]} {incr i} {
! 139: switch -- [lindex $argv $i] {
! 140: -makefile {
! 141: incr i
! 142: set ::MAKEFILE [lindex $argv $i]
! 143: }
! 144:
! 145: -nmake {
! 146: set ::MAKEBIN nmake
! 147: set ::MAKEFILE ./Makefile.msc
! 148: }
! 149:
! 150: -target {
! 151: incr i
! 152: set ::TARGET [lindex $argv $i]
! 153: }
! 154:
! 155: -skip_run {
! 156: set ::SKIP_RUN 1
! 157: }
! 158:
! 159: default {
! 160: if {[info exists ::SYMBOL]} {
! 161: puts stderr [string trim $::USAGE_MESSAGE]
! 162: exit -1
! 163: }
! 164: set ::SYMBOL [lindex $argv $i]
! 165: }
! 166: }
! 167: set ::MAKEFILE [file normalize $::MAKEFILE]
! 168: }
! 169: }
! 170:
! 171: # Main routine.
! 172: #
! 173:
! 174: proc main {argv} {
! 175: # List of SQLITE_OMIT_XXX symbols supported by SQLite.
! 176: set ::OMIT_SYMBOLS [list \
! 177: SQLITE_OMIT_ALTERTABLE \
! 178: SQLITE_OMIT_ANALYZE \
! 179: SQLITE_OMIT_ATTACH \
! 180: SQLITE_OMIT_AUTHORIZATION \
! 181: SQLITE_OMIT_AUTOINCREMENT \
! 182: SQLITE_OMIT_AUTOINIT \
! 183: SQLITE_OMIT_AUTOMATIC_INDEX \
! 184: SQLITE_OMIT_AUTORESET \
! 185: SQLITE_OMIT_AUTOVACUUM \
! 186: SQLITE_OMIT_BETWEEN_OPTIMIZATION \
! 187: SQLITE_OMIT_BLOB_LITERAL \
! 188: SQLITE_OMIT_BTREECOUNT \
! 189: SQLITE_OMIT_BUILTIN_TEST \
! 190: SQLITE_OMIT_CAST \
! 191: SQLITE_OMIT_CHECK \
! 192: SQLITE_OMIT_COMPILEOPTION_DIAGS \
! 193: SQLITE_OMIT_COMPLETE \
! 194: SQLITE_OMIT_COMPOUND_SELECT \
! 195: SQLITE_OMIT_DATETIME_FUNCS \
! 196: SQLITE_OMIT_DECLTYPE \
! 197: SQLITE_OMIT_DEPRECATED \
! 198: SQLITE_OMIT_EXPLAIN \
! 199: SQLITE_OMIT_FLAG_PRAGMAS \
! 200: SQLITE_OMIT_FLOATING_POINT \
! 201: SQLITE_OMIT_FOREIGN_KEY \
! 202: SQLITE_OMIT_GET_TABLE \
! 203: SQLITE_OMIT_INCRBLOB \
! 204: SQLITE_OMIT_INTEGRITY_CHECK \
! 205: SQLITE_OMIT_LIKE_OPTIMIZATION \
! 206: SQLITE_OMIT_LOAD_EXTENSION \
! 207: SQLITE_OMIT_LOCALTIME \
! 208: SQLITE_OMIT_LOOKASIDE \
! 209: SQLITE_OMIT_MEMORYDB \
! 210: SQLITE_OMIT_OR_OPTIMIZATION \
! 211: SQLITE_OMIT_PAGER_PRAGMAS \
! 212: SQLITE_OMIT_PRAGMA \
! 213: SQLITE_OMIT_PROGRESS_CALLBACK \
! 214: SQLITE_OMIT_QUICKBALANCE \
! 215: SQLITE_OMIT_REINDEX \
! 216: SQLITE_OMIT_SCHEMA_PRAGMAS \
! 217: SQLITE_OMIT_SCHEMA_VERSION_PRAGMAS \
! 218: SQLITE_OMIT_SHARED_CACHE \
! 219: SQLITE_OMIT_SUBQUERY \
! 220: SQLITE_OMIT_TCL_VARIABLE \
! 221: SQLITE_OMIT_TEMPDB \
! 222: SQLITE_OMIT_TRACE \
! 223: SQLITE_OMIT_TRIGGER \
! 224: SQLITE_OMIT_TRUNCATE_OPTIMIZATION \
! 225: SQLITE_OMIT_UNIQUE_ENFORCEMENT \
! 226: SQLITE_OMIT_UTF16 \
! 227: SQLITE_OMIT_VACUUM \
! 228: SQLITE_OMIT_VIEW \
! 229: SQLITE_OMIT_VIRTUALTABLE \
! 230: SQLITE_OMIT_WAL \
! 231: SQLITE_OMIT_WSD \
! 232: SQLITE_OMIT_XFER_OPT \
! 233: ]
! 234:
! 235: set ::ENABLE_SYMBOLS [list \
! 236: SQLITE_DISABLE_DIRSYNC \
! 237: SQLITE_DISABLE_LFS \
! 238: SQLITE_ENABLE_ATOMIC_WRITE \
! 239: SQLITE_ENABLE_COLUMN_METADATA \
! 240: SQLITE_ENABLE_EXPENSIVE_ASSERT \
! 241: SQLITE_ENABLE_FTS3 \
! 242: SQLITE_ENABLE_FTS3_PARENTHESIS \
! 243: SQLITE_ENABLE_FTS4 \
! 244: SQLITE_ENABLE_IOTRACE \
! 245: SQLITE_ENABLE_LOAD_EXTENSION \
! 246: SQLITE_ENABLE_LOCKING_STYLE \
! 247: SQLITE_ENABLE_MEMORY_MANAGEMENT \
! 248: SQLITE_ENABLE_MEMSYS3 \
! 249: SQLITE_ENABLE_MEMSYS5 \
! 250: SQLITE_ENABLE_OVERSIZE_CELL_CHECK \
! 251: SQLITE_ENABLE_RTREE \
! 252: SQLITE_ENABLE_STAT3 \
! 253: SQLITE_ENABLE_UNLOCK_NOTIFY \
! 254: SQLITE_ENABLE_UPDATE_DELETE_LIMIT \
! 255: ]
! 256:
! 257: # Process any command line options.
! 258: process_options $argv
! 259:
! 260: if {[info exists ::SYMBOL] } {
! 261: set sym $::SYMBOL
! 262:
! 263: if {[lsearch $::OMIT_SYMBOLS $sym]<0 && [lsearch $::ENABLE_SYMBOLS $sym]<0} {
! 264: puts stderr "No such symbol: $sym"
! 265: exit -1
! 266: }
! 267:
! 268: set dirname "test_[regsub -nocase {^x*SQLITE_} $sym {}]"
! 269: run_quick_test $dirname $sym
! 270: } else {
! 271: # First try a test with all OMIT symbols except SQLITE_OMIT_FLOATING_POINT
! 272: # and SQLITE_OMIT_PRAGMA defined. The former doesn't work (causes segfaults)
! 273: # and the latter is currently incompatible with the test suite (this should
! 274: # be fixed, but it will be a lot of work).
! 275: set allsyms [list]
! 276: foreach s $::OMIT_SYMBOLS {
! 277: if {$s!="SQLITE_OMIT_FLOATING_POINT" && $s!="SQLITE_OMIT_PRAGMA"} {
! 278: lappend allsyms $s
! 279: }
! 280: }
! 281: run_quick_test test_OMIT_EVERYTHING $allsyms
! 282:
! 283: # Now try one quick.test with each of the OMIT symbols defined. Included
! 284: # are the OMIT_FLOATING_POINT and OMIT_PRAGMA symbols, even though we
! 285: # know they will fail. It's good to be reminded of this from time to time.
! 286: foreach sym $::OMIT_SYMBOLS {
! 287: set dirname "test_[regsub -nocase {^x*SQLITE_} $sym {}]"
! 288: run_quick_test $dirname $sym
! 289: }
! 290:
! 291: # Try the ENABLE/DISABLE symbols one at a time.
! 292: # We don't do them all at once since some are conflicting.
! 293: foreach sym $::ENABLE_SYMBOLS {
! 294: set dirname "test_[regsub -nocase {^x*SQLITE_} $sym {}]"
! 295: run_quick_test $dirname $sym
! 296: }
! 297: }
! 298: }
! 299:
! 300: main $argv
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to omittest.tcl CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / tool