OLD | NEW |
1 puts {# 2008 December 11 | 1 puts {# 2008 December 11 |
2 # | 2 # |
3 # The author disclaims copyright to this source code. In place of | 3 # The author disclaims copyright to this source code. In place of |
4 # a legal notice, here is a blessing: | 4 # a legal notice, here is a blessing: |
5 # | 5 # |
6 # May you do good and not evil. | 6 # May you do good and not evil. |
7 # May you find forgiveness for yourself and forgive others. | 7 # May you find forgiveness for yourself and forgive others. |
8 # May you share freely, never taking more than you give. | 8 # May you share freely, never taking more than you give. |
9 # | 9 # |
10 #*********************************************************************** | 10 #*********************************************************************** |
11 # This file implements regression tests for SQLite library. | 11 # This file implements regression tests for SQLite library. |
12 # | 12 # |
13 # This file is automatically generated from a separate TCL script. | 13 # This file is automatically generated from a separate TCL script. |
14 # This file seeks to exercise integer boundary values. | 14 # This file seeks to exercise integer boundary values. |
15 # | 15 # |
16 # $Id: boundary4.tcl,v 1.3 2009/01/02 15:45:48 shane Exp $ | 16 # $Id: boundary4.tcl,v 1.3 2009/01/02 15:45:48 shane Exp $ |
17 | 17 |
18 set testdir [file dirname $argv0] | 18 set testdir [file dirname $argv0] |
19 source $testdir/tester.tcl | 19 source $testdir/tester.tcl |
20 | 20 |
21 # Many of the boundary tests depend on a working 64-bit implementation. | 21 # Many of the boundary tests depend on a working 64-bit implementation. |
22 if {![working_64bit_int]} { finish_test; return } | 22 if {![working_64bit_int]} { finish_test; return } |
| 23 ifcapable !altertable { finish_test; return } |
23 } | 24 } |
24 | 25 |
25 expr srand(0) | 26 expr srand(0) |
26 | 27 |
27 # Generate interesting boundary numbers | 28 # Generate interesting boundary numbers |
28 # | 29 # |
29 foreach x { | 30 foreach x { |
30 0x7f | 31 0x7f |
31 0x7fff | 32 0x7fff |
32 0x7fffff | 33 0x7fffff |
(...skipping 297 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
330 | 331 |
331 set ans {} | 332 set ans {} |
332 foreach x [reverse [sort $all_x]] { | 333 foreach x [reverse [sort $all_x]] { |
333 set r $t1xr($x) | 334 set r $t1xr($x) |
334 lappend ans $r $t1ra($r) $x | 335 lappend ans $r $t1ra($r) $x |
335 } | 336 } |
336 maketest 4.13 {SELECT a, rowid, z FROM t1 ORDER BY +z DESC} $ans | 337 maketest 4.13 {SELECT a, rowid, z FROM t1 ORDER BY +z DESC} $ans |
337 maketest 4.14 {SELECT a, rowid, z FROM t1 ORDER BY z DESC} $ans | 338 maketest 4.14 {SELECT a, rowid, z FROM t1 ORDER BY z DESC} $ans |
338 | 339 |
339 puts {finish_test} | 340 puts {finish_test} |
OLD | NEW |