persistentstorage/sqlite3api/TEST/TclScript/misc7.test
branchRCL_3
changeset 24 cc28652e0254
parent 23 26645d81f48d
equal deleted inserted replaced
23:26645d81f48d 24:cc28652e0254
     1 # 2006 September 4
     1 # 2006 September 4
     2 #
     2 #
     3 # Portions Copyright (c) 2007-2010 Nokia Corporation and/or its subsidiaries. All rights reserved.
     3 # Portions Copyright (c) 2007-2008 Nokia Corporation and/or its subsidiaries. All rights reserved.
     4 #
     4 #
     5 # The author disclaims copyright to this source code.  In place of
     5 # The author disclaims copyright to this source code.  In place of
     6 # a legal notice, here is a blessing:
     6 # a legal notice, here is a blessing:
     7 #
     7 #
     8 #    May you do good and not evil.
     8 #    May you do good and not evil.
    95 }
    95 }
    96 
    96 
    97 execsql { CREATE TABLE abc(a PRIMARY KEY, b, c); }
    97 execsql { CREATE TABLE abc(a PRIMARY KEY, b, c); }
    98 db close
    98 db close
    99 
    99 
   100 if {$tcl_platform(platform)!="windows" && $tcl_platform(platform)!="symbian"} {
   100 if {$tcl_platform(platform)!="windows"} {
   101   do_fileopen_test misc7-6.1 {
   101   do_fileopen_test misc7-6.1 {
   102     BEGIN;
   102     BEGIN;
   103     INSERT INTO abc VALUES(1, 2, 3);
   103     INSERT INTO abc VALUES(1, 2, 3);
   104     INSERT INTO abc VALUES(2, 3, 4);
   104     INSERT INTO abc VALUES(2, 3, 4);
   105     INSERT INTO abc SELECT a+2, b, c FROM abc;
   105     INSERT INTO abc SELECT a+2, b, c FROM abc;