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 255 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
266 close $fd | 266 close $fd |
267 runtest {A big DELETE followed by many small INSERTs} | 267 runtest {A big DELETE followed by many small INSERTs} |
268 | 268 |
269 | 269 |
270 | 270 |
271 set fd [open test$cnt.sql w] | 271 set fd [open test$cnt.sql w] |
272 puts $fd {DROP TABLE t1;} | 272 puts $fd {DROP TABLE t1;} |
273 puts $fd {DROP TABLE t2;} | 273 puts $fd {DROP TABLE t2;} |
274 close $fd | 274 close $fd |
275 runtest {DROP TABLE} | 275 runtest {DROP TABLE} |
OLD | NEW |