Annotation of embedaddon/sqlite3/test/bitvec.test, revision 1.1
1.1 ! misho 1: # 2008 February 18
! 2: #
! 3: # The author disclaims copyright to this source code. In place of
! 4: # a legal notice, here is a blessing:
! 5: #
! 6: # May you do good and not evil.
! 7: # May you find forgiveness for yourself and forgive others.
! 8: # May you share freely, never taking more than you give.
! 9: #
! 10: #***********************************************************************
! 11: #
! 12: # Unit testing of the Bitvec object.
! 13: #
! 14: # $Id: bitvec.test,v 1.4 2009/04/01 23:49:04 drh Exp $
! 15: #
! 16:
! 17: set testdir [file dirname $argv0]
! 18: source $testdir/tester.tcl
! 19:
! 20: # The built-in test logic must be operational in order for
! 21: # this test to work.
! 22: ifcapable !builtin_test {
! 23: finish_test
! 24: return
! 25: }
! 26:
! 27: # Test that sqlite3BitvecBuiltinTest correctly reports errors
! 28: # that are deliberately introduced.
! 29: #
! 30: do_test bitvec-1.0.1 {
! 31: sqlite3BitvecBuiltinTest 400 {5 1 1 1 0}
! 32: } 1
! 33: do_test bitvec-1.0.2 {
! 34: sqlite3BitvecBuiltinTest 400 {5 1 234 1 0}
! 35: } 234
! 36:
! 37: # Run test cases that set every bit in vectors of various sizes.
! 38: # for larger cases, this should cycle the bit vector representation
! 39: # from hashing into subbitmaps. The subbitmaps should start as
! 40: # hashes then change to either subbitmaps or linear maps, depending
! 41: # on their size.
! 42: #
! 43: do_test bitvec-1.1 {
! 44: sqlite3BitvecBuiltinTest 400 {1 400 1 1 0}
! 45: } 0
! 46: do_test bitvec-1.2 {
! 47: sqlite3BitvecBuiltinTest 4000 {1 4000 1 1 0}
! 48: } 0
! 49: do_test bitvec-1.3 {
! 50: sqlite3BitvecBuiltinTest 40000 {1 40000 1 1 0}
! 51: } 0
! 52: do_test bitvec-1.4 {
! 53: sqlite3BitvecBuiltinTest 400000 {1 400000 1 1 0}
! 54: } 0
! 55:
! 56: # By specifying a larger increments, we spread the load around.
! 57: #
! 58: do_test bitvec-1.5 {
! 59: sqlite3BitvecBuiltinTest 400 {1 400 1 7 0}
! 60: } 0
! 61: do_test bitvec-1.6 {
! 62: sqlite3BitvecBuiltinTest 4000 {1 4000 1 7 0}
! 63: } 0
! 64: do_test bitvec-1.7 {
! 65: sqlite3BitvecBuiltinTest 40000 {1 40000 1 7 0}
! 66: } 0
! 67: do_test bitvec-1.8 {
! 68: sqlite3BitvecBuiltinTest 400000 {1 400000 1 7 0}
! 69: } 0
! 70:
! 71: # First fill up the bitmap with ones, then go through and
! 72: # clear all the bits. This will stress the clearing mechanism.
! 73: #
! 74: do_test bitvec-1.9 {
! 75: sqlite3BitvecBuiltinTest 400 {1 400 1 1 2 400 1 1 0}
! 76: } 0
! 77: do_test bitvec-1.10 {
! 78: sqlite3BitvecBuiltinTest 4000 {1 4000 1 1 2 4000 1 1 0}
! 79: } 0
! 80: do_test bitvec-1.11 {
! 81: sqlite3BitvecBuiltinTest 40000 {1 40000 1 1 2 40000 1 1 0}
! 82: } 0
! 83: do_test bitvec-1.12 {
! 84: sqlite3BitvecBuiltinTest 400000 {1 400000 1 1 2 400000 1 1 0}
! 85: } 0
! 86:
! 87: do_test bitvec-1.13 {
! 88: sqlite3BitvecBuiltinTest 400 {1 400 1 1 2 400 1 7 0}
! 89: } 0
! 90: do_test bitvec-1.15 {
! 91: sqlite3BitvecBuiltinTest 4000 {1 4000 1 1 2 4000 1 7 0}
! 92: } 0
! 93: do_test bitvec-1.16 {
! 94: sqlite3BitvecBuiltinTest 40000 {1 40000 1 1 2 40000 1 77 0}
! 95: } 0
! 96: do_test bitvec-1.17 {
! 97: sqlite3BitvecBuiltinTest 400000 {1 400000 1 1 2 400000 1 777 0}
! 98: } 0
! 99:
! 100: do_test bitvec-1.18 {
! 101: sqlite3BitvecBuiltinTest 400000 {1 5000 100000 1 2 400000 1 37 0}
! 102: } 0
! 103:
! 104: # Attempt to induce hash collisions.
! 105: #
! 106: unset -nocomplain start
! 107: unset -nocomplain incr
! 108: foreach start {1 2 3 4 5 6 7 8} {
! 109: foreach incr {124 125} {
! 110: do_test bitvec-1.20.$start.$incr {
! 111: set prog [list 1 60 $::start $::incr 2 5000 1 1 0]
! 112: sqlite3BitvecBuiltinTest 5000 $prog
! 113: } 0
! 114: }
! 115: }
! 116:
! 117: do_test bitvec-1.30.big_and_slow {
! 118: sqlite3BitvecBuiltinTest 17000000 {1 17000000 1 1 2 17000000 1 1 0}
! 119: } 0
! 120:
! 121:
! 122: # Test setting and clearing a random subset of bits.
! 123: #
! 124: do_test bitvec-2.1 {
! 125: sqlite3BitvecBuiltinTest 4000 {3 2000 4 2000 0}
! 126: } 0
! 127: do_test bitvec-2.2 {
! 128: sqlite3BitvecBuiltinTest 4000 {3 1000 4 1000 3 1000 4 1000 3 1000 4 1000
! 129: 3 1000 4 1000 3 1000 4 1000 3 1000 4 1000 0}
! 130: } 0
! 131: do_test bitvec-2.3 {
! 132: sqlite3BitvecBuiltinTest 400000 {3 10 0}
! 133: } 0
! 134: do_test bitvec-2.4 {
! 135: sqlite3BitvecBuiltinTest 4000 {3 10 2 4000 1 1 0}
! 136: } 0
! 137: do_test bitvec-2.5 {
! 138: sqlite3BitvecBuiltinTest 5000 {3 20 2 5000 1 1 0}
! 139: } 0
! 140: do_test bitvec-2.6 {
! 141: sqlite3BitvecBuiltinTest 50000 {3 60 2 50000 1 1 0}
! 142: } 0
! 143: do_test bitvec-2.7 {
! 144: sqlite3BitvecBuiltinTest 5000 {
! 145: 1 25 121 125
! 146: 1 50 121 125
! 147: 2 25 121 125
! 148: 0
! 149: }
! 150: } 0
! 151:
! 152: # This procedure runs sqlite3BitvecBuiltinTest with argments "n" and
! 153: # "program". But it also causes a malloc error to occur after the
! 154: # "failcnt"-th malloc. The result should be "0" if no malloc failure
! 155: # occurs or "-1" if there is a malloc failure.
! 156: #
! 157: proc bitvec_malloc_test {label failcnt n program} {
! 158: do_test $label [subst {
! 159: sqlite3_memdebug_fail $failcnt
! 160: set x \[sqlite3BitvecBuiltinTest $n [list $program]\]
! 161: set nFail \[sqlite3_memdebug_fail -1\]
! 162: if {\$nFail==0} {
! 163: set ::go 0
! 164: set x -1
! 165: }
! 166: set x
! 167: }] -1
! 168: }
! 169:
! 170: # Make sure malloc failures are handled sanily.
! 171: #
! 172: unset -nocomplain n
! 173: unset -nocomplain go
! 174: set go 1
! 175: save_prng_state
! 176: for {set n 0} {$go} {incr n} {
! 177: restore_prng_state
! 178: bitvec_malloc_test bitvec-3.1.$n $n 5000 {
! 179: 3 60 2 5000 1 1 3 60 2 5000 1 1 3 60 2 5000 1 1 0
! 180: }
! 181: }
! 182: set go 1
! 183: for {set n 0} {$go} {incr n} {
! 184: restore_prng_state
! 185: bitvec_malloc_test bitvec-3.2.$n $n 5000 {
! 186: 3 600 2 5000 1 1 3 600 2 5000 1 1 3 600 2 5000 1 1 0
! 187: }
! 188: }
! 189: set go 1
! 190: for {set n 1} {$go} {incr n} {
! 191: bitvec_malloc_test bitvec-3.3.$n $n 50000 {1 50000 1 1 0}
! 192: }
! 193:
! 194: finish_test
! 195: return
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to bitvec.test CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / test