diff options
Diffstat (limited to 'test/like.test')
| -rw-r--r-- | test/like.test | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/test/like.test b/test/like.test index 15d3c66aa..cd766079f 100644 --- a/test/like.test +++ b/test/like.test @@ -13,7 +13,7 @@ # in particular the optimizations that occur to help those operators # run faster. # -# $Id: like.test,v 1.11 2009/01/07 18:24:03 drh Exp $ +# $Id: like.test,v 1.12 2009/01/09 21:41:17 drh Exp $ set testdir [file dirname $argv0] source $testdir/tester.tcl @@ -69,12 +69,18 @@ do_test like-1.4 { SELECT x FROM t1 WHERE x LIKE 'aBc' ORDER BY 1; } } {ABC abc} -do_test like-1.5 { +do_test like-1.5.1 { execsql { PRAGMA case_sensitive_like=on; SELECT x FROM t1 WHERE x LIKE 'abc' ORDER BY 1; } } {abc} +do_test like-1.5.2 { + execsql { + PRAGMA case_sensitive_like; -- no argument; does not change setting + SELECT x FROM t1 WHERE x LIKE 'abc' ORDER BY 1; + } +} {abc} do_test like-1.6 { execsql { SELECT x FROM t1 WHERE x GLOB 'abc' ORDER BY 1; @@ -96,6 +102,12 @@ do_test like-1.9 { SELECT x FROM t1 WHERE x LIKE 'abc' ORDER BY 1; } } {ABC abc} +do_test like-1.10 { + execsql { + PRAGMA case_sensitive_like; -- No argument, does not change setting. + SELECT x FROM t1 WHERE x LIKE 'abc' ORDER BY 1; + } +} {ABC abc} # Tests of the REGEXP operator # |