third_party/sqlite/src/test/tkt3201.test

   1 # 2008 July 4
   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 # Specifically, it tests that bug #3201 has been fixed.
  13 #
  14 # $Id: tkt3201.test,v 1.3 2008/07/12 14:52:21 drh Exp $
  15
  16 set testdir [file dirname $argv0]
  17 source $testdir/tester.tcl
  18
  19 do_test tkt3201-1 {
  20   execsql {
  21     CREATE TABLE t1(a INTEGER PRIMARY KEY, b TEXT);
  22     INSERT INTO t1 VALUES(1, 'one');
  23     INSERT INTO t1 VALUES(2, 'two');
  24   }
  25 } {}
  26
  27 do_test tkt3201-2 {
  28   execsql {
  29     SELECT l.a, r.a FROM t1 AS l, t1 AS r WHERE l.a < r.a;
  30   }
  31 } {1 2}
  32
  33 do_test tkt3201-3 {
  34   execsql {
  35     CREATE TABLE t2(a INTEGER PRIMARY KEY, b TEXT);
  36     INSERT INTO t2 VALUES(2, 'two');
  37   }
  38   execsql {
  39     SELECT l.a, r.a FROM t1 AS l, t2 AS r WHERE l.a < r.a;
  40   }
  41 } {1 2}
  42
  43 do_test tkt3201-4 {
  44   execsql {
  45     DELETE FROM t1 WHERE a = 2;
  46   }
  47   execsql {
  48     SELECT l.a, r.a FROM t1 AS l, t2 AS r WHERE l.a < r.a;
  49   }
  50 } {1 2}
  51
  52 do_test tkt3201-5 {
  53   execsql {
  54     DELETE FROM t1 WHERE a = 2;
  55   }
  56   execsql {
  57     SELECT t1.a, t1.b, t2.a, t2.b FROM t1, t2;
  58   }
  59 } {1 one 2 two}
  60
  61 do_test tkt3201-6 {
  62   execsql {
  63     CREATE TABLE t3(c INTEGER PRIMARY KEY, d TEXT);
  64     INSERT INTO t3 VALUES(2, 'two');
  65   }
  66   execsql { SELECT a, b, c, d FROM t1, t3 }
  67 } {1 one 2 two}
  68
  69 do_test tkt3201-7 {
  70   execsql { SELECT a, b, c, d FROM t1, t3 WHERE a < c }
  71 } {1 one 2 two}
  72
  73 # Ticket [efc02f977919]
  74 #
  75 ifcapable trigger {
  76   do_test tkt3201-4.0 {
  77     db eval {
  78      CREATE TABLE t4(x);
  79      CREATE TABLE t4_log(x);
  80      CREATE TRIGGER r4_1 AFTER INSERT ON t4 WHEN new.x=1 BEGIN
  81        INSERT INTO t4_log(x) VALUES(new.x);
  82      END;
  83      CREATE TRIGGER r4_2 AFTER INSERT ON t4 WHEN new.x=2 BEGIN
  84        INSERT INTO t4_log(x) VALUES(new.x);
  85      END;
  86      CREATE TRIGGER r4_3 AFTER INSERT ON t4 WHEN new.x=3 BEGIN
  87        INSERT INTO t4_log(x) VALUES(new.x);
  88      END;
  89      CREATE TRIGGER r4_4 AFTER INSERT ON t4 WHEN new.x=4 BEGIN
  90        INSERT INTO t4_log(x) VALUES(new.x);
  91      END;
  92      INSERT INTO t4 VALUES(1);
  93      INSERT INTO t4 VALUES(2);
  94      INSERT INTO t4 VALUES(3);
  95      INSERT INTO t4 VALUES(4);
  96      SELECT * FROM t4_log;
  97     }
  98   } {1 2 3 4}
  99 }
 100
 101
 102
 103
 104
 105 finish_test