Changes to test scripts so that they work with SQLITE_ENABLE_ICU.

FossilOrigin-Name: 465c819fdb601961eddb7304642c823d78111992

manifest

@@ -1,8 +1,5 @@
------BEGIN PGP SIGNED MESSAGE-----
+C Changes\sto\stest\sscripts\sso\sthat\sthey\swork\swith\sSQLITE_ENABLE_ICU.
-Hash: SHA1
+D 2010-11-01T05:42:26
-
-C Fix\sa\stest\smodule\scomment\stypo\sreported\son\sthe\smailing\slist.
-D 2010-10-31T22:47:15
 F Makefile.arm-wince-mingw32ce-gcc d6df77f1f48d690bd73162294bbba7f59507c72f
 F Makefile.in 2c8cefd962eca0147132c7cf9eaa4bb24c656f3f
 F Makefile.linux-gcc 91d710bdc4998cb015f39edf3cb314ec4f4d7e23
@@ -354,7 +351,7 @@ F test/diskfull.test 0cede7ef9d8f415d9d3944005c76be7589bb5ebb
 F test/distinctagg.test 1a6ef9c87a58669438fc771450d7a72577417376
 F test/e_createtable.test 049dcbd95e66bc3255338db30b375b825d894f7a
 F test/e_delete.test 55d868b647acc091c261a10b9b0cb0ab660a6acb
-F test/e_expr.test 0fdf503f955389aec497eb27983385cb540fb307
+F test/e_expr.test 4e004d1f5187d4bbc9ca3d55660a8d164dd59f4e
 F test/e_fkey.test 6721a741c6499b3ab7e5385923233343c8f1ad05
 F test/e_fts3.test 75bb0aee26384ef586165e21018a17f7cd843469
 F test/e_insert.test 7390c2da39f16a134dc9a439144768c727757d2c
@@ -507,7 +504,7 @@ F test/jrnlmode3.test cfcdb12b90e640a23b92785a002d96c0624c8710
 F test/keyword1.test a2400977a2e4fde43bf33754c2929fda34dbca05
 F test/lastinsert.test 474d519c68cb79d07ecae56a763aa7f322c72f51
 F test/laststmtchanges.test ae613f53819206b3222771828d024154d51db200
-F test/like.test 565d240313f15a8afa8d7098dc9fe303c1e2a496
+F test/like.test 0f64aeaed50b6e3ebaef3af0b3b8f894aed5acca
 F test/like2.test 3b2ee13149ba4a8a60b59756f4e5d345573852da
 F test/limit.test 2db7b3b34fb925b8e847d583d2eb67531d0ce67e
 F test/loadext.test 0393ce12d9616aa87597dd0ec88181de181f6db0
@@ -884,14 +881,7 @@ F tool/speedtest2.tcl ee2149167303ba8e95af97873c575c3e0fab58ff
 F tool/speedtest8.c 2902c46588c40b55661e471d7a86e4dd71a18224
 F tool/speedtest8inst1.c 293327bc76823f473684d589a8160bde1f52c14e
 F tool/vdbe-compress.tcl d70ea6d8a19e3571d7ab8c9b75cba86d1173ff0f
-P 6a6bb6ce733b421b42fa251dbda7fb19f72361ff
+P 87eb1f04d2dd06f34f1385006bf42ae6c8903d46
-R d373befb55b19ec60898bfda2a3a57e2
+R 7e6ef1c4f4527e005e9665f2c6f5a09a
-U drh
+U dan
-Z 108ce7056f6a397642c5fc598182edda
+Z 1f5eb3b573143a999e1300a942bd7e90
------BEGIN PGP SIGNATURE-----
-Version: GnuPG v1.4.6 (GNU/Linux)
-
-iD8DBQFMzfH2oxKgR168RlERAhDSAKCJEs+OJ0+A+cdG7wT6UdR2+5c6qQCeK3Dh
-9J8MR/QqB5772xH73YsP9g8=
-=I2ha
------END PGP SIGNATURE-----

manifest.uuid

@@ -1 +1 @@
-87eb1f04d2dd06f34f1385006bf42ae6c8903d46
+465c819fdb601961eddb7304642c823d78111992

test/e_expr.test

@@ -937,8 +937,14 @@ do_execsql_test e_expr-14.4.3 { SELECT 'ac'  LIKE 'aBc' } 0
 # 'a' LIKE 'A' is TRUE but
 # 'æ' LIKE 'Æ' is FALSE.
 #
+#   The restriction to ASCII characters does not apply if the ICU
+#   library is compiled in. When ICU is enabled SQLite does not act
+#   as it does "by default".
+#
 do_execsql_test e_expr-14.5.1 { SELECT 'A' LIKE 'a'         } 1
-do_execsql_test e_expr-14.5.2 "SELECT '\u00c6' LIKE '\u00e6'" 0
+ifcapable !icu {
+  do_execsql_test e_expr-14.5.2 "SELECT '\u00c6' LIKE '\u00e6'" 0
+}
 
 # EVIDENCE-OF: R-56683-13731 If the optional ESCAPE clause is present,
 # then the expression following the ESCAPE keyword must evaluate to a
@@ -985,7 +991,8 @@ proc likefunc {args} {
   eval lappend ::likeargs $args
   return 1
 }
-db func like likefunc
+db func like -argcount 2 likefunc
+db func like -argcount 3 likefunc
 set ::likeargs [list]
 do_execsql_test e_expr-15.1.1 { SELECT 'abc' LIKE 'def' } 1
 do_test         e_expr-15.1.2 { set likeargs } {def abc}
@@ -1056,12 +1063,16 @@ sqlite3 db test.db
 # default and so use of the REGEXP operator will normally result in an
 # error message.
 #
