[sqlite] Remove obsolete reference version 3.8.7.4.

third_party/sqlite/sqlite-src-3080704/test/instr.test

-# 2012 October 24
-#
-# 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.
-#
-#***********************************************************************
-# This file implements regression tests for SQLite library.  The
-# focus of this file is testing the built-in INSTR() functions.
-#
-# EVIDENCE-OF: R-27549-59611 The instr(X,Y) function finds the first
-# occurrence of string Y within string X and returns the number of prior
-# characters plus 1, or 0 if Y is nowhere found within X.
-#
-
-
-set testdir [file dirname $argv0]
-source $testdir/tester.tcl
-
-# Create a table to work with.
-#
-do_test instr-1.1 {
-  db eval {SELECT instr('abcdefg','a');}
-} {1}
-do_test instr-1.2 {
-  db eval {SELECT instr('abcdefg','b');}
-} {2}
-do_test instr-1.3 {
-  db eval {SELECT instr('abcdefg','c');}
-} {3}
-do_test instr-1.4 {
-  db eval {SELECT instr('abcdefg','d');}
-} {4}
-do_test instr-1.5 {
-  db eval {SELECT instr('abcdefg','e');}
-} {5}
-do_test instr-1.6 {
-  db eval {SELECT instr('abcdefg','f');}
-} {6}
-do_test instr-1.7 {
-  db eval {SELECT instr('abcdefg','g');}
-} {7}
-do_test instr-1.8 {
-  db eval {SELECT instr('abcdefg','h');}
-} {0}
-do_test instr-1.9 {
-  db eval {SELECT instr('abcdefg','abcdefg');}
-} {1}
-do_test instr-1.10 {
-  db eval {SELECT instr('abcdefg','abcdefgh');}
-} {0}
-do_test instr-1.11 {
-  db eval {SELECT instr('abcdefg','bcdefg');}
-} {2}
-do_test instr-1.12 {
-  db eval {SELECT instr('abcdefg','bcdefgh');}
-} {0}
-do_test instr-1.13 {
-  db eval {SELECT instr('abcdefg','cdefg');}
-} {3}
-do_test instr-1.14 {
-  db eval {SELECT instr('abcdefg','cdefgh');}
-} {0}
-do_test instr-1.15 {
-  db eval {SELECT instr('abcdefg','defg');}
-} {4}
-do_test instr-1.16 {
-  db eval {SELECT instr('abcdefg','defgh');}
-} {0}
-do_test instr-1.17 {
-  db eval {SELECT instr('abcdefg','efg');}
-} {5}
-do_test instr-1.18 {
-  db eval {SELECT instr('abcdefg','efgh');}
-} {0}
-do_test instr-1.19 {
-  db eval {SELECT instr('abcdefg','fg');}
-} {6}
-do_test instr-1.20 {
-  db eval {SELECT instr('abcdefg','fgh');}
-} {0}
-do_test instr-1.21 {
-  db eval {SELECT coalesce(instr('abcdefg',NULL),'nil');}
-} {nil}
-do_test instr-1.22 {
-  db eval {SELECT coalesce(instr(NULL,'x'),'nil');}
-} {nil}
-do_test instr-1.23 {
-  db eval {SELECT instr(12345,34);}
-} {3}
-do_test instr-1.24 {
-  db eval {SELECT instr(123456.78,34);}
-} {3}
-do_test instr-1.25 {
-  db eval {SELECT instr(123456.78,x'3334');}
-} {3}
-do_test instr-1.26 {
-  db eval {SELECT instr('äbcdefg','efg');}
-} {5}
-do_test instr-1.27 {
-  db eval {SELECT instr('€xyzzy','xyz');}
-} {2}
-do_test instr-1.28 {
-  db eval {SELECT instr('abc€xyzzy','xyz');}
-} {5}
-do_test instr-1.29 {
-  db eval {SELECT instr('abc€xyzzy','€xyz');}
-} {4}
-do_test instr-1.30 {
-  db eval {SELECT instr('abc€xyzzy','c€xyz');}
-} {3}
-do_test instr-1.31 {
-  db eval {SELECT instr(x'0102030405',x'01');}
-} {1}
-do_test instr-1.32 {
-  db eval {SELECT instr(x'0102030405',x'02');}
-} {2}
-do_test instr-1.33 {
-  db eval {SELECT instr(x'0102030405',x'03');}
-} {3}
-do_test instr-1.34 {
-  db eval {SELECT instr(x'0102030405',x'04');}
-} {4}
-do_test instr-1.35 {
-  db eval {SELECT instr(x'0102030405',x'05');}
-} {5}
-do_test instr-1.36 {
-  db eval {SELECT instr(x'0102030405',x'06');}
-} {0}
-do_test instr-1.37 {
-  db eval {SELECT instr(x'0102030405',x'0102030405');}
-} {1}
-do_test instr-1.38 {
-  db eval {SELECT instr(x'0102030405',x'02030405');}
-} {2}
-do_test instr-1.39 {
-  db eval {SELECT instr(x'0102030405',x'030405');}
-} {3}
-do_test instr-1.40 {
-  db eval {SELECT instr(x'0102030405',x'0405');}
-} {4}
-do_test instr-1.41 {
-  db eval {SELECT instr(x'0102030405',x'0506');}
-} {0}
-do_test instr-1.42 {
-  db eval {SELECT instr(x'0102030405',x'');}
-} {1}
-do_test instr-1.43 {
-  db eval {SELECT instr(x'',x'');}
-} {1}
-do_test instr-1.44 {
-  db eval {SELECT instr('','');}
-} {1}
-do_test instr-1.45 {
-  db eval {SELECT instr('abcdefg','');}
-} {1}
-unset -nocomplain longstr
-set longstr abcdefghijklmonpqrstuvwxyz
-append longstr $longstr
-append longstr $longstr
-append longstr $longstr
-append longstr $longstr
-append longstr $longstr
-append longstr $longstr
-append longstr $longstr
-append longstr $longstr
-append longstr $longstr
-append longstr $longstr
-append longstr $longstr
-append longstr $longstr
-# puts [string length $longstr]
-append longstr Xabcde
-do_test instr-1.46 {
-  db eval {SELECT instr($longstr,'X');}
-} {106497}
-do_test instr-1.47 {
-  db eval {SELECT instr($longstr,'Y');}
-} {0}
-do_test instr-1.48 {
-  db eval {SELECT instr($longstr,'Xa');}
-} {106497}
-do_test instr-1.49 {
-  db eval {SELECT instr($longstr,'zXa');}
-} {106496}
-set longstr [string map {a ä} $longstr]
-do_test instr-1.50 {
-  db eval {SELECT instr($longstr,'X');}
-} {106497}
-do_test instr-1.51 {
-  db eval {SELECT instr($longstr,'Y');}
-} {0}
-do_test instr-1.52 {
-  db eval {SELECT instr($longstr,'Xä');}
-} {106497}
-do_test instr-1.53 {
-  db eval {SELECT instr($longstr,'zXä');}
-} {106496}
-do_test instr-1.54 {
-  db eval {SELECT instr(x'78c3a4e282ac79','x');}
-} {1}
-do_test instr-1.55 {
-  db eval {SELECT instr(x'78c3a4e282ac79','y');}
-} {4}
-
-# EVIDENCE-OF: R-46421-32541 Or, if X and Y are both BLOBs, then
-# instr(X,Y) returns one more than the number bytes prior to the first
-# occurrence of Y, or 0 if Y does not occur anywhere within X.
-#
-do_test instr-1.56.1 {
-  db eval {SELECT instr(x'78c3a4e282ac79',x'79');}
-} {7}
-do_test instr-1.56.2 {
-  db eval {SELECT instr(x'78c3a4e282ac79',x'7a');}
-} {0}
-do_test instr-1.56.3 {
-  db eval {SELECT instr(x'78c3a4e282ac79',x'78');}
-} {1}
-do_test instr-1.56.3 {
-  db eval {SELECT instr(x'78c3a4e282ac79',x'a4');}
-} {3}
-
-# EVIDENCE-OF: R-17329-35644 If both arguments X and Y to instr(X,Y) are
-# non-NULL and are not BLOBs then both are interpreted as strings.
-#
-do_test instr-1.57.1 {
-  db eval {SELECT instr('xä€y',x'79');}
-} {4}
-do_test instr-1.57.2 {
-  db eval {SELECT instr('xä€y',x'a4');}
-} {0}
-do_test instr-1.57.3 {
-  db eval {SELECT instr(x'78c3a4e282ac79','y');}
-} {4}
-
-# EVIDENCE-OF: R-14708-27487 If either X or Y are NULL in instr(X,Y)
-# then the result is NULL.
-#
-do_execsql_test instr-1.60 {
-  SELECT coalesce(instr(NULL,'abc'), 999);
-} {999}
-do_execsql_test instr-1.61 {
-  SELECT coalesce(instr('abc',NULL), 999);
-} {999}
-do_execsql_test instr-1.62 {
-  SELECT coalesce(instr(NULL,NULL), 999);
-} {999}
-
-finish_test