sl@0: #
sl@0: # 2006 February 9
sl@0: #
sl@0: # The author disclaims copyright to this source code.  In place of
sl@0: # a legal notice, here is a blessing:
sl@0: #
sl@0: #    May you do good and not evil.
sl@0: #    May you find forgiveness for yourself and forgive others.
sl@0: #    May you share freely, never taking more than you give.
sl@0: #
sl@0: #***********************************************************************
sl@0: # This file implements regression tests for SQLite library.  The
sl@0: # focus of this script is the sqlite3_table_column_metadata() API.
sl@0: #
sl@0: # $Id: colmeta.test,v 1.4 2008/01/23 12:52:41 drh Exp $
sl@0: 
sl@0: set testdir [file dirname $argv0]
sl@0: source $testdir/tester.tcl
sl@0: 
sl@0: ifcapable !columnmetadata {
sl@0:   finish_test
sl@0:   return
sl@0: }
sl@0: 
sl@0: # Set up a schema in the main and temp test databases.
sl@0: do_test colmeta-0 {
sl@0:   execsql {
sl@0:     CREATE TABLE abc(a, b, c);
sl@0:     CREATE TABLE abc2(a PRIMARY KEY COLLATE NOCASE, b VARCHAR(32), c);
sl@0:     CREATE TABLE abc3(a NOT NULL, b INTEGER PRIMARY KEY, c);
sl@0:   }
sl@0:   ifcapable autoinc {
sl@0:     execsql {
sl@0:       CREATE TABLE abc4(a, b INTEGER PRIMARY KEY AUTOINCREMENT, c);
sl@0:     }
sl@0:   }
sl@0:   ifcapable view {
sl@0:     execsql {
sl@0:       CREATE VIEW v1 AS SELECT * FROM abc2;
sl@0:     }
sl@0:   }
sl@0: } {}
sl@0: 
sl@0: 
sl@0: # Return values are of the form:
sl@0: #
sl@0: #   {<decl-type> <collation> <not null> <primary key> <auto increment>}
sl@0: #
sl@0: set tests {
sl@0:   1  {main abc a}                {0 {{} BINARY 0 0 0}}
sl@0:   2  {{} abc a}                  {0 {{} BINARY 0 0 0}}
sl@0:   3  {{} abc2 b}                 {0 {VARCHAR(32) BINARY 0 0 0}}
sl@0:   4  {main abc2 b}               {0 {VARCHAR(32) BINARY 0 0 0}}
sl@0:   5  {{} abc2 a}                 {0 {{} NOCASE 0 1 0}}
sl@0:   6  {{} abc3 a}                 {0 {{} BINARY 1 0 0}}
sl@0:   7  {{} abc3 b}                 {0 {INTEGER BINARY 0 1 0}}
sl@0:   13 {main abc rowid}            {0 {INTEGER BINARY 0 1 0}}
sl@0:   14 {main abc3 rowid}           {0 {INTEGER BINARY 0 1 0}}
sl@0:   16 {main abc d}                {1 {no such table column: abc.d}}
sl@0: }
sl@0: ifcapable view {
sl@0:   set tests [concat $tests {
sl@0:     8  {{} abc4 b}                 {0 {INTEGER BINARY 0 1 1}}
sl@0:     15 {main abc4 rowid}           {0 {INTEGER BINARY 0 1 1}}
sl@0:   }]
sl@0: }
sl@0: ifcapable view {
sl@0:   set tests [concat $tests {
sl@0:     9  {{} v1 a}                   {1 {no such table column: v1.a}}
sl@0:     10 {main v1 b}                 {1 {no such table column: v1.b}}
sl@0:     11 {main v1 badname}           {1 {no such table column: v1.badname}}
sl@0:     12 {main v1 rowid}             {1 {no such table column: v1.rowid}}
sl@0:   }]
sl@0: }
sl@0: 
sl@0: foreach {tn params results} $tests {
sl@0:   set ::DB [sqlite3_connection_pointer db]
sl@0: 
sl@0:   set tstbody [concat sqlite3_table_column_metadata $::DB $params] 
sl@0:   do_test colmeta-$tn.1 {
sl@0:     list [catch $tstbody msg] [set msg]
sl@0:   } $results
sl@0: 
sl@0:   db close
sl@0:   sqlite3 db test.db
sl@0: 
sl@0:   set ::DB [sqlite3_connection_pointer db]
sl@0:   set tstbody [concat sqlite3_table_column_metadata $::DB $params] 
sl@0:   do_test colmeta-$tn.2 {
sl@0:     list [catch $tstbody msg] [set msg]
sl@0:   } $results
sl@0: }
sl@0: 
sl@0: finish_test