test/vtabF.test

   1 # 2011 Aug 1
   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 # This file checks to make sure IS NOT NULL constraints work on
  13 # virtual tables.
  14 #
  15
  16 set testdir [file dirname $argv0]
  17 source $testdir/tester.tcl
  18
  19 ifcapable !vtab||!schema_pragmas { finish_test ; return }
  20
  21 # Register the echo module
  22 register_echo_module [sqlite3_connection_pointer db]
  23
  24 do_test vtabF-1.1 {
  25   execsql {
  26     CREATE TABLE t1(a, b);
  27     CREATE INDEX i1 ON t1(a);
  28     CREATE INDEX i2 ON t1(b);
  29     INSERT INTO t1 VALUES(10,110);
  30     INSERT INTO t1 VALUES(11,111);
  31     INSERT INTO t1 SELECT a+2, b+2 FROM t1;
  32     INSERT INTO t1 SELECT null, b+4 FROM t1;
  33     INSERT INTO t1 SELECT null, b+8 FROM t1;
  34     INSERT INTO t1 SELECT null, b+16 FROM t1;
  35     ANALYZE;
  36     CREATE VIRTUAL TABLE tv1 USING echo(t1);
  37     SELECT b FROM t1 WHERE a IS NOT NULL;
  38   }
  39 } {110 111 112 113}
  40 do_test vtabF-1.2 {
  41   execsql {SELECT b FROM tv1 WHERE a IS NOT NULL}
  42 } {110 111 112 113}
  43
  44
  45 finish_test