Import SQLite 3.7.6.3.

third_party/sqlite/src/test/icu.test

 # 2007 May 1
 #
 # 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.
 #
 #***********************************************************************
 #
 # $Id: icu.test,v 1.2 2008/07/12 14:52:20 drh Exp $
 #
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
 
 ifcapable !icu {
   finish_test
   return
 }
 
 # Create a table to work with.
 #
 execsql {CREATE TABLE test1(i1 int, i2 int, r1 real, r2 real, t1 text, t2 text)}
 execsql {INSERT INTO test1 VALUES(1,2,1.1,2.2,'hello','world')}
 proc test_expr {name settings expr result} {
   do_test $name [format {
-    db one {
+    lindex [db eval {
       BEGIN; 
       UPDATE test1 SET %s; 
       SELECT %s FROM test1; 
       ROLLBACK;
-    }
+    }] 0
   } $settings $expr] $result
 }
 
 # Tests of the REGEXP operator.
 #
 test_expr icu-1.1 {i1='hello'} {i1 REGEXP 'hello'}  1
 test_expr icu-1.2 {i1='hello'} {i1 REGEXP '.ello'}  1
 test_expr icu-1.3 {i1='hello'} {i1 REGEXP '.ell'}   0
 test_expr icu-1.4 {i1='hello'} {i1 REGEXP '.ell.*'} 1
 test_expr icu-1.5 {i1=NULL}    {i1 REGEXP '.ell.*'} {}
@@ skipping 62 matching lines @@
 
 # Test collation using Lithuanian rules. In the Lithuanian
 # alphabet, "y" comes right after "i".
 #
 do_test icu-4.3 {
   execsql {
     SELECT name FROM fruit ORDER BY name COLLATE Lithuanian ASC;
   }
 } {apricot cherry chokecherry yamot peach plum}
 
+#-------------------------------------------------------------------------
+# Test that it is not possible to call the ICU regex() function with 
+# anything other than exactly two arguments. See also:
+#
+#   http://src.chromium.org/viewvc/chrome/trunk/src/third_party/sqlite/icu-regexp.patch?revision=34807&view=markup
+#
+do_catchsql_test icu-5.1 { SELECT regexp('a[abc]c.*', 'abc') } {0 1}
+do_catchsql_test icu-5.2 { 
+  SELECT regexp('a[abc]c.*') 
+} {1 {wrong number of arguments to function regexp()}}
+do_catchsql_test icu-5.3 { 
+  SELECT regexp('a[abc]c.*', 'abc', 'c') 
+} {1 {wrong number of arguments to function regexp()}}
+do_catchsql_test icu-5.4 { 
+  SELECT 'abc' REGEXP 'a[abc]c.*'
+} {0 1}
+do_catchsql_test icu-5.4 { SELECT 'abc' REGEXP }    {1 {near " ": syntax error}}
+do_catchsql_test icu-5.5 { SELECT 'abc' REGEXP, 1 } {1 {near ",": syntax error}}
+
 finish_test