199 lines
		
	
	
		
			6.0 KiB
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
			
		
		
	
	
			199 lines
		
	
	
		
			6.0 KiB
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
# 2011 April 9
 | 
						|
#
 | 
						|
# 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 testing the various schema modification statements
 | 
						|
# that feature "IF EXISTS" or "IF NOT EXISTS" clauses.
 | 
						|
#
 | 
						|
 | 
						|
set testdir [file dirname $argv0]
 | 
						|
source $testdir/tester.tcl
 | 
						|
source $testdir/lock_common.tcl
 | 
						|
 | 
						|
 | 
						|
foreach jm {rollback wal} {
 | 
						|
 | 
						|
  set testprefix exists-$jm
 | 
						|
 | 
						|
  # This block of tests is targeted at CREATE XXX IF NOT EXISTS statements.
 | 
						|
  #
 | 
						|
  do_multiclient_test tn {
 | 
						|
 | 
						|
    # TABLE objects.
 | 
						|
    #
 | 
						|
    do_test 1.$tn.1.1 {
 | 
						|
      if {$jm == "wal"} { sql2 { PRAGMA journal_mode = WAL } }
 | 
						|
      sql2 { CREATE TABLE t1(x) }
 | 
						|
      sql1 { CREATE TABLE IF NOT EXISTS t1(a, b) }
 | 
						|
      sql2 { DROP TABLE t1 }
 | 
						|
      sql1 { CREATE TABLE IF NOT EXISTS t1(a, b) }
 | 
						|
      sql2 { SELECT name FROM sqlite_master WHERE type = 'table' }
 | 
						|
    } {t1}
 | 
						|
 | 
						|
    do_test 1.$tn.1.2 {
 | 
						|
      sql2 { CREATE TABLE t2(x) }
 | 
						|
      sql1 { CREATE TABLE IF NOT EXISTS t2 AS SELECT * FROM t1 }
 | 
						|
      sql2 { DROP TABLE t2 }
 | 
						|
      sql1 { CREATE TABLE IF NOT EXISTS t2 AS SELECT * FROM t1 }
 | 
						|
      sql2 { SELECT name FROM sqlite_master WHERE type = 'table' }
 | 
						|
    } {t1 t2}
 | 
						|
 | 
						|
 | 
						|
    # INDEX objects.
 | 
						|
    #
 | 
						|
    do_test 1.$tn.2 {
 | 
						|
      sql2 { CREATE INDEX i1 ON t1(a) }
 | 
						|
      sql1 { CREATE INDEX IF NOT EXISTS i1 ON t1(a, b) }
 | 
						|
      sql2 { DROP INDEX i1 }
 | 
						|
      sql1 { CREATE INDEX IF NOT EXISTS i1 ON t1(a, b) }
 | 
						|
      sql2 { SELECT name FROM sqlite_master WHERE type = 'index' }
 | 
						|
    } {i1}
 | 
						|
 | 
						|
    # VIEW objects.
 | 
						|
    #
 | 
						|
    do_test 1.$tn.3 {
 | 
						|
      sql2 { CREATE VIEW v1 AS SELECT * FROM t1 }
 | 
						|
      sql1 { CREATE VIEW IF NOT EXISTS v1 AS SELECT * FROM t1 }
 | 
						|
      sql2 { DROP VIEW v1 }
 | 
						|
      sql1 { CREATE VIEW IF NOT EXISTS v1 AS SELECT * FROM t1 }
 | 
						|
      sql2 { SELECT name FROM sqlite_master WHERE type = 'view' }
 | 
						|
    } {v1}
 | 
						|
 | 
						|
    # TRIGGER objects.
 | 
						|
    #
 | 
						|
    do_test $tn.4 {
 | 
						|
      sql2 { CREATE TRIGGER tr1 AFTER INSERT ON t1 BEGIN SELECT 1; END }
 | 
						|
  sql1 { CREATE TRIGGER IF NOT EXISTS tr1 AFTER INSERT ON t1 BEGIN SELECT 1; END }
 | 
						|
      sql2 { DROP TRIGGER tr1 }
 | 
						|
  sql1 { CREATE TRIGGER IF NOT EXISTS tr1 AFTER INSERT ON t1 BEGIN SELECT 1; END }
 | 
						|
      sql2 { SELECT name FROM sqlite_master WHERE type = 'trigger' }
 | 
						|
    } {tr1}
 | 
						|
  }
 | 
						|
 | 
						|
  # This block of tests is targeted at DROP XXX IF EXISTS statements.
 | 
						|
  #
 | 
						|
  do_multiclient_test tn {
 | 
						|
 | 
						|
    # TABLE objects.
 | 
						|
    #
 | 
						|
    do_test 2.$tn.1 {
 | 
						|
      if {$jm == "wal"} { sql1 { PRAGMA journal_mode = WAL } }
 | 
						|
      sql1 { DROP TABLE IF EXISTS t1 }
 | 
						|
      sql2 { CREATE TABLE t1(x) }
 | 
						|
      sql1 { DROP TABLE IF EXISTS t1 }
 | 
						|
      sql2 { SELECT name FROM sqlite_master WHERE type = 'table' }
 | 
						|
    } {}
 | 
						|
 | 
						|
    # INDEX objects.
 | 
						|
    #
 | 
						|
    do_test 2.$tn.2 {
 | 
						|
      sql1 { CREATE TABLE t2(x) }
 | 
						|
      sql1 { DROP INDEX IF EXISTS i2 }
 | 
						|
      sql2 { CREATE INDEX i2 ON t2(x) }
 | 
						|
      sql1 { DROP INDEX IF EXISTS i2 }
 | 
						|
      sql2 { SELECT name FROM sqlite_master WHERE type = 'index' }
 | 
						|
    } {}
 | 
						|
 | 
						|
    # VIEW objects.
 | 
						|
    #
 | 
						|
    do_test 2.$tn.3 {
 | 
						|
      sql1 { DROP VIEW IF EXISTS v1 }
 | 
						|
      sql2 { CREATE VIEW v1 AS SELECT * FROM t2 }
 | 
						|
      sql1 { DROP VIEW IF EXISTS v1 }
 | 
						|
      sql2 { SELECT name FROM sqlite_master WHERE type = 'view' }
 | 
						|
    } {}
 | 
						|
 | 
						|
    # TRIGGER objects.
 | 
						|
    #
 | 
						|
    do_test 2.$tn.4 {
 | 
						|
      sql1 { DROP TRIGGER IF EXISTS tr1 }
 | 
						|
      sql2 { CREATE TRIGGER tr1 AFTER INSERT ON t2 BEGIN SELECT 1; END }
 | 
						|
      sql1 { DROP TRIGGER IF EXISTS tr1 }
 | 
						|
      sql2 { SELECT name FROM sqlite_master WHERE type = 'trigger' }
 | 
						|
    } {}
 | 
						|
  }
 | 
						|
 | 
						|
  # This block of tests is targeted at DROP XXX IF EXISTS statements with
 | 
						|
  # attached databases.
 | 
						|
  #
 | 
						|
  do_multiclient_test tn {
 | 
						|
 | 
						|
    forcedelete test.db2
 | 
						|
    do_test 3.$tn.0 {
 | 
						|
      sql1 { ATTACH 'test.db2' AS aux }
 | 
						|
      sql2 { ATTACH 'test.db2' AS aux }
 | 
						|
    } {}
 | 
						|
 | 
						|
    # TABLE objects.
 | 
						|
    #
 | 
						|
    do_test 3.$tn.1.1 {
 | 
						|
      sql1 { DROP TABLE IF EXISTS aux.t1 }
 | 
						|
      sql2 { CREATE TABLE aux.t1(x) }
 | 
						|
      sql1 { DROP TABLE IF EXISTS aux.t1 }
 | 
						|
      sql2 { SELECT name FROM aux.sqlite_master WHERE type = 'table' }
 | 
						|
    } {}
 | 
						|
    do_test 3.$tn.1.2 {
 | 
						|
      sql1 { DROP TABLE IF EXISTS t1 }
 | 
						|
      sql2 { CREATE TABLE aux.t1(x) }
 | 
						|
      sql1 { DROP TABLE IF EXISTS t1 }
 | 
						|
      sql2 { SELECT name FROM aux.sqlite_master WHERE type = 'table' }
 | 
						|
    } {}
 | 
						|
 | 
						|
    # INDEX objects.
 | 
						|
    #
 | 
						|
    do_test 3.$tn.2.1 {
 | 
						|
      sql1 { CREATE TABLE aux.t2(x) }
 | 
						|
      sql1 { DROP INDEX IF EXISTS aux.i2 }
 | 
						|
      sql2 { CREATE INDEX aux.i2 ON t2(x) }
 | 
						|
      sql1 { DROP INDEX IF EXISTS aux.i2 }
 | 
						|
      sql2 { SELECT name FROM aux.sqlite_master WHERE type = 'index' }
 | 
						|
    } {}
 | 
						|
    do_test 3.$tn.2.2 {
 | 
						|
      sql1 { DROP INDEX IF EXISTS i2 }
 | 
						|
      sql2 { CREATE INDEX aux.i2 ON t2(x) }
 | 
						|
      sql1 { DROP INDEX IF EXISTS i2 }
 | 
						|
      sql2 { SELECT * FROM aux.sqlite_master WHERE type = 'index' }
 | 
						|
    } {}
 | 
						|
 | 
						|
    # VIEW objects.
 | 
						|
    #
 | 
						|
    do_test 3.$tn.3.1 {
 | 
						|
      sql1 { DROP VIEW IF EXISTS aux.v1 }
 | 
						|
      sql2 { CREATE VIEW aux.v1 AS SELECT * FROM t2 }
 | 
						|
      sql1 { DROP VIEW IF EXISTS aux.v1 }
 | 
						|
      sql2 { SELECT name FROM aux.sqlite_master WHERE type = 'view' }
 | 
						|
    } {}
 | 
						|
    do_test 3.$tn.3.2 {
 | 
						|
      sql1 { DROP VIEW IF EXISTS v1 }
 | 
						|
      sql2 { CREATE VIEW aux.v1 AS SELECT * FROM t2 }
 | 
						|
      sql1 { DROP VIEW IF EXISTS v1 }
 | 
						|
      sql2 { SELECT name FROM aux.sqlite_master WHERE type = 'view' }
 | 
						|
    } {}
 | 
						|
 | 
						|
    # TRIGGER objects.
 | 
						|
    #
 | 
						|
    do_test 3.$tn.4.1 {
 | 
						|
      sql1 { DROP TRIGGER IF EXISTS aux.tr1 }
 | 
						|
      sql2 { CREATE TRIGGER aux.tr1 AFTER INSERT ON t2 BEGIN SELECT 1; END }
 | 
						|
      sql1 { DROP TRIGGER IF EXISTS aux.tr1 }
 | 
						|
      sql2 { SELECT name FROM aux.sqlite_master WHERE type = 'trigger' }
 | 
						|
    } {}
 | 
						|
    do_test 3.$tn.4.2 {
 | 
						|
      sql1 { DROP TRIGGER IF EXISTS tr1 }
 | 
						|
      sql2 { CREATE TRIGGER aux.tr1 AFTER INSERT ON t2 BEGIN SELECT 1; END }
 | 
						|
      sql1 { DROP TRIGGER IF EXISTS tr1 }
 | 
						|
      sql2 { SELECT name FROM aux.sqlite_master WHERE type = 'trigger' }
 | 
						|
    } {}
 | 
						|
  }
 | 
						|
}
 | 
						|
 | 
						|
 | 
						|
finish_test
 |