| OLD | NEW |
| 1 #!/usr/bin/tclsh | 1 #!/usr/bin/tclsh |
| 2 # | 2 # |
| 3 # Run this script using TCLSH to do a speed comparison between | 3 # Run this script using TCLSH to do a speed comparison between |
| 4 # various versions of SQLite and PostgreSQL and MySQL | 4 # various versions of SQLite and PostgreSQL and MySQL |
| 5 # | 5 # |
| 6 | 6 |
| 7 # Run a test | 7 # Run a test |
| 8 # | 8 # |
| 9 set cnt 1 | 9 set cnt 1 |
| 10 proc runtest {title} { | 10 proc runtest {title} { |
| (...skipping 187 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
| 198 set fd [open test$cnt.sql w] | 198 set fd [open test$cnt.sql w] |
| 199 puts $fd "DELETE FROM t1;" | 199 puts $fd "DELETE FROM t1;" |
| 200 close $fd | 200 close $fd |
| 201 runtest {DELETE everything} | 201 runtest {DELETE everything} |
| 202 | 202 |
| 203 | 203 |
| 204 set fd [open test$cnt.sql w] | 204 set fd [open test$cnt.sql w] |
| 205 puts $fd {DROP TABLE t1;} | 205 puts $fd {DROP TABLE t1;} |
| 206 close $fd | 206 close $fd |
| 207 runtest {DROP TABLE} | 207 runtest {DROP TABLE} |
| OLD | NEW |