[sqlite] Backport icuCaseFunc16 patch from SQLite.

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.
 #
 #***********************************************************************
@@ skipping 38 matching lines @@
 set ::egrave "\xE8"
 
 set ::OGRAVE "\xD2"
 set ::ograve "\xF2"
 
 # That German letter that looks a bit like a B. The
 # upper-case version of which is "SS" (two characters).
 #
 set ::szlig "\xDF" 
 
-# U+FB03 (ffi ligature) and U+FB04 (ffl ligature). They're uppercased
-# to 'FFI' and 'FFL'.
-set ::ffi_ffl "\ufb03\ufb04"
-
 # Tests of the upper()/lower() functions.
 #
 test_expr icu-2.1 {i1='HellO WorlD'} {upper(i1)} {HELLO WORLD}
 test_expr icu-2.2 {i1='HellO WorlD'} {lower(i1)} {hello world}
 test_expr icu-2.3 {i1=$::egrave} {lower(i1)}     $::egrave
 test_expr icu-2.4 {i1=$::egrave} {upper(i1)}     $::EGRAVE
 test_expr icu-2.5 {i1=$::ograve} {lower(i1)}     $::ograve
 test_expr icu-2.6 {i1=$::ograve} {upper(i1)}     $::OGRAVE
 test_expr icu-2.3 {i1=$::EGRAVE} {lower(i1)}     $::egrave
 test_expr icu-2.4 {i1=$::EGRAVE} {upper(i1)}     $::EGRAVE
 test_expr icu-2.5 {i1=$::OGRAVE} {lower(i1)}     $::ograve
 test_expr icu-2.6 {i1=$::OGRAVE} {upper(i1)}     $::OGRAVE
 
 test_expr icu-2.7 {i1=$::szlig} {upper(i1)}      "SS"
 test_expr icu-2.8 {i1='SS'} {lower(i1)}          "ss"
 
-test_expr icu-2.9 {i1=$::ffi_ffl} {upper(i1)}      "FFIFFL"
-test_expr icu-2.10 {i1=$::ffi_ffl} {lower(i1)}      $::ffi_ffl
+do_execsql_test icu-2.9 {
+  SELECT upper(char(0xfb04,0xfb04,0xfb04,0xfb04));
+} {FFLFFLFFLFFL}
 
 # In turkish (locale="tr_TR"), the lower case version of I
 # is "small dotless i" (code point 0x131 (decimal 305)).
 #
 set ::small_dotless_i "\u0131"
 test_expr icu-3.1 {i1='I'} {lower(i1)}           "i"
 test_expr icu-3.2 {i1='I'} {lower(i1, 'tr_tr')}  $::small_dotless_i
 test_expr icu-3.3 {i1='I'} {lower(i1, 'en_AU')}  "i"
 
 #--------------------------------------------------------------------
@@ skipping 42 matching lines @@
 } {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}}
 
+
+do_malloc_test icu-6.10 -sqlbody {
+  SELECT upper(char(0xfb04,0xdf,0xfb04,0xe8,0xfb04));
+}
+
 finish_test