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