modernc.org/cc@v1.0.1/v2/testdata/_sqlite/test/misc8.test (about)

     1  # 2014-11-10
     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  # The focus of this script is testing the "eval.c" loadable extension.
    13  # 
    14  
    15  set testdir [file dirname $argv0]
    16  source $testdir/tester.tcl
    17  
    18  load_static_extension db eval
    19  do_execsql_test misc8-1.0 {
    20    CREATE TABLE t1(a,b,c);
    21    INSERT INTO t1 VALUES(1,2,3),(4,5,6);
    22    SELECT quote(eval('SELECT * FROM t1 ORDER BY a','-abc-'));
    23  } {'1-abc-2-abc-3-abc-4-abc-5-abc-6'}
    24  do_execsql_test misc8-1.1 {
    25    SELECT quote(eval('SELECT * FROM t1 ORDER BY a'));
    26  } {{'1 2 3 4 5 6'}}
    27  do_catchsql_test misc8-1.2 {
    28    SELECT quote(eval('SELECT d FROM t1 ORDER BY a'));
    29  } {1 {no such column: d}}
    30  do_execsql_test misc8-1.3 {
    31    INSERT INTO t1 VALUES(7,null,9);
    32    SELECT eval('SELECT * FROM t1 ORDER BY a',',');
    33  } {1,2,3,4,5,6,7,,9}
    34  do_catchsql_test misc8-1.4 {
    35    BEGIN;
    36    INSERT INTO t1 VALUES(10,11,12);
    37    SELECT a, coalesce(b, eval('ROLLBACK; SELECT ''bam'';')), c
    38     FROM t1 ORDER BY a;
    39  } {0 {1 2 3 4 5 6 7 bam 9}}
    40  do_catchsql_test misc8-1.5 {
    41    INSERT INTO t1 VALUES(10,11,12);
    42    SELECT a, coalesce(b, eval('SELECT ''bam''')), c
    43      FROM t1
    44     ORDER BY rowid;
    45  } {0 {1 2 3 4 5 6 7 bam 9 10 11 12}}
    46  do_catchsql_test misc8-1.6 {
    47    SELECT a, coalesce(b, eval('DELETE FROM t1; SELECT ''bam''')), c
    48      FROM t1
    49     ORDER BY rowid;
    50  } {0 {1 2 3 4 5 6 7 bam {}}}
    51  do_catchsql_test misc8-1.7 {
    52    INSERT INTO t1 VALUES(1,2,3),(4,5,6),(7,null,9);
    53    BEGIN;
    54    CREATE TABLE t2(x);
    55    SELECT a, coalesce(b, eval('ROLLBACK; SELECT ''bam''')), c
    56      FROM t1
    57     ORDER BY rowid;
    58  } {1 {abort due to ROLLBACK}}
    59  
    60  
    61  reset_db
    62  
    63  proc dbeval {sql} { db eval $sql }
    64  db func eval dbeval
    65  
    66  do_execsql_test misc8-2.1 {
    67    CREATE TABLE t1(a INTEGER PRIMARY KEY, b INTEGER) WITHOUT ROWID;
    68    CREATE TABLE t2(c INTEGER PRIMARY KEY, d INTEGER, x BLOB);
    69    INSERT INTO t1 VALUES(0,0);
    70    INSERT INTO t1 VALUES(10,10);
    71    INSERT INTO t2 VALUES(1,1,zeroblob(200));
    72    INSERT INTO t2 VALUES(2,2,zeroblob(200));
    73    INSERT INTO t2 VALUES(3,3,zeroblob(200));
    74    INSERT INTO t2 VALUES(4,4,zeroblob(200));
    75    INSERT INTO t2 VALUES(5,5,zeroblob(200));
    76    INSERT INTO t2 VALUES(6,6,zeroblob(200));
    77    INSERT INTO t2 VALUES(7,7,zeroblob(200));
    78    INSERT INTO t2 VALUES(8,8,zeroblob(200));
    79    INSERT INTO t2 VALUES(9,9,zeroblob(200));
    80    INSERT INTO t2 VALUES(10,10,zeroblob(200));
    81    SELECT a, c, eval(
    82        printf('DELETE FROM t2 WHERE c=%d AND %d>5', a+c, a+c)
    83    ) FROM t1, t2;
    84  } {
    85    0 1 {} 10 1 {} 
    86    0 2 {} 10 2 {} 
    87    0 3 {} 10 3 {} 
    88    0 4 {} 10 4 {} 
    89    0 5 {} 10 5 {} 
    90    0 6 {} 10 {} {} 
    91    0 7 {} 10 {} {} 
    92    0 8 {} 10 {} {}
    93    0 9 {} 10 {} {} 
    94    0 10 {} 10 {} {}
    95  }
    96  
    97  # 2016-02-26: An assertion fault found by the libFuzzer project
    98  #
    99  do_execsql_test misc8-3.0 {
   100    SELECT *
   101      FROM
   102           (
   103             (SELECT 0 AS i) AS x1,
   104             (SELECT 1) AS x2
   105           ) AS x3,
   106           (SELECT 6 AS j UNION ALL SELECT 7) AS x4
   107     WHERE i<rowid
   108     ORDER BY 1;
   109  } {0 1 6 0 1 7}
   110  
   111  # The SQLITE_DBCONFIG_MAINDBNAME interface
   112  #
   113  db close
   114  forcedelete test.db test2.db
   115  sqlite3 db test.db
   116  do_execsql_test misc8-4.0 {
   117    CREATE TABLE t1(a,b,c);
   118    INSERT INTO t1 VALUES(1,2,3);
   119    ATTACH 'test2.db' AS aux2;
   120    CREATE TABLE aux2.t2(c,d,e);
   121    INSERT INTO t2 VALUES(4,5,6);
   122    SELECT * FROM t1, t2;
   123  } {1 2 3 4 5 6}
   124  do_execsql_test misc8-4.1 {
   125    PRAGMA database_list;
   126  } {/0 main .* 2 aux2/}
   127  dbconfig_maindbname_icecube db
   128  do_execsql_test misc8-4.2 {
   129    SELECT name FROM icecube.sqlite_master;
   130  } {t1}
   131  do_execsql_test misc8-4.3 {
   132    PRAGMA database_list;
   133  } {/0 icecube .* 2 aux2/}
   134  
   135  
   136  
   137  finish_test