diff options
| author | tpoindex <tpoindex@noemail.net> | 2004-12-17 15:41:11 +0000 |
|---|---|---|
| committer | tpoindex <tpoindex@noemail.net> | 2004-12-17 15:41:11 +0000 |
| commit | 1067fe11040f90dcb36f81f2ba5e9a3fc0b49481 (patch) | |
| tree | ab8338054e7c845e51ee482c27109dda28b897d8 /test/tclsqlite.test | |
| parent | be5fd4906ddcc0186f705f720878632c179fab21 (diff) | |
| download | sqlite-1067fe11040f90dcb36f81f2ba5e9a3fc0b49481.tar.gz sqlite-1067fe11040f90dcb36f81f2ba5e9a3fc0b49481.zip | |
Add 'copy' method for tcl interface. Behaves similar to shell .import or COPY statment in 2.x. (CVS 2167)
FossilOrigin-Name: a9311d9df054a91e231d4e4332df0d661675744d
Diffstat (limited to 'test/tclsqlite.test')
| -rw-r--r-- | test/tclsqlite.test | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/test/tclsqlite.test b/test/tclsqlite.test index 63586e755..ec4e4220d 100644 --- a/test/tclsqlite.test +++ b/test/tclsqlite.test @@ -15,7 +15,7 @@ # interface is pretty well tested. This file contains some addition # tests for fringe issues that the main test suite does not cover. # -# $Id: tclsqlite.test,v 1.34 2004/11/23 10:13:03 danielk1977 Exp $ +# $Id: tclsqlite.test,v 1.35 2004/12/17 15:41:13 tpoindex Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl @@ -34,7 +34,7 @@ do_test tcl-1.1 { do_test tcl-1.2 { set v [catch {db bogus} msg] lappend v $msg -} {1 {bad option "bogus": must be authorizer, busy, changes, close, collate, collation_needed, commit_hook, complete, errorcode, eval, function, last_insert_rowid, onecolumn, progress, rekey, timeout, total_changes, or trace}} +} {1 {bad option "bogus": must be authorizer, busy, changes, close, collate, collation_needed, commit_hook, complete, copy, errorcode, eval, function, last_insert_rowid, onecolumn, progress, rekey, timeout, total_changes, or trace}} do_test tcl-1.3 { execsql {CREATE TABLE t1(a int, b int)} execsql {INSERT INTO t1 VALUES(10,20)} @@ -132,6 +132,10 @@ do_test tcl-1.19 { set v [catch {db total_changes xyz} msg] lappend v $msg } {1 {wrong # args: should be "db total_changes "}} +do_test tcl-1.20 { + set v [catch {db copy} msg] + lappend v $msg +} {1 {wrong # args: should be "db copy CONFLICT-ALGORITHM TABLE FILENAME ?SEPARATOR? ?NULLINDICATOR?"}} if {[sqlite3 -tcl-uses-utf]} { |