1 # 2007 July 24

     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.  The focus

    12 # of this script is testing the FTS1 module for errors in the handling

    13 # of SQLITE_SCHEMA.

    14 #

    15 # $Id: fts1n.test,v 1.1 2007/07/25 00:38:06 shess Exp $

    16 #

    17 

    18 set testdir [file dirname $argv0]

    19 source $testdir/tester.tcl

    20 

    21 # If SQLITE_ENABLE_FTS1 is not defined, omit this file.

    22 ifcapable !fts1 {

    23   finish_test

    24   return

    25 }

    26 

    27 do_test fts1m-1.1 {

    28   execsql {

    29     CREATE VIRTUAL TABLE t1 USING fts1(a, b, c);

    30     INSERT INTO t1(a, b, c) VALUES('one three four', 'one four', 'one two');

    31     SELECT a, b, c FROM t1 WHERE c MATCH 'two';

    32   }

    33 } {{one three four} {one four} {one two}}

    34 

    35 # This test was crashing at one point.

    36 #

    37 do_test fts1m-1.2 {

    38   execsql {

    39     SELECT a, b, c FROM t1 WHERE c MATCH 'two';

    40     CREATE TABLE t3(a, b, c);

    41     SELECT a, b, c FROM t1 WHERE  c  MATCH 'two';

    42   }

    43 } {{one three four} {one four} {one two} {one three four} {one four} {one two}}

    44 

    45 finish_test