Return to tkt3201.test CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / test

Annotation of embedaddon/sqlite3/test/tkt3201.test, revision 1.1.1.1

1.1       misho       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