persistentstorage/sqlite3api/TEST/TclScript/tkt2450.test
changeset 0 08ec8eefde2f
equal deleted inserted replaced
-1:000000000000 0:08ec8eefde2f
       
     1 # 2007 June 24
       
     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 #
       
    12 # This file is to test that ticket #2450 has been fixed.
       
    13 #
       
    14 # $Id: tkt2450.test,v 1.1 2007/06/24 06:32:18 danielk1977 Exp $
       
    15 #
       
    16 
       
    17 set testdir [file dirname $argv0]
       
    18 source $testdir/tester.tcl
       
    19 
       
    20 do_test tkt2450-1 {
       
    21   execsql {
       
    22     CREATE TABLE "t a" ("""cb""");
       
    23     INSERT INTO "t a" ("""cb""") VALUES (1);
       
    24     SELECT """cb""" FROM "t a";
       
    25   }
       
    26 } {1}
       
    27 
       
    28 do_test tkt2450-2 {
       
    29   execsql {
       
    30     SELECT * FROM "t a";
       
    31   }
       
    32 } {1}
       
    33 
       
    34 do_test tkt2450-3 {
       
    35   execsql {
       
    36     SELECT "t a".* FROM "t a";
       
    37   }
       
    38 } {1}
       
    39 
       
    40 do_test tkt2450-3 {
       
    41   execsql {
       
    42     CREATE TABLE t1(a);
       
    43     INSERT INTO t1 VALUES(2);
       
    44     SELECT * FROM "t a", t1;
       
    45   }
       
    46 } {1 2}
       
    47 
       
    48 finish_test