# 2001 September 15

#

# The author disclaims copyright to this source code.  In place of

# a legal notice, here is a blessing:

#

#    May you do good and not evil.

#    May you find forgiveness for yourself and forgive others.

#    May you share freely, never taking more than you give.

#

#***********************************************************************

# This file implements regression tests for SQLite library.  The

# focus of this file is exercising the code in main.c.

#

# $Id: main.test,v 1.29 2008/07/12 14:52:20 drh Exp $

set testdir [file dirname $argv0]

source $testdir/tester.tcl

# Only do the next group of tests if the sqlite3_complete API is available

#

ifcapable {complete} {

# Tests of the sqlite_complete() function.

#

do_test main-1.1 {

  db complete {This is a test}

} {0}

do_test main-1.2 {

  db complete {

  }

} {1}

do_test main-1.3 {

  db complete {

     -- a comment ;

  }

} {1}

do_test main-1.4 {

  db complete {

     -- a comment ;

     ;

  }

} {1}

do_test main-1.5 {

  db complete {DROP TABLE 'xyz;}

} {0}

do_test main-1.6 {

  db complete {DROP TABLE 'xyz';}

} {1}

do_test main-1.7 {

  db complete {DROP TABLE "xyz;}

} {0}

do_test main-1.8 {

  db complete {DROP TABLE "xyz';}

} {0}

do_test main-1.9 {

  db complete {DROP TABLE "xyz";}

} {1}

do_test main-1.10 {

  db complete {DROP TABLE xyz; hi}

} {0}

do_test main-1.11 {

  db complete {DROP TABLE xyz; }

} {1}

do_test main-1.12 {

  db complete {DROP TABLE xyz; -- hi }

} {1}

do_test main-1.13 {

  db complete {DROP TABLE xyz; -- hi

  }

} {1}

do_test main-1.14 {

  db complete {SELECT a-b FROM t1; }

} {1}

do_test main-1.15 {

  db complete {SELECT a/e FROM t1 }

} {0}

do_test main-1.16 {

  db complete {

    CREATE TABLE abc(x,y);

  }

} {1}

ifcapable {trigger} {

  do_test main-1.17 {

    db complete {

      CREATE TRIGGER xyz AFTER DELETE abc BEGIN UPDATE pqr;

    }

  } {0}

  do_test main-1.18 {

    db complete {

      CREATE TRIGGER xyz AFTER DELETE abc BEGIN UPDATE pqr; END;

    }

  } {1}

  do_test main-1.19 {

    db complete {

      CREATE TRIGGER xyz AFTER DELETE abc BEGIN

         UPDATE pqr;

         unknown command;

    }

  } {0}

  do_test main-1.20 {

    db complete {

      CREATE TRIGGER xyz AFTER DELETE backend BEGIN

         UPDATE pqr;

    }

  } {0}

  do_test main-1.21 {

    db complete {

      CREATE TRIGGER xyz AFTER DELETE end BEGIN

         SELECT a, b FROM end;

    }

  } {0}

  do_test main-1.22 {

    db complete {

      CREATE TRIGGER xyz AFTER DELETE end BEGIN

         SELECT a, b FROM end;

      END;

    }

  } {1}

  do_test main-1.23 {

    db complete {

      CREATE TRIGGER xyz AFTER DELETE end BEGIN

         SELECT a, b FROM end;

      END;

      SELECT a, b FROM end;

    }

  } {1}

  do_test main-1.24 {

    db complete {

      CREATE TRIGGER xyz AFTER DELETE [;end;] BEGIN

         UPDATE pqr;

    }

  } {0}

  do_test main-1.25 {

    db complete {

      CREATE TRIGGER xyz AFTER DELETE backend BEGIN

         UPDATE cantor SET a=[;end;];;;

    }

  } {0}

  do_test main-1.26 {

    db complete {

      CREATE -- a comment

      TRIGGER exy AFTER DELETE backend BEGIN

         UPDATE pqr SET a=5;

    }

  } {0}

  do_test main-1.27.1 {

    db complete {

      CREATE -- a comment

      TRIGGERX tangentxx AFTER DELETE backend BEGIN

         UPDATE pqr SET a=5;

    }

  } {1}

  do_test main-1.27.2 {

    db complete {

      CREATE/**/TRIGGER tiger00 AFTER DELETE backend BEGIN

         UPDATE pqr SET a=5;

    }

  } {0}

  ifcapable {explain} {

    do_test main-1.27.3 {

      db complete {

        /* */ EXPLAIN -- A comment

        CREATE/**/TRIGGER ezxyz12 AFTER DELETE backend BEGIN

           UPDATE pqr SET a=5;

      }

    } {0}

  }

  do_test main-1.27.4 {

    db complete {

      BOGUS token

      CREATE  TRIGGER xyz AFTER DELETE backend BEGIN

         UPDATE pqr SET a=5;

    }

  } {1}

  ifcapable {explain} {

    do_test main-1.27.5 {

      db complete {

        EXPLAIN 

        CREATE TEMP TRIGGER xyz AFTER DELETE backend BEGIN

           UPDATE pqr SET a=5;

      }

    } {0}

  }

  do_test main-1.28 {

    db complete {

      CREATE TEMPORARY TRIGGER xyz AFTER DELETE backend BEGIN

         UPDATE pqr SET a=5;

    }

  } {0}

  do_test main-1.29 {

    db complete {

      CREATE TRIGGER xyz AFTER DELETE backend BEGIN

         UPDATE pqr SET a=5;

         EXPLAIN select * from xyz;

    }

  } {0}

} ;# end ifcapable {complete}

}

do_test main-1.30 {

  db complete {

     CREATE TABLE /* In comment ; */

  }

} {0}

do_test main-1.31 {

  db complete {

     CREATE TABLE /* In comment ; */ hi;

  }

} {1}

do_test main-1.31 {

  db complete {

     CREATE TABLE /* In comment ; */;

  }

} {1}

do_test main-1.32 {

  db complete {

     stuff;

     /*

       CREATE TABLE

       multiple lines

       of text

     */

  }

} {1}

do_test main-1.33 {

  db complete {

     /*

       CREATE TABLE

       multiple lines

       of text;

  }

} {0}

do_test main-1.34 {

  db complete {

     /*

       CREATE TABLE

       multiple lines "*/

       of text;

  }

} {1}

do_test main-1.35 {

  db complete {hi /**/ there;}

} {1}

do_test main-1.36 {

  db complete {hi there/***/;}

} {1}

do_test main-1.37 {

  db complete {hi there/**}

} {0}

do_test main-1.38 {

  db complete {hi [there}

} {0}

ifcapable {trigger} {

  # Characters less than \040 can never be part of an identifier.

  # Characters greater than \u177 are always identifier characters.

  do_test main-1.100 {

    db complete "create \037\036\035\034trigger\001\002;"

  } {1}

  do_test main-1.101 {

    db complete "create trigger\200;"

  } {1}

  do_test main-1.102 {

    db complete "create \200trigger;"

  } {1}

}

# Try to open a database with a corrupt database file.

#

do_test main-2.0 {

  catch {db close}

  file delete -force test.db

  set fd [open test.db w]

  puts $fd hi!

  close $fd

  set v [catch {sqlite3 db test.db} msg]

  if {$v} {lappend v $msg} {lappend v {}}

} {0 {}}

# Here are some tests for tokenize.c.  

#

do_test main-3.1 {

  catch {db close}

  foreach f [glob -nocomplain testdb/*] {file delete -force $f}

  file delete -force testdb

  sqlite3 db testdb

  set v [catch {execsql {SELECT * from T1 where x!!5}} msg]

  lappend v $msg

} {1 {unrecognized token: "!!"}}

do_test main-3.2 {

  catch {db close}

  foreach f [glob -nocomplain testdb/*] {file delete -force $f}

  file delete -force testdb

  sqlite3 db testdb

  set v [catch {execsql {SELECT * from T1 where ^x}} msg]

  lappend v $msg

} {1 {unrecognized token: "^"}}

do_test main-3.2.2 {

  catchsql {select 'abc}

} {1 {unrecognized token: "'abc"}}

do_test main-3.2.3 {

  catchsql {select "abc}

} {1 {unrecognized token: ""abc"}}

do_test main-3.2.4 {

  catchsql {select [abc}

} {1 {unrecognized token: "[abc"}}

do_test main-3.2.5 {

  catchsql {select x'4869}

} {1 {unrecognized token: "x'4869"}}

do_test main-3.2.6 {

  catchsql {select x'4869'}

} {0 Hi}

do_test main-3.2.7 {

  catchsql {select x'48695'}

} {1 {unrecognized token: "x'48695'"}}

do_test main-3.2.8 {

  catchsql {select x'486x'}

} {1 {unrecognized token: "x'486x'"}}

do_test main-3.2.9 {

  catchsql {select $abc(}

} {1 {unrecognized token: "$abc("}}

do_test main-3.2.10 {

  catchsql {select $abc(x}

} {1 {unrecognized token: "$abc(x"}}

set xyz 123

do_test main-3.2.11 {

  catchsql {select $::xyz}

} {0 123}

namespace eval ::testnamespace {

  variable xyz 321

}

do_test main-3.2.12 {

  catchsql {select $testnamespace::xyz}

} {0 321}

do_test main-3.2.13 {

  catchsql {select $(abc)}

} {1 {unrecognized token: "$"}}

do_test main-3.2.14 {

  set hi\u1234x 987

  db eval "select \$hi\u1234x"

} {987}

do_test main-3.2.15 {

  catchsql "select 456\u1234"

} [list 1 "unrecognized token: \"456\u1234\""]

do_test main-3.2.16 {

  catchsql {select cast(3.14e+4 AS integer)}

} {0 31400}

do_test main-3.2.17 {

  catchsql {select cast(3.14e+04 AS integer)}

} {0 31400}

do_test main-3.2.18 {

  catchsql {select cast(3.14e+004 AS integer)}

} {0 31400}

do_test main-3.2.19 {

  catchsql {select cast(3.14e4 AS integer)}

} {0 31400}

do_test main-3.2.20 {

  catchsql {select cast(3.14e04 AS integer)}

} {0 31400}

do_test main-3.2.21 {

  catchsql {select cast(3.14e004 AS integer)}

} {0 31400}

do_test main-3.2.16 {

  catchsql {select cast(3.14E+4 AS integer)}

} {0 31400}

do_test main-3.2.17 {

  catchsql {select cast(3.14E+04 AS integer)}

} {0 31400}

do_test main-3.2.18 {

  catchsql {select cast(3.14E+004 AS integer)}

} {0 31400}

do_test main-3.2.19 {

  catchsql {select cast(3.14E4 AS integer)}

} {0 31400}

do_test main-3.2.20 {

  catchsql {select cast(3.14E04 AS integer)}

} {0 31400}

do_test main-3.2.21 {

  catchsql {select cast(3.14E004 AS integer)}

} {0 31400}

do_test main-3.2.22 {

  catchsql {select cast(3.14e-4 * 1e8 AS integer)}

} {0 31400}

do_test main-3.2.23 {

  catchsql {select cast(3.14E-04 * 1E08 AS integer)}

} {0 31400}

do_test main-3.2.24 {

  catchsql {select cast(3.14e-004 * 01.0E+8 AS integer)}

} {0 31400}

do_test main-3.2.25 {

  catchsql {select 123/*abc}

} {0 123}

do_test main-3.2.26 {

  catchsql {select 123/***abc}

} {0 123}

do_test main-3.2.27 {

  catchsql {select 123/*/*2}

} {0 123}

do_test main-3.2.28 {

  catchsql {select 123/**/*2}

} {0 246}

do_test main-3.2.29 {

  catchsql {select 123/}

} {1 {near "/": syntax error}}

do_test main-3.2.30 {

  catchsql {select 123--5}

} {0 123}

do_test main-3.3 {

  catch {db close}

  foreach f [glob -nocomplain testdb/*] {file delete -force $f}

  file delete -force testdb

  sqlite3 db testdb

  execsql {

    create table T1(X REAL);  /* C-style comments allowed */

    insert into T1 values(0.5);

    insert into T1 values(0.5e2);

    insert into T1 values(0.5e-002);

    insert into T1 values(5e-002);

    insert into T1 values(-5.0e-2);

    insert into T1 values(-5.1e-2);

    insert into T1 values(0.5e2);

    insert into T1 values(0.5E+02);

    insert into T1 values(5E+02);

    insert into T1 values(5.0E+03);

    select x*10 from T1 order by x*5;

  }

} {-0.51 -0.5 0.05 0.5 5.0 500.0 500.0 500.0 5000.0 50000.0}

do_test main-3.4 {

  set v [catch {execsql {create bogus}} msg]

  lappend v $msg

} {1 {near "bogus": syntax error}}

do_test main-3.5 {

  set v [catch {execsql {create}} msg]

  lappend v $msg

} {1 {near "create": syntax error}}

do_test main-3.6 {

  catchsql {SELECT 'abc' + #9}

} {1 {near "#9": syntax error}}

# The following test-case tests the linked list code used to manage

# sqlite3_vfs structures.

if {$::tcl_platform(platform)=="unix"} {

  ifcapable threadsafe {

    do_test main-4.1 {

      sqlite3_crash_enable 1

      sqlite3_crash_enable 0

      sqlite3async_enable 1

      sqlite3async_enable 0

      sqlite3_crash_enable 1

      sqlite3async_enable 1

      sqlite3_crash_enable 0

      sqlite3async_enable 0

      sqlite3_crash_enable 1

      sqlite3async_enable 1

      sqlite3async_enable 0

      sqlite3_crash_enable 0

      sqlite3async_enable 1

      sqlite3_crash_enable 1

      sqlite3_crash_enable 0

      sqlite3async_enable 0

      sqlite3async_enable 1

      sqlite3_crash_enable 1

      sqlite3async_enable 0

      sqlite3_crash_enable 0

    } {}

    do_test main-4.2 {

      set rc [catch {sqlite3 db test.db -vfs crash} msg]

      list $rc $msg

    } {1 {no such vfs: crash}}

    do_test main-4.3 {

      set rc [catch {sqlite3 db test.db -vfs async} msg]

      list $rc $msg

    } {1 {no such vfs: async}}

  }

}

finish_test