Index: third_party/sqlite/src/tool/shell5.test |
diff --git a/third_party/sqlite/src/tool/shell5.test b/third_party/sqlite/src/tool/shell5.test |
deleted file mode 100644 |
index a82f9797a738d124e184be2244caa7583e1e7381..0000000000000000000000000000000000000000 |
--- a/third_party/sqlite/src/tool/shell5.test |
+++ /dev/null |
@@ -1,243 +0,0 @@ |
-# 2010 August 4 |
-# |
-# 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. |
-# |
-#*********************************************************************** |
-# |
-# The focus of this file is testing the CLI shell tool. |
-# These tests are specific to the .import command. |
-# |
-# $Id: shell5.test,v 1.7 2009/07/17 16:54:48 shaneh Exp $ |
-# |
- |
-# Test plan: |
-# |
-# shell5-1.*: Basic tests specific to the ".import" command. |
-# |
- |
-set CLI "./sqlite3" |
- |
-proc do_test {name cmd expected} { |
- puts -nonewline "$name ..." |
- set res [uplevel $cmd] |
- if {$res eq $expected} { |
- puts Ok |
- } else { |
- puts Error |
- puts " Got: $res" |
- puts " Expected: $expected" |
- exit |
- } |
-} |
- |
-proc catchcmd {db {cmd ""}} { |
- global CLI |
- set out [open cmds.txt w] |
- puts $out $cmd |
- close $out |
- set line "exec $CLI $db < cmds.txt" |
- set rc [catch { eval $line } msg] |
- list $rc $msg |
-} |
- |
-file delete -force test.db test.db.journal |
- |
-#---------------------------------------------------------------------------- |
-# Test cases shell5-1.*: Basic handling of the .import and .separator commands. |
-# |
- |
-# .import FILE TABLE Import data from FILE into TABLE |
-do_test shell5-1.1.1 { |
- catchcmd "test.db" ".import" |
-} {1 {Error: unknown command or invalid arguments: "import". Enter ".help" for help}} |
-do_test shell5-1.1.2 { |
- catchcmd "test.db" ".import FOO" |
-} {1 {Error: unknown command or invalid arguments: "import". Enter ".help" for help}} |
-do_test shell5-1.1.2 { |
- catchcmd "test.db" ".import FOO BAR" |
-} {1 {Error: no such table: BAR}} |
-do_test shell5-1.1.3 { |
- # too many arguments |
- catchcmd "test.db" ".import FOO BAR BAD" |
-} {1 {Error: unknown command or invalid arguments: "import". Enter ".help" for help}} |
- |
-# .separator STRING Change separator used by output mode and .import |
-do_test shell1-1.2.1 { |
- catchcmd "test.db" ".separator" |
-} {1 {Error: unknown command or invalid arguments: "separator". Enter ".help" for help}} |
-do_test shell1-1.2.2 { |
- catchcmd "test.db" ".separator FOO" |
-} {0 {}} |
-do_test shell1-1.2.3 { |
- # too many arguments |
- catchcmd "test.db" ".separator FOO BAD" |
-} {1 {Error: unknown command or invalid arguments: "separator". Enter ".help" for help}} |
- |
-# separator should default to "|" |
-do_test shell5-1.3.1 { |
- set res [catchcmd "test.db" ".show"] |
- list [regexp {separator: \"\|\"} $res] |
-} {1} |
- |
-# set separator to different value. |
-# check that .show reports new value |
-do_test shell5-1.3.2 { |
- set res [catchcmd "test.db" {.separator , |
-.show}] |
- list [regexp {separator: \",\"} $res] |
-} {1} |
- |
-# import file doesn't exist |
-do_test shell5-1.4.1 { |
- file delete -force FOO |
- set res [catchcmd "test.db" {CREATE TABLE t1(a, b); |
-.import FOO t1}] |
-} {1 {Error: cannot open "FOO"}} |
- |
-# empty import file |
-do_test shell5-1.4.2 { |
- file delete -force shell5.csv |
- set in [open shell5.csv w] |
- close $in |
- set res [catchcmd "test.db" {.import shell5.csv t1 |
-SELECT COUNT(*) FROM t1;}] |
-} {0 0} |
- |
-# import file with 1 row, 1 column (expecting 2 cols) |
-do_test shell5-1.4.3 { |
- set in [open shell5.csv w] |
- puts $in "1" |
- close $in |
- set res [catchcmd "test.db" {.import shell5.csv t1}] |
-} {1 {Error: shell5.csv line 1: expected 2 columns of data but found 1}} |
- |
-# import file with 1 row, 3 columns (expecting 2 cols) |
-do_test shell5-1.4.4 { |
- set in [open shell5.csv w] |
- puts $in "1|2|3" |
- close $in |
- set res [catchcmd "test.db" {.import shell5.csv t1}] |
-} {1 {Error: shell5.csv line 1: expected 2 columns of data but found 3}} |
- |
-# import file with 1 row, 2 columns |
-do_test shell5-1.4.5 { |
- set in [open shell5.csv w] |
- puts $in "1|2" |
- close $in |
- set res [catchcmd "test.db" {.import shell5.csv t1 |
-SELECT COUNT(*) FROM t1;}] |
-} {0 1} |
- |
-# import file with 2 rows, 2 columns |
-# note we end up with 3 rows because of the 1 row |
-# imported above. |
-do_test shell5-1.4.6 { |
- set in [open shell5.csv w] |
- puts $in "2|3" |
- puts $in "3|4" |
- close $in |
- set res [catchcmd "test.db" {.import shell5.csv t1 |
-SELECT COUNT(*) FROM t1;}] |
-} {0 3} |
- |
-# import file with 1 row, 2 columns, using a comma |
-do_test shell5-1.4.7 { |
- set in [open shell5.csv w] |
- puts $in "4,5" |
- close $in |
- set res [catchcmd "test.db" {.separator , |
-.import shell5.csv t1 |
-SELECT COUNT(*) FROM t1;}] |
-} {0 4} |
- |
-# import file with 1 row, 2 columns, text data |
-do_test shell5-1.4.8.1 { |
- set in [open shell5.csv w] |
- puts $in "5|Now is the time for all good men to come to the aid of their country." |
- close $in |
- set res [catchcmd "test.db" {.import shell5.csv t1 |
-SELECT COUNT(*) FROM t1;}] |
-} {0 5} |
- |
-do_test shell5-1.4.8.2 { |
- catchcmd "test.db" {SELECT b FROM t1 WHERE a='5';} |
-} {0 {Now is the time for all good men to come to the aid of their country.}} |
- |
-# import file with 1 row, 2 columns, quoted text data |
-# note that currently sqlite doesn't support quoted fields, and |
-# imports the entire field, quotes and all. |
-do_test shell5-1.4.9.1 { |
- set in [open shell5.csv w] |
- puts $in "6|'Now is the time for all good men to come to the aid of their country.'" |
- close $in |
- set res [catchcmd "test.db" {.import shell5.csv t1 |
-SELECT COUNT(*) FROM t1;}] |
-} {0 6} |
- |
-do_test shell5-1.4.9.2 { |
- catchcmd "test.db" {SELECT b FROM t1 WHERE a='6';} |
-} {0 {'Now is the time for all good men to come to the aid of their country.'}} |
- |
-# import file with 1 row, 2 columns, quoted text data |
-do_test shell5-1.4.10.1 { |
- set in [open shell5.csv w] |
- puts $in "7|\"Now is the time for all good men to come to the aid of their country.\"" |
- close $in |
- set res [catchcmd "test.db" {.import shell5.csv t1 |
-SELECT COUNT(*) FROM t1;}] |
-} {0 7} |
- |
-do_test shell5-1.4.10.2 { |
- catchcmd "test.db" {SELECT b FROM t1 WHERE a='7';} |
-} {0 {"Now is the time for all good men to come to the aid of their country."}} |
- |
-# check importing very long field |
-do_test shell5-1.5.1 { |
- set str [string repeat X 999] |
- set in [open shell5.csv w] |
- puts $in "8|$str" |
- close $in |
- set res [catchcmd "test.db" {.import shell5.csv t1 |
-SELECT length(b) FROM t1 WHERE a='8';}] |
-} {0 999} |
- |
-# try importing into a table with a large number of columns. |
-# This is limited by SQLITE_MAX_VARIABLE_NUMBER, which defaults to 999. |
-set cols 999 |
-do_test shell5-1.6.1 { |
- set sql {CREATE TABLE t2(} |
- set data {} |
- for {set i 1} {$i<$cols} {incr i} { |
- append sql "c$i," |
- append data "$i|" |
- } |
- append sql "c$cols);" |
- append data "$cols" |
- catchcmd "test.db" $sql |
- set in [open shell5.csv w] |
- puts $in $data |
- close $in |
- set res [catchcmd "test.db" {.import shell5.csv t2 |
-SELECT COUNT(*) FROM t2;}] |
-} {0 1} |
- |
-# try importing a large number of rows |
-set rows 999999 |
-do_test shell5-1.7.1 { |
- set in [open shell5.csv w] |
- for {set i 1} {$i<=$rows} {incr i} { |
- puts $in $i |
- } |
- close $in |
- set res [catchcmd "test.db" {CREATE TABLE t3(a); |
-.import shell5.csv t3 |
-SELECT COUNT(*) FROM t3;}] |
-} [list 0 $rows] |
- |
- |
-puts "CLI tests completed successfully" |