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