-do_catchsql_test e_expr-18.1.1 { 
+#   There is a regexp function if ICU is enabled though.
+#
+ifcapable !icu {
+  do_catchsql_test e_expr-18.1.1 { 
     SELECT regexp('abc', 'def') 
-} {1 {no such function: regexp}}
+  } {1 {no such function: regexp}}
-do_catchsql_test e_expr-18.1.2 { 
+  do_catchsql_test e_expr-18.1.2 { 
     SELECT 'abc' REGEXP 'def'
-} {1 {no such function: REGEXP}}
+  } {1 {no such function: REGEXP}}
+}
 
 # EVIDENCE-OF: R-33693-50180 The REGEXP operator is a special syntax for
 # the regexp() user function.

test/like.test

@@ -115,7 +115,7 @@ do_test like-2.1 {
   proc test_regexp {a b} {
     return [regexp $a $b]
   }
-  db function regexp test_regexp
+  db function regexp -argcount 2 test_regexp
   execsql {
     SELECT x FROM t1 WHERE x REGEXP 'abc' ORDER BY 1;
   }
@@ -608,7 +608,7 @@ do_test like-8.4 {
 } {1 abcdef 1 ghijkl 1 mnopqr 2 abcdef 2 ghijkl 2 mnopqr}
 
 
-ifcapable like_opt {
+ifcapable like_opt&&!icu {
   # Evaluate SQL.  Return the result set followed by the
   # and the number of full-scan steps.
   #
@@ -673,22 +673,21 @@ ifcapable like_opt {
       regexp {INDEX i2} $res
     } {1}
   }
-}
 
-# Do an SQL statement.  Append the search count to the end of the result.
+  # Do an SQL statement.  Append the search count to the end of the result.
-#
+  #
-proc count sql {
+  proc count sql {
     set ::sqlite_search_count 0
     set ::sqlite_like_count 0
     return [concat [execsql $sql] scan $::sqlite_search_count \
              like $::sqlite_like_count]
-}
+  }
 
-# The LIKE and GLOB optimizations do not work on columns with
+  # The LIKE and GLOB optimizations do not work on columns with
-# affinity other than TEXT.
+  # affinity other than TEXT.
-# Ticket #3901
+  # Ticket #3901
-#
+  #
-do_test like-10.1 {
+  do_test like-10.1 {
     db close
     sqlite3 db test.db
     execsql {
@@ -710,33 +709,33 @@ do_test like-10.1 {
     count {
       SELECT a FROM t10 WHERE b LIKE '12%' ORDER BY a;
     }
-} {12 123 scan 5 like 6}
+  } {12 123 scan 5 like 6}
-do_test like-10.2 {
+  do_test like-10.2 {
     count {
       SELECT a FROM t10 WHERE c LIKE '12%' ORDER BY a;
     }
-} {12 123 scan 5 like 6}
+  } {12 123 scan 5 like 6}
-do_test like-10.3 {
+  do_test like-10.3 {
     count {
       SELECT a FROM t10 WHERE d LIKE '12%' ORDER BY a;
     }
-} {12 123 scan 5 like 6}
+  } {12 123 scan 5 like 6}
-do_test like-10.4 {
+  do_test like-10.4 {
     count {
       SELECT a FROM t10 WHERE e LIKE '12%' ORDER BY a;
     }
-} {12 123 scan 5 like 6}
+  } {12 123 scan 5 like 6}
-do_test like-10.5 {
+  do_test like-10.5 {
     count {
       SELECT a FROM t10 WHERE f LIKE '12%' ORDER BY a;
     }
-} {12 123 scan 3 like 0}
+  } {12 123 scan 3 like 0}
-do_test like-10.6 {
+  do_test like-10.6 {
     count {
       SELECT a FROM t10 WHERE a LIKE '12%' ORDER BY a;
     }
-} {12 123 scan 5 like 6}
+  } {12 123 scan 5 like 6}
-do_test like-10.10 {
+  do_test like-10.10 {
     execsql {
       CREATE TABLE t10b(
         a INTEGER PRIMARY KEY,
@@ -751,32 +750,33 @@ do_test like-10.10 {
     count {
       SELECT a FROM t10b WHERE b GLOB '12*' ORDER BY a;
     }
-} {12 123 scan 5 like 6}
+  } {12 123 scan 5 like 6}
-do_test like-10.11 {
+  do_test like-10.11 {
     count {
       SELECT a FROM t10b WHERE c GLOB '12*' ORDER BY a;
     }
-} {12 123 scan 5 like 6}
+  } {12 123 scan 5 like 6}
-do_test like-10.12 {
+  do_test like-10.12 {
     count {
       SELECT a FROM t10b WHERE d GLOB '12*' ORDER BY a;
     }
-} {12 123 scan 5 like 6}
+  } {12 123 scan 5 like 6}
-do_test like-10.13 {
+  do_test like-10.13 {
     count {
       SELECT a FROM t10b WHERE e GLOB '12*' ORDER BY a;
     }
-} {12 123 scan 5 like 6}
+  } {12 123 scan 5 like 6}
-do_test like-10.14 {
+  do_test like-10.14 {
     count {
       SELECT a FROM t10b WHERE f GLOB '12*' ORDER BY a;
     }
-} {12 123 scan 3 like 0}
+  } {12 123 scan 3 like 0}
-do_test like-10.15 {
+  do_test like-10.15 {
     count {
       SELECT a FROM t10b WHERE a GLOB '12*' ORDER BY a;
     }
-} {12 123 scan 5 like 6}
+  } {12 123 scan 5 like 6}
+}
 
 # LIKE and GLOB where the default collating sequence is not appropriate
 # but an index with the appropriate collating sequence exists.