OLD | NEW |
(Empty) | |
| 1 # 2010 May 12 |
| 2 # |
| 3 # The author disclaims copyright to this source code. In place of |
| 4 # a legal notice, here is a blessing: |
| 5 # |
| 6 # May you do good and not evil. |
| 7 # May you find forgiveness for yourself and forgive others. |
| 8 # May you share freely, never taking more than you give. |
| 9 # |
| 10 #*********************************************************************** |
| 11 # This file implements regression tests for SQLite library. The |
| 12 # focus of this script testing a bug found in the OP_Variable optimizer |
| 13 # |
| 14 |
| 15 set testdir [file dirname $argv0] |
| 16 source $testdir/tester.tcl |
| 17 |
| 18 do_test bug-20100512-1 { |
| 19 set DB [sqlite3_connection_pointer db] |
| 20 set SQL {SELECT case when 1 then 99 else ? end + ?} |
| 21 set STMT [sqlite3_prepare_v2 $DB $SQL -1 TAIL] |
| 22 set TAIL |
| 23 } {} |
| 24 do_test bug-20100512-2 { |
| 25 sqlite3_bind_parameter_count $STMT |
| 26 } 2 |
| 27 do_test bug-20100512-3 { |
| 28 sqlite3_bind_int $STMT 1 123 |
| 29 sqlite3_bind_int $STMT 2 456 |
| 30 sqlite3_step $STMT |
| 31 sqlite3_column_int $STMT 0 |
| 32 } {555} |
| 33 sqlite3_finalize $STMT |
OLD | NEW |