diff options
author | Hans-Christoph Steiner <hans@eds.org> | 2013-01-17 14:23:24 -0500 |
---|---|---|
committer | Hans-Christoph Steiner <hans@eds.org> | 2013-01-17 14:23:24 -0500 |
commit | 4f9313b1de21a03df32bfba4d94207c78a2171b0 (patch) | |
tree | 6a637dd4dde653f870346a37ec6555eb0574949a /test/tclsqlite.test | |
parent | 9da5e9acd37e51b86429d938e7e6a64ffb02da84 (diff) | |
parent | 1b5ba8e022836fa8ab93bc90df1b34a29ea6e134 (diff) |
Merge tag 'upstream/2.1.1'
Upstream version 2.1.1
Conflicts:
.gitignore
Diffstat (limited to 'test/tclsqlite.test')
-rw-r--r-- | test/tclsqlite.test | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/test/tclsqlite.test b/test/tclsqlite.test index c8b0303..c954c71 100644 --- a/test/tclsqlite.test +++ b/test/tclsqlite.test @@ -319,14 +319,23 @@ do_test tcl-8.1 { execsql {INSERT INTO t1 VALUES(30,NULL)} db eval {SELECT * FROM t1 WHERE b IS NULL} } {30 NaN} +proc concatFunc args {return [join $args {}]} do_test tcl-8.2 { + db function concat concatFunc + db eval {SELECT concat('a', b, 'z') FROM t1 WHERE b is NULL} +} {aNaNz} +do_test tcl-8.3 { db nullvalue NULL db nullvalue } {NULL} -do_test tcl-8.3 { +do_test tcl-8.4 { db nullvalue {} db eval {SELECT * FROM t1 WHERE b IS NULL} } {30 {}} +do_test tcl-8.5 { + db function concat concatFunc + db eval {SELECT concat('a', b, 'z') FROM t1 WHERE b is NULL} +} {az} # Test the return type of user-defined functions # |