gitlab.com/CoiaPrant/sqlite3@v1.19.1/testdata/tcl/tkt3201.test (about)

     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