Home | History | Annotate | Download | only in test 
      1 # 2010 April 15
      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.
     12 #
     13 # This file implements tests to verify that ticket [02a8e81d44] has been
     14 # fixed.  
     15 #
     16 
     17 set testdir [file dirname $argv0]
     18 source $testdir/tester.tcl
     19 
     20 do_test tkt-02a838-1.1 {
     21   execsql {
     22     CREATE TABLE t1(a);
     23     INSERT INTO t1 VALUES(1);
     24     INSERT INTO t1 VALUES(2);
     25     INSERT INTO t1 VALUES(4);
     26     INSERT INTO t1 VALUES(5);
     27     SELECT * FROM (SELECT a FROM t1 LIMIT 1) UNION ALL SELECT 3;
     28   }
     29 } {1 3}
     30 
     31 finish_test
     32