diff options
| author | dan <dan@noemail.net> | 2011-08-18 17:47:57 +0000 |
|---|---|---|
| committer | dan <dan@noemail.net> | 2011-08-18 17:47:57 +0000 |
| commit | d5f12cd54d91fc857890cb846f62f3f65a1d3f36 (patch) | |
| tree | 2a2a6828ed0d4245819a0fe6436044d213dc33a6 /test/tclsqlite.test | |
| parent | 6a3eb4aef3cad4d4d1adeb4364bfa8ca7f4ee130 (diff) | |
| download | sqlite-d5f12cd54d91fc857890cb846f62f3f65a1d3f36.tar.gz sqlite-d5f12cd54d91fc857890cb846f62f3f65a1d3f36.zip | |
Ensure that the Tcl "db onecolumn" command returns an empty string if the SELECT statement returns zero rows.
FossilOrigin-Name: 928bcaf0f00a408e2f6c1d85dfab214457f52ad5
Diffstat (limited to 'test/tclsqlite.test')
| -rw-r--r-- | test/tclsqlite.test | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/test/tclsqlite.test b/test/tclsqlite.test index 8db04ebfa..0ed06024c 100644 --- a/test/tclsqlite.test +++ b/test/tclsqlite.test @@ -617,5 +617,16 @@ ifcapable tclvar { } {31323334 blob} } +db func xCall xCall +proc xCall {} { return "value" } +do_execsql_test tcl-14.1 { + CREATE TABLE t6(x); + INSERT INTO t6 VALUES(1); +} +do_test tcl-14.2 { + db one {SELECT x FROM t6 WHERE xCall()!='value'} +} {} + + finish_test |