github.com/jdgcs/sqlite3@v1.12.1-0.20210908114423-bc5f96e4dd51/testdata/tcl/tkt-4dd95f6943.test (about)

     1  # 2013 March 13
     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  #
    13  
    14  set testdir [file dirname $argv0]
    15  source $testdir/tester.tcl
    16  set ::testprefix tkt-4dd95f6943
    17  
    18  do_execsql_test 1.0 {
    19    CREATE TABLE t1(x);
    20    INSERT INTO t1 VALUES (3), (4), (2), (1), (5), (6);
    21  }
    22  
    23  foreach {tn1 idx} {
    24    1 { CREATE INDEX i1 ON t1(x ASC) }
    25    2 { CREATE INDEX i1 ON t1(x DESC) }
    26  } {
    27    do_execsql_test 1.$tn1.1 { DROP INDEX IF EXISTS i1; }
    28    do_execsql_test 1.$tn1.2 $idx
    29  
    30    do_execsql_test 1.$tn1.3 {
    31      SELECT x FROM t1 WHERE x IN(2, 4, 5) ORDER BY x ASC;
    32    } {2 4 5}
    33  
    34    do_execsql_test 1.$tn1.4 {
    35      SELECT x FROM t1 WHERE x IN(2, 4, 5) ORDER BY x DESC;
    36    } {5 4 2}
    37  }
    38  
    39  
    40  do_execsql_test 2.0 {
    41    CREATE TABLE t2(x, y);
    42    INSERT INTO t2 VALUES (5, 3), (5, 4), (5, 2), (5, 1), (5, 5), (5, 6);
    43    INSERT INTO t2 VALUES (1, 3), (1, 4), (1, 2), (1, 1), (1, 5), (1, 6);
    44    INSERT INTO t2 VALUES (3, 3), (3, 4), (3, 2), (3, 1), (3, 5), (3, 6);
    45    INSERT INTO t2 VALUES (2, 3), (2, 4), (2, 2), (2, 1), (2, 5), (2, 6);
    46    INSERT INTO t2 VALUES (4, 3), (4, 4), (4, 2), (4, 1), (4, 5), (4, 6);
    47    INSERT INTO t2 VALUES (6, 3), (6, 4), (6, 2), (6, 1), (6, 5), (6, 6);
    48  
    49    CREATE TABLE t3(a, b);
    50    INSERT INTO t3 VALUES (2, 2), (4, 4), (5, 5);
    51    CREATE UNIQUE INDEX t3i1 ON t3(a ASC);
    52    CREATE UNIQUE INDEX t3i2 ON t3(b DESC);
    53  }
    54  
    55  foreach {tn1 idx} {
    56    1 { CREATE INDEX i1 ON t2(x ASC,  y ASC) }
    57    2 { CREATE INDEX i1 ON t2(x ASC,  y DESC) }
    58    3 { CREATE INDEX i1 ON t2(x DESC, y ASC) }
    59    4 { CREATE INDEX i1 ON t2(x DESC, y DESC) }
    60  
    61    5 { CREATE INDEX i1 ON t2(y ASC,  x ASC) }
    62    6 { CREATE INDEX i1 ON t2(y ASC,  x DESC) }
    63    7 { CREATE INDEX i1 ON t2(y DESC, x ASC) }
    64    8 { CREATE INDEX i1 ON t2(y DESC, x DESC) }
    65  } {
    66    do_execsql_test 2.$tn1.1 { DROP INDEX IF EXISTS i1; }
    67    do_execsql_test 2.$tn1.2 $idx
    68  
    69    foreach {tn2 inexpr} {
    70      3  "(2, 4, 5)"
    71      4  "(SELECT a FROM t3)"
    72      5  "(SELECT b FROM t3)"
    73    } {
    74      do_execsql_test 2.$tn1.$tn2.1 "
    75        SELECT x, y FROM t2 WHERE x = 1 AND y IN $inexpr ORDER BY x ASC, y ASC;
    76      " {1 2  1 4  1 5}
    77  
    78      do_execsql_test 2.$tn1.$tn2.2 "
    79        SELECT x, y FROM t2 WHERE x = 2 AND y IN $inexpr ORDER BY x ASC, y DESC;
    80      " {2 5  2 4  2 2}
    81  
    82      do_execsql_test 2.$tn1.$tn2.3 "
    83        SELECT x, y FROM t2 WHERE x = 3 AND y IN $inexpr ORDER BY x DESC, y ASC;
    84      " {3 2  3 4  3 5}
    85  
    86      do_execsql_test 2.$tn1.$tn2.4 "
    87        SELECT x, y FROM t2 WHERE x = 4 AND y IN $inexpr ORDER BY x DESC, y DESC;
    88      " {4 5  4 4  4 2}
    89      
    90      do_execsql_test 2.$tn1.$tn2.5 "
    91        SELECT a, x, y FROM t2, t3 WHERE a = 4 AND x = 1 AND y IN $inexpr 
    92        ORDER BY a, x ASC, y ASC;
    93      " {4 1 2  4 1 4  4 1 5}
    94      do_execsql_test 2.$tn1.$tn2.6 "
    95        SELECT a, x, y FROM t2, t3 WHERE a = 2 AND x = 1 AND y IN $inexpr 
    96        ORDER BY x ASC, y ASC;
    97      " {2 1 2  2 1 4  2 1 5}
    98  
    99      do_execsql_test 2.$tn1.$tn2.7 "
   100        SELECT a, x, y FROM t2, t3 WHERE a = 4 AND x = 1 AND y IN $inexpr 
   101        ORDER BY a, x ASC, y DESC;
   102      " {4 1 5  4 1 4  4 1 2}
   103      do_execsql_test 2.$tn1.8 "
   104        SELECT a, x, y FROM t2, t3 WHERE a = 2 AND x = 1 AND y IN $inexpr 
   105        ORDER BY x ASC, y DESC;
   106      " {2 1 5  2 1 4  2 1 2}
   107  
   108      do_execsql_test 2.$tn1.$tn2.9 "
   109        SELECT a, x, y FROM t2, t3 WHERE a = 4 AND x = 1 AND y IN $inexpr 
   110        ORDER BY a, x DESC, y ASC;
   111      " {4 1 2  4 1 4  4 1 5}
   112      do_execsql_test 2.$tn1.10 "
   113        SELECT a, x, y FROM t2, t3 WHERE a = 2 AND x = 1 AND y IN $inexpr 
   114        ORDER BY x DESC, y ASC;
   115      " {2 1 2  2 1 4  2 1 5}
   116  
   117      do_execsql_test 2.$tn1.$tn2.11 "
   118        SELECT a, x, y FROM t2, t3 WHERE a = 4 AND x = 1 AND y IN $inexpr 
   119        ORDER BY a, x DESC, y DESC;
   120      " {4 1 5  4 1 4  4 1 2}
   121      do_execsql_test 2.$tn1.$tn2.12 "
   122        SELECT a, x, y FROM t2, t3 WHERE a = 2 AND x = 1 AND y IN $inexpr 
   123        ORDER BY x DESC, y DESC;
   124      " {2 1 5  2 1 4  2 1 2}
   125    }
   126  }
   127  
   128  do_execsql_test 3.0 {
   129    CREATE TABLE t7(x);
   130    INSERT INTO t7 VALUES (1), (2), (3);
   131    CREATE INDEX i7 ON t7(x);
   132  
   133    CREATE TABLE t8(y);
   134    INSERT INTO t8 VALUES (1), (2), (3);
   135  }
   136  
   137  foreach {tn idxdir sortdir sortdata} {
   138    1 ASC  ASC  {1 2 3}
   139    2 ASC  DESC {3 2 1}
   140    3 DESC ASC  {1 2 3}
   141    4 ASC  DESC {3 2 1}
   142  } {
   143  
   144    do_execsql_test 3.$tn "
   145      DROP INDEX IF EXISTS i8;
   146      CREATE UNIQUE INDEX i8 ON t8(y $idxdir);
   147      SELECT x FROM t7 WHERE x IN (SELECT y FROM t8) ORDER BY x $sortdir;
   148    " $sortdata
   149  }
   150  
   151  finish_test