test/alias.test

   1 # 2008 August 28
   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 #
  12 # This file implements regression tests for SQLite library.  The
  13 # focus of this script is correct code generation of aliased result-set
  14 # values.  See ticket #3343.
  15 #
  16 # $Id: alias.test,v 1.3 2009/04/23 13:22:44 drh Exp $
  17 #
  18 set testdir [file dirname $argv0]
  19 source $testdir/tester.tcl
  20
  21 # Aliases are currently evaluated twice.  We might try to change this
  22 # in the future.  But not now.
  23 return
  24
  25 # A procedure to return a sequence of increasing integers.
  26 #
  27 namespace eval ::seq {
  28   variable counter 0
  29   proc value {args} {
  30     variable counter
  31     incr counter
  32     return $counter
  33   }
  34   proc reset {} {
  35     variable counter
  36     set counter 0
  37   }
  38 }
  39
  40
  41 do_test alias-1.1 {
  42   db function sequence ::seq::value
  43   db eval {
  44     CREATE TABLE t1(x);
  45     INSERT INTO t1 VALUES(9);
  46     INSERT INTO t1 VALUES(8);
  47     INSERT INTO t1 VALUES(7);
  48     SELECT x, sequence() FROM t1;
  49   }
  50 } {9 1 8 2 7 3}
  51 do_test alias-1.2 {
  52   ::seq::reset
  53   db eval {
  54     SELECT x, sequence() AS y FROM t1 WHERE y>0
  55   }
  56 } {9 1 8 2 7 3}
  57 do_test alias-1.3 {
  58   ::seq::reset
  59   db eval {
  60     SELECT x, sequence() AS y FROM t1 WHERE y>0 AND y<99
  61   }
  62 } {9 1 8 2 7 3}
  63 do_test alias-1.4 {
  64   ::seq::reset
  65   db eval {
  66     SELECT x, sequence() AS y FROM t1 WHERE y>0 AND y<99 AND y!=55
  67   }
  68 } {9 1 8 2 7 3}
  69 do_test alias-1.5 {
  70   ::seq::reset
  71   db eval {
  72     SELECT x, sequence() AS y FROM t1
  73      WHERE y>0 AND y<99 AND y!=55 AND y NOT IN (56,57,58)
  74        AND y NOT LIKE 'abc%' AND y%10==2
  75   }
  76 } {8 2}
  77 do_test alias-1.6 {
  78   ::seq::reset
  79   db eval {
  80     SELECT x, sequence() AS y FROM t1 WHERE y BETWEEN 0 AND 99
  81   }
  82 } {9 1 8 2 7 3}
  83 #do_test alias-1.7 {
  84 #  ::seq::reset
  85 #  db eval {
  86 #    SELECT x, sequence() AS y FROM t1 WHERE y IN (55,66,3)
  87 #  }
  88 #} {7 3}
  89 do_test alias-1.8 {
  90   ::seq::reset
  91   db eval {
  92     SELECT x, 1-sequence() AS y FROM t1 ORDER BY y
  93   }
  94 } {7 -2 8 -1 9 0}
  95 do_test alias-1.9 {
  96   ::seq::reset
  97   db eval {
  98     SELECT x, sequence() AS y FROM t1 ORDER BY -y
  99   }
 100 } {7 3 8 2 9 1}
 101 do_test alias-1.10 {
 102   ::seq::reset
 103   db eval {
 104     SELECT x, sequence() AS y FROM t1 ORDER BY x%2, y
 105   }
 106 } {8 2 9 1 7 3}
 107
 108 unset -nocomplain random_int_list
 109 set random_int_list [db eval {
 110    SELECT random()&2147483647 AS r FROM t1, t1, t1, t1 ORDER BY r
 111 }]
 112 do_test alias-1.11 {
 113   lsort -integer $::random_int_list
 114 } $random_int_list
 115
 116
 117 do_test alias-2.1 {
 118   db eval {
 119     SELECT 4 UNION SELECT 1 ORDER BY 1
 120   }
 121 } {1 4}
 122 do_test alias-2.2 {
 123   db eval {
 124     SELECT 4 UNION SELECT 1 UNION SELECT 9 ORDER BY 1
 125   }
 126 } {1 4 9}
 127
 128 if 0 {
 129   # Aliases in the GROUP BY clause cause the expression to be evaluated
 130   # twice in the current implementation.  This might change in the future.
 131   #
 132   do_test alias-3.1 {
 133     ::seq::reset
 134     db eval {
 135       SELECT sequence(*) AS y, count(*) AS z FROM t1 GROUP BY y ORDER BY z, y
 136     }
 137   } {1 1 2 1 3 1}
 138 }
 139
 140 finish_test