OLD | NEW |
1 # | 1 # |
2 # 2007 May 10 | 2 # 2007 May 10 |
3 # | 3 # |
4 # The author disclaims copyright to this source code. In place of | 4 # The author disclaims copyright to this source code. In place of |
5 # a legal notice, here is a blessing: | 5 # a legal notice, here is a blessing: |
6 # | 6 # |
7 # May you do good and not evil. | 7 # May you do good and not evil. |
8 # May you find forgiveness for yourself and forgive others. | 8 # May you find forgiveness for yourself and forgive others. |
9 # May you share freely, never taking more than you give. | 9 # May you share freely, never taking more than you give. |
10 # | 10 # |
(...skipping 29 matching lines...) Expand all Loading... |
40 # -sqlprep | 40 # -sqlprep |
41 # -repeats | 41 # -repeats |
42 # | 42 # |
43 proc do_fuzzy_malloc_test {testname args} { | 43 proc do_fuzzy_malloc_test {testname args} { |
44 set ::fuzzyopts(-repeats) $::REPEATS | 44 set ::fuzzyopts(-repeats) $::REPEATS |
45 set ::fuzzyopts(-sqlprep) {} | 45 set ::fuzzyopts(-sqlprep) {} |
46 array set ::fuzzyopts $args | 46 array set ::fuzzyopts $args |
47 | 47 |
48 sqlite3_memdebug_fail -1 | 48 sqlite3_memdebug_fail -1 |
49 db close | 49 db close |
50 file delete test.db test.db-journal | 50 delete_file test.db test.db-journal |
51 sqlite3 db test.db | 51 sqlite3 db test.db |
52 set ::prep $::fuzzyopts(-sqlprep) | 52 set ::prep $::fuzzyopts(-sqlprep) |
53 execsql $::prep | 53 execsql $::prep |
54 set jj 0 | 54 set jj 0 |
55 for {set ii 0} {$ii < $::fuzzyopts(-repeats)} {incr ii} { | 55 for {set ii 0} {$ii < $::fuzzyopts(-repeats)} {incr ii} { |
56 expr srand($jj) | 56 expr srand($jj) |
57 incr jj | 57 incr jj |
58 set ::sql [subst $::fuzzyopts(-template)] | 58 set ::sql [subst $::fuzzyopts(-template)] |
59 # puts fuzyy-sql=\[$::sql\]; flush stdout | 59 # puts fuzyy-sql=\[$::sql\]; flush stdout |
60 foreach {rc res} [catchsql "$::sql"] {} | 60 foreach {rc res} [catchsql "$::sql"] {} |
(...skipping 24 matching lines...) Expand all Loading... |
85 COMMIT; | 85 COMMIT; |
86 } | 86 } |
87 set ::TableList [list abc def ghi] | 87 set ::TableList [list abc def ghi] |
88 set ::ColumnList [list a b c] | 88 set ::ColumnList [list a b c] |
89 | 89 |
90 do_fuzzy_malloc_test fuzzy_malloc-3 \ | 90 do_fuzzy_malloc_test fuzzy_malloc-3 \ |
91 -template {[Select]} \ | 91 -template {[Select]} \ |
92 -sqlprep $::SQLPREP | 92 -sqlprep $::SQLPREP |
93 | 93 |
94 finish_test | 94 finish_test |
OLD | NEW |