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 |