mirror of
https://gitlab.com/cznic/sqlite.git
synced 2024-11-24 02:26:14 +00:00
1144 lines
28 KiB
Plaintext
1144 lines
28 KiB
Plaintext
# 2005 August 13
|
|
#
|
|
# 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 LIKE and GLOB operators and
|
|
# in particular the optimizations that occur to help those operators
|
|
# run faster.
|
|
#
|
|
# $Id: like.test,v 1.13 2009/06/07 23:45:11 drh Exp $
|
|
|
|
set testdir [file dirname $argv0]
|
|
source $testdir/tester.tcl
|
|
set testprefix like
|
|
|
|
# Create some sample data to work with.
|
|
#
|
|
do_test like-1.0 {
|
|
execsql {
|
|
CREATE TABLE t1(x TEXT);
|
|
}
|
|
foreach str {
|
|
a
|
|
ab
|
|
abc
|
|
abcd
|
|
|
|
acd
|
|
abd
|
|
bc
|
|
bcd
|
|
|
|
xyz
|
|
ABC
|
|
CDE
|
|
{ABC abc xyz}
|
|
} {
|
|
db eval {INSERT INTO t1 VALUES(:str)}
|
|
}
|
|
execsql {
|
|
SELECT count(*) FROM t1;
|
|
}
|
|
} {12}
|
|
|
|
# Test that both case sensitive and insensitive version of LIKE work.
|
|
#
|
|
do_test like-1.1 {
|
|
execsql {
|
|
SELECT x FROM t1 WHERE x LIKE 'abc' ORDER BY 1;
|
|
}
|
|
} {ABC abc}
|
|
do_test like-1.2 {
|
|
execsql {
|
|
SELECT x FROM t1 WHERE x GLOB 'abc' ORDER BY 1;
|
|
}
|
|
} {abc}
|
|
do_test like-1.3 {
|
|
execsql {
|
|
SELECT x FROM t1 WHERE x LIKE 'ABC' ORDER BY 1;
|
|
}
|
|
} {ABC abc}
|
|
do_test like-1.4 {
|
|
execsql {
|
|
SELECT x FROM t1 WHERE x LIKE 'aBc' ORDER BY 1;
|
|
}
|
|
} {ABC abc}
|
|
do_test like-1.5.1 {
|
|
# Use sqlite3_exec() to verify fix for ticket [25ee81271091] 2011-06-26
|
|
sqlite3_exec db {PRAGMA case_sensitive_like=on}
|
|
} {0 {}}
|
|
do_test like-1.5.2 {
|
|
execsql {
|
|
SELECT x FROM t1 WHERE x LIKE 'abc' ORDER BY 1;
|
|
}
|
|
} {abc}
|
|
do_test like-1.5.3 {
|
|
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;
|
|
}
|
|
} {abc}
|
|
do_test like-1.7 {
|
|
execsql {
|
|
SELECT x FROM t1 WHERE x LIKE 'ABC' ORDER BY 1;
|
|
}
|
|
} {ABC}
|
|
do_test like-1.8 {
|
|
execsql {
|
|
SELECT x FROM t1 WHERE x LIKE 'aBc' ORDER BY 1;
|
|
}
|
|
} {}
|
|
do_test like-1.9 {
|
|
execsql {
|
|
PRAGMA case_sensitive_like=off;
|
|
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
|
|
#
|
|
do_test like-2.1 {
|
|
proc test_regexp {a b} {
|
|
return [regexp $a $b]
|
|
}
|
|
db function regexp -argcount 2 test_regexp
|
|
execsql {
|
|
SELECT x FROM t1 WHERE x REGEXP 'abc' ORDER BY 1;
|
|
}
|
|
} {{ABC abc xyz} abc abcd}
|
|
do_test like-2.2 {
|
|
execsql {
|
|
SELECT x FROM t1 WHERE x REGEXP '^abc' ORDER BY 1;
|
|
}
|
|
} {abc abcd}
|
|
|
|
# Tests of the MATCH operator
|
|
#
|
|
do_test like-2.3 {
|
|
proc test_match {a b} {
|
|
return [string match $a $b]
|
|
}
|
|
db function match -argcount 2 test_match
|
|
execsql {
|
|
SELECT x FROM t1 WHERE x MATCH '*abc*' ORDER BY 1;
|
|
}
|
|
} {{ABC abc xyz} abc abcd}
|
|
do_test like-2.4 {
|
|
execsql {
|
|
SELECT x FROM t1 WHERE x MATCH 'abc*' ORDER BY 1;
|
|
}
|
|
} {abc abcd}
|
|
|
|
# For the remaining tests, we need to have the like optimizations
|
|
# enabled.
|
|
#
|
|
ifcapable !like_opt {
|
|
finish_test
|
|
return
|
|
}
|
|
|
|
# This procedure executes the SQL. Then it appends to the result the
|
|
# "sort" or "nosort" keyword (as in the cksort procedure above) then
|
|
# it appends the names of the table and index used.
|
|
#
|
|
proc queryplan {sql} {
|
|
set ::sqlite_sort_count 0
|
|
db cache flush
|
|
set data [execsql $sql]
|
|
if {$::sqlite_sort_count} {set x sort} {set x nosort}
|
|
lappend data $x
|
|
set eqp [execsql "EXPLAIN QUERY PLAN $sql"]
|
|
# puts eqp=$eqp
|
|
foreach {a b c x} $eqp {
|
|
if {[regexp {(SCAN|SEARCH) (\w+ AS )?(\w+) USING COVERING INDEX (\w+)\y} \
|
|
$x all ss as tab idx]} {
|
|
lappend data {} $idx
|
|
} elseif {[regexp {(SCAN|SEARCH) (\w+ AS )?(\w+) USING.* INDEX (\w+)\y} \
|
|
$x all ss as tab idx]} {
|
|
lappend data $tab $idx
|
|
} elseif {[regexp {(SCAN|SEARCH) (\w+ AS )?(\w+)\y} $x all ss as tab]} {
|
|
lappend data $tab *
|
|
}
|
|
}
|
|
return $data
|
|
}
|
|
|
|
# Perform tests on the like optimization.
|
|
#
|
|
# With no index on t1.x and with case sensitivity turned off, no optimization
|
|
# is performed.
|
|
#
|
|
do_test like-3.1 {
|
|
set sqlite_like_count 0
|
|
queryplan {
|
|
SELECT x FROM t1 WHERE x LIKE 'abc%' ORDER BY 1;
|
|
}
|
|
} {ABC {ABC abc xyz} abc abcd sort t1 *}
|
|
do_test like-3.2 {
|
|
set sqlite_like_count
|
|
} {12}
|
|
|
|
# With an index on t1.x and case sensitivity on, optimize completely.
|
|
#
|
|
do_test like-3.3.100 {
|
|
set sqlite_like_count 0
|
|
execsql {
|
|
PRAGMA case_sensitive_like=on;
|
|
CREATE INDEX i1 ON t1(x);
|
|
}
|
|
queryplan {
|
|
SELECT x FROM t1 WHERE x LIKE 'abc%' ORDER BY 1;
|
|
}
|
|
} {abc abcd nosort {} i1}
|
|
do_test like-3.3.100.cnt {
|
|
set sqlite_like_count
|
|
} 0
|
|
|
|
# The like optimization works even when the pattern is a bound parameter
|
|
#
|
|
# Exception: It does not work if sqlite3_prepare() is used instead of
|
|
# sqlite3_prepare_v2(), as in that case the statement cannot be reprepared
|
|
# after the parameter is bound.
|
|
#
|
|
unset -nocomplain ::likepat
|
|
set ::likepat abc%
|
|
if {[permutation]!="prepare"} {
|
|
do_test like-3.3.102 {
|
|
set sqlite_like_count 0
|
|
queryplan {
|
|
SELECT x FROM t1 WHERE x LIKE $::likepat ORDER BY 1;
|
|
}
|
|
} {abc abcd nosort {} i1}
|
|
do_test like-3.3.103 {
|
|
set sqlite_like_count
|
|
} 0
|
|
}
|
|
|
|
# Except, the like optimization does not work for bound parameters if
|
|
# the query planner stability guarantee is active.
|
|
#
|
|
do_test like-3.3.104 {
|
|
set sqlite_like_count 0
|
|
sqlite3_db_config db QPSG 1
|
|
queryplan {
|
|
SELECT x FROM t1 WHERE x LIKE $::likepat ORDER BY 1;
|
|
}
|
|
} {abc abcd nosort {} i1}
|
|
do_test like-3.3.105 {
|
|
set sqlite_like_count
|
|
} 12
|
|
|
|
# The query planner stability guarantee does not disrupt explicit patterns
|
|
#
|
|
do_test like-3.3.105 {
|
|
set sqlite_like_count 0
|
|
queryplan {
|
|
SELECT x FROM t1 WHERE x LIKE 'abc%' ORDER BY 1;
|
|
}
|
|
} {abc abcd nosort {} i1}
|
|
do_test like-3.3.106 {
|
|
set sqlite_like_count
|
|
} 0
|
|
sqlite3_db_config db QPSG 0
|
|
|
|
# The LIKE optimization still works when the RHS is a string with no
|
|
# wildcard. Ticket [e090183531fc2747]
|
|
#
|
|
do_test like-3.4.2 {
|
|
queryplan {
|
|
SELECT x FROM t1 WHERE x LIKE 'a' ORDER BY 1;
|
|
}
|
|
} {a nosort {} i1}
|
|
do_test like-3.4.3 {
|
|
queryplan {
|
|
SELECT x FROM t1 WHERE x LIKE 'ab' ORDER BY 1;
|
|
}
|
|
} {ab nosort {} i1}
|
|
do_test like-3.4.4 {
|
|
queryplan {
|
|
SELECT x FROM t1 WHERE x LIKE 'abcd' ORDER BY 1;
|
|
}
|
|
} {abcd nosort {} i1}
|
|
do_test like-3.4.5 {
|
|
queryplan {
|
|
SELECT x FROM t1 WHERE x LIKE 'abcde' ORDER BY 1;
|
|
}
|
|
} {nosort {} i1}
|
|
|
|
|
|
# Partial optimization when the pattern does not end in '%'
|
|
#
|
|
do_test like-3.5 {
|
|
set sqlite_like_count 0
|
|
queryplan {
|
|
SELECT x FROM t1 WHERE x LIKE 'a_c' ORDER BY 1;
|
|
}
|
|
} {abc nosort {} i1}
|
|
do_test like-3.6 {
|
|
set sqlite_like_count
|
|
} 6
|
|
do_test like-3.7 {
|
|
set sqlite_like_count 0
|
|
queryplan {
|
|
SELECT x FROM t1 WHERE x LIKE 'ab%d' ORDER BY 1;
|
|
}
|
|
} {abcd abd nosort {} i1}
|
|
do_test like-3.8 {
|
|
set sqlite_like_count
|
|
} 4
|
|
do_test like-3.9 {
|
|
set sqlite_like_count 0
|
|
queryplan {
|
|
SELECT x FROM t1 WHERE x LIKE 'a_c%' ORDER BY 1;
|
|
}
|
|
} {abc abcd nosort {} i1}
|
|
do_test like-3.10 {
|
|
set sqlite_like_count
|
|
} 6
|
|
|
|
# No optimization when the pattern begins with a wildcard.
|
|
# Note that the index is still used but only for sorting.
|
|
#
|
|
do_test like-3.11 {
|
|
set sqlite_like_count 0
|
|
queryplan {
|
|
SELECT x FROM t1 WHERE x LIKE '%bcd' ORDER BY 1;
|
|
}
|
|
} {abcd bcd nosort {} i1}
|
|
do_test like-3.12 {
|
|
set sqlite_like_count
|
|
} 12
|
|
|
|
# No optimization for case insensitive LIKE
|
|
#
|
|
do_test like-3.13 {
|
|
set sqlite_like_count 0
|
|
db eval {PRAGMA case_sensitive_like=off;}
|
|
queryplan {
|
|
SELECT x FROM t1 WHERE x LIKE 'abc%' ORDER BY 1;
|
|
}
|
|
} {ABC {ABC abc xyz} abc abcd nosort {} i1}
|
|
do_test like-3.14 {
|
|
set sqlite_like_count
|
|
} 12
|
|
|
|
# No optimization without an index.
|
|
#
|
|
do_test like-3.15 {
|
|
set sqlite_like_count 0
|
|
db eval {
|
|
PRAGMA case_sensitive_like=on;
|
|
DROP INDEX i1;
|
|
}
|
|
queryplan {
|
|
SELECT x FROM t1 WHERE x LIKE 'abc%' ORDER BY 1;
|
|
}
|
|
} {abc abcd sort t1 *}
|
|
do_test like-3.16 {
|
|
set sqlite_like_count
|
|
} 12
|
|
|
|
# No GLOB optimization without an index.
|
|
#
|
|
do_test like-3.17 {
|
|
set sqlite_like_count 0
|
|
queryplan {
|
|
SELECT x FROM t1 WHERE x GLOB 'abc*' ORDER BY 1;
|
|
}
|
|
} {abc abcd sort t1 *}
|
|
do_test like-3.18 {
|
|
set sqlite_like_count
|
|
} 12
|
|
|
|
# GLOB is optimized regardless of the case_sensitive_like setting.
|
|
#
|
|
do_test like-3.19 {
|
|
set sqlite_like_count 0
|
|
db eval {CREATE INDEX i1 ON t1(x);}
|
|
queryplan {
|
|
SELECT x FROM t1 WHERE x GLOB 'abc*' ORDER BY 1;
|
|
}
|
|
} {abc abcd nosort {} i1}
|
|
do_test like-3.20 {
|
|
set sqlite_like_count
|
|
} 0
|
|
do_test like-3.21 {
|
|
set sqlite_like_count 0
|
|
db eval {PRAGMA case_sensitive_like=on;}
|
|
queryplan {
|
|
SELECT x FROM t1 WHERE x GLOB 'abc*' ORDER BY 1;
|
|
}
|
|
} {abc abcd nosort {} i1}
|
|
do_test like-3.22 {
|
|
set sqlite_like_count
|
|
} 0
|
|
do_test like-3.23 {
|
|
set sqlite_like_count 0
|
|
db eval {PRAGMA case_sensitive_like=off;}
|
|
queryplan {
|
|
SELECT x FROM t1 WHERE x GLOB 'a[bc]d' ORDER BY 1;
|
|
}
|
|
} {abd acd nosort {} i1}
|
|
do_test like-3.24 {
|
|
set sqlite_like_count
|
|
} 6
|
|
|
|
# GLOB optimization when there is no wildcard. Ticket [e090183531fc2747]
|
|
#
|
|
do_test like-3.25 {
|
|
queryplan {
|
|
SELECT x FROM t1 WHERE x GLOB 'a' ORDER BY 1;
|
|
}
|
|
} {a nosort {} i1}
|
|
do_test like-3.26 {
|
|
queryplan {
|
|
SELECT x FROM t1 WHERE x GLOB 'abcd' ORDER BY 1;
|
|
}
|
|
} {abcd nosort {} i1}
|
|
do_test like-3.27 {
|
|
queryplan {
|
|
SELECT x FROM t1 WHERE x GLOB 'abcde' ORDER BY 1;
|
|
}
|
|
} {nosort {} i1}
|
|
|
|
|
|
|
|
# No optimization if the LHS of the LIKE is not a column name or
|
|
# if the RHS is not a string.
|
|
#
|
|
do_test like-4.1 {
|
|
execsql {PRAGMA case_sensitive_like=on}
|
|
set sqlite_like_count 0
|
|
queryplan {
|
|
SELECT x FROM t1 WHERE x LIKE 'abc%' ORDER BY 1
|
|
}
|
|
} {abc abcd nosort {} i1}
|
|
do_test like-4.2 {
|
|
set sqlite_like_count
|
|
} 0
|
|
do_test like-4.3 {
|
|
set sqlite_like_count 0
|
|
queryplan {
|
|
SELECT x FROM t1 WHERE +x LIKE 'abc%' ORDER BY 1
|
|
}
|
|
} {abc abcd nosort {} i1}
|
|
do_test like-4.4 {
|
|
set sqlite_like_count
|
|
} 12
|
|
do_test like-4.5 {
|
|
set sqlite_like_count 0
|
|
queryplan {
|
|
SELECT x FROM t1 WHERE x LIKE ('ab' || 'c%') ORDER BY 1
|
|
}
|
|
} {abc abcd nosort {} i1}
|
|
do_test like-4.6 {
|
|
set sqlite_like_count
|
|
} 12
|
|
|
|
# Collating sequences on the index disable the LIKE optimization.
|
|
# Or if the NOCASE collating sequence is used, the LIKE optimization
|
|
# is enabled when case_sensitive_like is OFF.
|
|
#
|
|
do_test like-5.1 {
|
|
execsql {PRAGMA case_sensitive_like=off}
|
|
set sqlite_like_count 0
|
|
queryplan {
|
|
SELECT x FROM t1 WHERE x LIKE 'abc%' ORDER BY 1
|
|
}
|
|
} {ABC {ABC abc xyz} abc abcd nosort {} i1}
|
|
do_test like-5.2 {
|
|
set sqlite_like_count
|
|
} 12
|
|
do_test like-5.3 {
|
|
execsql {
|
|
CREATE TABLE t2(x TEXT COLLATE NOCASE);
|
|
INSERT INTO t2 SELECT * FROM t1 ORDER BY rowid;
|
|
CREATE INDEX i2 ON t2(x COLLATE NOCASE);
|
|
}
|
|
set sqlite_like_count 0
|
|
queryplan {
|
|
SELECT x FROM t2 WHERE x LIKE 'abc%' ORDER BY 1
|
|
}
|
|
} {abc ABC {ABC abc xyz} abcd nosort {} i2}
|
|
do_test like-5.4 {
|
|
set sqlite_like_count
|
|
} 0
|
|
do_test like-5.5 {
|
|
execsql {
|
|
PRAGMA case_sensitive_like=on;
|
|
}
|
|
set sqlite_like_count 0
|
|
queryplan {
|
|
SELECT x FROM t2 WHERE x LIKE 'abc%' ORDER BY 1
|
|
}
|
|
} {abc abcd nosort {} i2}
|
|
do_test like-5.6 {
|
|
set sqlite_like_count
|
|
} 12
|
|
do_test like-5.7 {
|
|
execsql {
|
|
PRAGMA case_sensitive_like=off;
|
|
}
|
|
set sqlite_like_count 0
|
|
queryplan {
|
|
SELECT x FROM t2 WHERE x GLOB 'abc*' ORDER BY 1
|
|
}
|
|
} {abc abcd nosort {} i2}
|
|
do_test like-5.8 {
|
|
set sqlite_like_count
|
|
} 12
|
|
do_test like-5.11 {
|
|
execsql {PRAGMA case_sensitive_like=off}
|
|
set sqlite_like_count 0
|
|
queryplan {
|
|
SELECT x FROM t1 WHERE x LIKE 'ABC%' ORDER BY 1
|
|
}
|
|
} {ABC {ABC abc xyz} abc abcd nosort {} i1}
|
|
do_test like-5.12 {
|
|
set sqlite_like_count
|
|
} 12
|
|
do_test like-5.13 {
|
|
set sqlite_like_count 0
|
|
queryplan {
|
|
SELECT x FROM t2 WHERE x LIKE 'ABC%' ORDER BY 1
|
|
}
|
|
} {abc ABC {ABC abc xyz} abcd nosort {} i2}
|
|
do_test like-5.14 {
|
|
set sqlite_like_count
|
|
} 0
|
|
do_test like-5.15 {
|
|
execsql {
|
|
PRAGMA case_sensitive_like=on;
|
|
}
|
|
set sqlite_like_count 0
|
|
queryplan {
|
|
SELECT x FROM t2 WHERE x LIKE 'ABC%' ORDER BY 1
|
|
}
|
|
} {ABC {ABC abc xyz} nosort {} i2}
|
|
do_test like-5.16 {
|
|
set sqlite_like_count
|
|
} 12
|
|
do_test like-5.17 {
|
|
execsql {
|
|
PRAGMA case_sensitive_like=off;
|
|
}
|
|
set sqlite_like_count 0
|
|
queryplan {
|
|
SELECT x FROM t2 WHERE x GLOB 'ABC*' ORDER BY 1
|
|
}
|
|
} {ABC {ABC abc xyz} nosort {} i2}
|
|
do_test like-5.18 {
|
|
set sqlite_like_count
|
|
} 12
|
|
|
|
# Boundary case. The prefix for a LIKE comparison is rounded up
|
|
# when constructing the comparison. Example: "ab" becomes "ac".
|
|
# In other words, the last character is increased by one.
|
|
#
|
|
# Make sure this happens correctly when the last character is a
|
|
# "z" and we are doing case-insensitive comparisons.
|
|
#
|
|
# Ticket #2959
|
|
#
|
|
do_test like-5.21 {
|
|
execsql {
|
|
PRAGMA case_sensitive_like=off;
|
|
INSERT INTO t2 VALUES('ZZ-upper-upper');
|
|
INSERT INTO t2 VALUES('zZ-lower-upper');
|
|
INSERT INTO t2 VALUES('Zz-upper-lower');
|
|
INSERT INTO t2 VALUES('zz-lower-lower');
|
|
}
|
|
queryplan {
|
|
SELECT x FROM t2 WHERE x LIKE 'zz%';
|
|
}
|
|
} {zz-lower-lower zZ-lower-upper Zz-upper-lower ZZ-upper-upper nosort {} i2}
|
|
do_test like-5.22 {
|
|
queryplan {
|
|
SELECT x FROM t2 WHERE x LIKE 'zZ%';
|
|
}
|
|
} {zz-lower-lower zZ-lower-upper Zz-upper-lower ZZ-upper-upper nosort {} i2}
|
|
do_test like-5.23 {
|
|
queryplan {
|
|
SELECT x FROM t2 WHERE x LIKE 'Zz%';
|
|
}
|
|
} {zz-lower-lower zZ-lower-upper Zz-upper-lower ZZ-upper-upper nosort {} i2}
|
|
do_test like-5.24 {
|
|
queryplan {
|
|
SELECT x FROM t2 WHERE x LIKE 'ZZ%';
|
|
}
|
|
} {zz-lower-lower zZ-lower-upper Zz-upper-lower ZZ-upper-upper nosort {} i2}
|
|
do_test like-5.25 {
|
|
db eval {
|
|
PRAGMA case_sensitive_like=on;
|
|
CREATE TABLE t3(x TEXT);
|
|
CREATE INDEX i3 ON t3(x);
|
|
INSERT INTO t3 VALUES('ZZ-upper-upper');
|
|
INSERT INTO t3 VALUES('zZ-lower-upper');
|
|
INSERT INTO t3 VALUES('Zz-upper-lower');
|
|
INSERT INTO t3 VALUES('zz-lower-lower');
|
|
}
|
|
queryplan {
|
|
SELECT x FROM t3 WHERE x LIKE 'zz%';
|
|
}
|
|
} {zz-lower-lower nosort {} i3}
|
|
do_test like-5.26 {
|
|
queryplan {
|
|
SELECT x FROM t3 WHERE x LIKE 'zZ%';
|
|
}
|
|
} {zZ-lower-upper nosort {} i3}
|
|
do_test like-5.27 {
|
|
queryplan {
|
|
SELECT x FROM t3 WHERE x LIKE 'Zz%';
|
|
}
|
|
} {Zz-upper-lower nosort {} i3}
|
|
do_test like-5.28 {
|
|
queryplan {
|
|
SELECT x FROM t3 WHERE x LIKE 'ZZ%';
|
|
}
|
|
} {ZZ-upper-upper nosort {} i3}
|
|
|
|
|
|
# ticket #2407
|
|
#
|
|
# Make sure the LIKE prefix optimization does not strip off leading
|
|
# characters of the like pattern that happen to be quote characters.
|
|
#
|
|
do_test like-6.1 {
|
|
foreach x { 'abc 'bcd 'def 'ax } {
|
|
set x2 '[string map {' ''} $x]'
|
|
db eval "INSERT INTO t2 VALUES($x2)"
|
|
}
|
|
execsql {
|
|
SELECT * FROM t2 WHERE x LIKE '''a%'
|
|
}
|
|
} {'abc 'ax}
|
|
|
|
do_test like-7.1 {
|
|
execsql {
|
|
SELECT rowid, * FROM t1 WHERE rowid GLOB '1*' ORDER BY rowid;
|
|
}
|
|
} {1 a 10 ABC 11 CDE 12 {ABC abc xyz}}
|
|
|
|
# ticket #3345.
|
|
#
|
|
# Overloading the LIKE function with -1 for the number of arguments
|
|
# will overload both the 2-argument and the 3-argument LIKE.
|
|
#
|
|
do_test like-8.1 {
|
|
db eval {
|
|
CREATE TABLE t8(x);
|
|
INSERT INTO t8 VALUES('abcdef');
|
|
INSERT INTO t8 VALUES('ghijkl');
|
|
INSERT INTO t8 VALUES('mnopqr');
|
|
SELECT 1, x FROM t8 WHERE x LIKE '%h%';
|
|
SELECT 2, x FROM t8 WHERE x LIKE '%h%' ESCAPE 'x';
|
|
}
|
|
} {1 ghijkl 2 ghijkl}
|
|
do_test like-8.2 {
|
|
proc newlike {args} {return 1} ;# Alternative LIKE is always return TRUE
|
|
db function like newlike ;# Uses -1 for nArg in sqlite3_create_function
|
|
db cache flush
|
|
db eval {
|
|
SELECT 1, x FROM t8 WHERE x LIKE '%h%';
|
|
SELECT 2, x FROM t8 WHERE x LIKE '%h%' ESCAPE 'x';
|
|
}
|
|
} {1 ghijkl 2 ghijkl}
|
|
do_test like-8.3 {
|
|
db function like -argcount 2 newlike
|
|
db eval {
|
|
SELECT 1, x FROM t8 WHERE x LIKE '%h%';
|
|
SELECT 2, x FROM t8 WHERE x LIKE '%h%' ESCAPE 'x';
|
|
}
|
|
} {1 abcdef 1 ghijkl 1 mnopqr 2 ghijkl}
|
|
do_test like-8.4 {
|
|
db function like -argcount 3 newlike
|
|
db eval {
|
|
SELECT 1, x FROM t8 WHERE x LIKE '%h%';
|
|
SELECT 2, x FROM t8 WHERE x LIKE '%h%' ESCAPE 'x';
|
|
}
|
|
} {1 abcdef 1 ghijkl 1 mnopqr 2 abcdef 2 ghijkl 2 mnopqr}
|
|
|
|
|
|
ifcapable like_opt&&!icu {
|
|
# Evaluate SQL. Return the result set followed by the
|
|
# and the number of full-scan steps.
|
|
#
|
|
db close
|
|
sqlite3 db test.db
|
|
proc count_steps {sql} {
|
|
set r [db eval $sql]
|
|
lappend r scan [db status step] sort [db status sort]
|
|
}
|
|
do_test like-9.1 {
|
|
count_steps {
|
|
SELECT x FROM t2 WHERE x LIKE 'x%'
|
|
}
|
|
} {xyz scan 0 sort 0}
|
|
do_test like-9.2 {
|
|
count_steps {
|
|
SELECT x FROM t2 WHERE x LIKE '_y%'
|
|
}
|
|
} {xyz scan 19 sort 0}
|
|
do_test like-9.3.1 {
|
|
set res [sqlite3_exec_hex db {
|
|
SELECT x FROM t2 WHERE x LIKE '%78%25'
|
|
}]
|
|
} {0 {x xyz}}
|
|
ifcapable explain {
|
|
do_test like-9.3.2 {
|
|
set res [sqlite3_exec_hex db {
|
|
EXPLAIN QUERY PLAN SELECT x FROM t2 WHERE x LIKE '%78%25'
|
|
}]
|
|
regexp {INDEX i2} $res
|
|
} {1}
|
|
}
|
|
do_test like-9.4.1 {
|
|
sqlite3_exec_hex db {INSERT INTO t2 VALUES('%ffhello')}
|
|
set res [sqlite3_exec_hex db {
|
|
SELECT substr(x,2) AS x FROM t2 WHERE +x LIKE '%ff%25'
|
|
}]
|
|
} {0 {x hello}}
|
|
do_test like-9.4.2 {
|
|
set res [sqlite3_exec_hex db {
|
|
SELECT substr(x,2) AS x FROM t2 WHERE x LIKE '%ff%25'
|
|
}]
|
|
} {0 {x hello}}
|
|
ifcapable explain {
|
|
do_test like-9.4.3 {
|
|
set res [sqlite3_exec_hex db {
|
|
EXPLAIN QUERY PLAN SELECT x FROM t2 WHERE x LIKE '%ff%25'
|
|
}]
|
|
regexp {SCAN t2} $res
|
|
} {1}
|
|
}
|
|
do_test like-9.5.1 {
|
|
set res [sqlite3_exec_hex db {
|
|
SELECT x FROM t2 WHERE x LIKE '%fe%25'
|
|
}]
|
|
} {0 {}}
|
|
ifcapable explain {
|
|
do_test like-9.5.2 {
|
|
set res [sqlite3_exec_hex db {
|
|
EXPLAIN QUERY PLAN SELECT x FROM t2 WHERE x LIKE '%fe%25'
|
|
}]
|
|
regexp {INDEX i2} $res
|
|
} {1}
|
|
}
|
|
|
|
# Do an SQL statement. Append the search count to the end of the result.
|
|
#
|
|
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
|
|
# affinity other than TEXT.
|
|
# Ticket #3901
|
|
#
|
|
do_test like-10.1 {
|
|
db close
|
|
sqlite3 db test.db
|
|
execsql {
|
|
CREATE TABLE t10(
|
|
a INTEGER PRIMARY KEY,
|
|
b INTEGER COLLATE nocase UNIQUE,
|
|
c NUMBER COLLATE nocase UNIQUE,
|
|
d BLOB COLLATE nocase UNIQUE,
|
|
e COLLATE nocase UNIQUE,
|
|
f TEXT COLLATE nocase UNIQUE
|
|
);
|
|
INSERT INTO t10 VALUES(1,1,1,1,1,1);
|
|
INSERT INTO t10 VALUES(12,12,12,12,12,12);
|
|
INSERT INTO t10 VALUES(123,123,123,123,123,123);
|
|
INSERT INTO t10 VALUES(234,234,234,234,234,234);
|
|
INSERT INTO t10 VALUES(345,345,345,345,345,345);
|
|
INSERT INTO t10 VALUES(45,45,45,45,45,45);
|
|
}
|
|
count {
|
|
SELECT a FROM t10 WHERE b LIKE '12%' ORDER BY +a;
|
|
}
|
|
} {12 123 scan 5 like 6}
|
|
do_test like-10.2 {
|
|
count {
|
|
SELECT a FROM t10 WHERE c LIKE '12%' ORDER BY +a;
|
|
}
|
|
} {12 123 scan 5 like 6}
|
|
do_test like-10.3 {
|
|
count {
|
|
SELECT a FROM t10 WHERE d LIKE '12%' ORDER BY +a;
|
|
}
|
|
} {12 123 scan 5 like 6}
|
|
do_test like-10.4 {
|
|
count {
|
|
SELECT a FROM t10 WHERE e LIKE '12%' ORDER BY +a;
|
|
}
|
|
} {12 123 scan 5 like 6}
|
|
ifcapable like_match_blobs {
|
|
do_test like-10.5a {
|
|
count {
|
|
SELECT a FROM t10 WHERE f LIKE '12%' ORDER BY +a;
|
|
}
|
|
} {12 123 scan 4 like 0}
|
|
} else {
|
|
do_test like-10.5b {
|
|
count {
|
|
SELECT a FROM t10 WHERE f LIKE '12%' ORDER BY +a;
|
|
}
|
|
} {12 123 scan 3 like 0}
|
|
}
|
|
do_test like-10.6 {
|
|
count {
|
|
SELECT a FROM t10 WHERE a LIKE '12%' ORDER BY +a;
|
|
}
|
|
} {12 123 scan 5 like 6}
|
|
do_test like-10.10 {
|
|
execsql {
|
|
CREATE TABLE t10b(
|
|
a INTEGER PRIMARY KEY,
|
|
b INTEGER UNIQUE,
|
|
c NUMBER UNIQUE,
|
|
d BLOB UNIQUE,
|
|
e UNIQUE,
|
|
f TEXT UNIQUE
|
|
);
|
|
INSERT INTO t10b SELECT * FROM t10;
|
|
}
|
|
count {
|
|
SELECT a FROM t10b WHERE b GLOB '12*' ORDER BY +a;
|
|
}
|
|
} {12 123 scan 5 like 6}
|
|
do_test like-10.11 {
|
|
count {
|
|
SELECT a FROM t10b WHERE c GLOB '12*' ORDER BY +a;
|
|
}
|
|
} {12 123 scan 5 like 6}
|
|
do_test like-10.12 {
|
|
count {
|
|
SELECT a FROM t10b WHERE d GLOB '12*' ORDER BY +a;
|
|
}
|
|
} {12 123 scan 5 like 6}
|
|
do_test like-10.13 {
|
|
count {
|
|
SELECT a FROM t10b WHERE e GLOB '12*' ORDER BY +a;
|
|
}
|
|
} {12 123 scan 5 like 6}
|
|
ifcapable like_match_blobs {
|
|
do_test like-10.14 {
|
|
count {
|
|
SELECT a FROM t10b WHERE f GLOB '12*' ORDER BY +a;
|
|
}
|
|
} {12 123 scan 4 like 0}
|
|
} else {
|
|
do_test like-10.14 {
|
|
count {
|
|
SELECT a FROM t10b WHERE f GLOB '12*' ORDER BY +a;
|
|
}
|
|
} {12 123 scan 3 like 0}
|
|
}
|
|
do_test like-10.15 {
|
|
count {
|
|
SELECT a FROM t10b WHERE a GLOB '12*' ORDER BY +a;
|
|
}
|
|
} {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.
|
|
#
|
|
do_test like-11.0 {
|
|
execsql {
|
|
CREATE TABLE t11(
|
|
a INTEGER PRIMARY KEY,
|
|
b TEXT COLLATE nocase,
|
|
c TEXT COLLATE binary
|
|
);
|
|
INSERT INTO t11 VALUES(1, 'a','a');
|
|
INSERT INTO t11 VALUES(2, 'ab','ab');
|
|
INSERT INTO t11 VALUES(3, 'abc','abc');
|
|
INSERT INTO t11 VALUES(4, 'abcd','abcd');
|
|
INSERT INTO t11 VALUES(5, 'A','A');
|
|
INSERT INTO t11 VALUES(6, 'AB','AB');
|
|
INSERT INTO t11 VALUES(7, 'ABC','ABC');
|
|
INSERT INTO t11 VALUES(8, 'ABCD','ABCD');
|
|
INSERT INTO t11 VALUES(9, 'x','x');
|
|
INSERT INTO t11 VALUES(10, 'yz','yz');
|
|
INSERT INTO t11 VALUES(11, 'X','X');
|
|
INSERT INTO t11 VALUES(12, 'YZ','YZ');
|
|
SELECT count(*) FROM t11;
|
|
}
|
|
} {12}
|
|
do_test like-11.1 {
|
|
db eval {PRAGMA case_sensitive_like=OFF;}
|
|
queryplan {
|
|
SELECT b FROM t11 WHERE b LIKE 'abc%' ORDER BY a;
|
|
}
|
|
} {abc abcd ABC ABCD nosort t11 *}
|
|
do_test like-11.2 {
|
|
db eval {PRAGMA case_sensitive_like=ON;}
|
|
queryplan {
|
|
SELECT b FROM t11 WHERE b LIKE 'abc%' ORDER BY a;
|
|
}
|
|
} {abc abcd nosort t11 *}
|
|
do_test like-11.3 {
|
|
db eval {
|
|
PRAGMA case_sensitive_like=OFF;
|
|
CREATE INDEX t11b ON t11(b);
|
|
}
|
|
queryplan {
|
|
SELECT b FROM t11 WHERE b LIKE 'abc%' ORDER BY +a;
|
|
}
|
|
} {abc abcd ABC ABCD sort {} t11b}
|
|
do_test like-11.4 {
|
|
db eval {PRAGMA case_sensitive_like=ON;}
|
|
queryplan {
|
|
SELECT b FROM t11 WHERE b LIKE 'abc%' ORDER BY a;
|
|
}
|
|
} {abc abcd nosort t11 *}
|
|
do_test like-11.5 {
|
|
db eval {
|
|
PRAGMA case_sensitive_like=OFF;
|
|
DROP INDEX t11b;
|
|
CREATE INDEX t11bnc ON t11(b COLLATE nocase);
|
|
}
|
|
queryplan {
|
|
SELECT b FROM t11 WHERE b LIKE 'abc%' ORDER BY +a;
|
|
}
|
|
} {abc abcd ABC ABCD sort {} t11bnc}
|
|
do_test like-11.6 {
|
|
db eval {CREATE INDEX t11bb ON t11(b COLLATE binary);}
|
|
queryplan {
|
|
SELECT b FROM t11 WHERE b LIKE 'abc%' ORDER BY +a;
|
|
}
|
|
} {abc abcd ABC ABCD sort {} t11bnc}
|
|
do_test like-11.7 {
|
|
db eval {PRAGMA case_sensitive_like=ON;}
|
|
queryplan {
|
|
SELECT b FROM t11 WHERE b LIKE 'abc%' ORDER BY +a;
|
|
}
|
|
} {abc abcd sort {} t11bb}
|
|
do_test like-11.8 {
|
|
db eval {PRAGMA case_sensitive_like=OFF;}
|
|
queryplan {
|
|
SELECT b FROM t11 WHERE b GLOB 'abc*' ORDER BY +a;
|
|
}
|
|
} {abc abcd sort {} t11bb}
|
|
do_test like-11.9 {
|
|
db eval {
|
|
CREATE INDEX t11cnc ON t11(c COLLATE nocase);
|
|
CREATE INDEX t11cb ON t11(c COLLATE binary);
|
|
}
|
|
queryplan {
|
|
SELECT c FROM t11 WHERE c LIKE 'abc%' ORDER BY +a;
|
|
}
|
|
} {abc abcd ABC ABCD sort {} t11cnc}
|
|
do_test like-11.10 {
|
|
queryplan {
|
|
SELECT c FROM t11 WHERE c GLOB 'abc*' ORDER BY +a;
|
|
}
|
|
} {abc abcd sort {} t11cb}
|
|
|
|
# A COLLATE clause on the pattern does not change the result of a
|
|
# LIKE operator.
|
|
#
|
|
do_execsql_test like-12.1 {
|
|
CREATE TABLE t12nc(id INTEGER, x TEXT UNIQUE COLLATE nocase);
|
|
INSERT INTO t12nc VALUES(1,'abcde'),(2,'uvwxy'),(3,'ABCDEF');
|
|
CREATE TABLE t12b(id INTEGER, x TEXT UNIQUE COLLATE binary);
|
|
INSERT INTO t12b VALUES(1,'abcde'),(2,'uvwxy'),(3,'ABCDEF');
|
|
SELECT id FROM t12nc WHERE x LIKE 'abc%' ORDER BY +id;
|
|
} {1 3}
|
|
do_execsql_test like-12.2 {
|
|
SELECT id FROM t12b WHERE x LIKE 'abc%' ORDER BY +id;
|
|
} {1 3}
|
|
do_execsql_test like-12.3 {
|
|
SELECT id FROM t12nc WHERE x LIKE 'abc%' COLLATE binary ORDER BY +id;
|
|
} {1 3}
|
|
do_execsql_test like-12.4 {
|
|
SELECT id FROM t12b WHERE x LIKE 'abc%' COLLATE binary ORDER BY +id;
|
|
} {1 3}
|
|
do_execsql_test like-12.5 {
|
|
SELECT id FROM t12nc WHERE x LIKE 'abc%' COLLATE nocase ORDER BY +id;
|
|
} {1 3}
|
|
do_execsql_test like-12.6 {
|
|
SELECT id FROM t12b WHERE x LIKE 'abc%' COLLATE nocase ORDER BY +id;
|
|
} {1 3}
|
|
|
|
# Adding a COLLATE clause to the pattern of a LIKE operator does nothing
|
|
# to change the suitability of using an index to satisfy that LIKE
|
|
# operator.
|
|
#
|
|
do_execsql_test like-12.11 {
|
|
EXPLAIN QUERY PLAN
|
|
SELECT id FROM t12nc WHERE x LIKE 'abc%' ORDER BY +id;
|
|
} {/SEARCH/}
|
|
do_execsql_test like-12.12 {
|
|
EXPLAIN QUERY PLAN
|
|
SELECT id FROM t12b WHERE x LIKE 'abc%' ORDER BY +id;
|
|
} {/SCAN/}
|
|
do_execsql_test like-12.13 {
|
|
EXPLAIN QUERY PLAN
|
|
SELECT id FROM t12nc WHERE x LIKE 'abc%' COLLATE nocase ORDER BY +id;
|
|
} {/SEARCH/}
|
|
do_execsql_test like-12.14 {
|
|
EXPLAIN QUERY PLAN
|
|
SELECT id FROM t12b WHERE x LIKE 'abc%' COLLATE nocase ORDER BY +id;
|
|
} {/SCAN/}
|
|
do_execsql_test like-12.15 {
|
|
EXPLAIN QUERY PLAN
|
|
SELECT id FROM t12nc WHERE x LIKE 'abc%' COLLATE binary ORDER BY +id;
|
|
} {/SEARCH/}
|
|
do_execsql_test like-12.16 {
|
|
EXPLAIN QUERY PLAN
|
|
SELECT id FROM t12b WHERE x LIKE 'abc%' COLLATE binary ORDER BY +id;
|
|
} {/SCAN/}
|
|
|
|
# Ticket [https://www.sqlite.org/src/tktview/80369eddd5c94d49f7fbbcf5]
|
|
# 2016-01-20
|
|
#
|
|
do_execsql_test like-13.1 {
|
|
SELECT char(0x304d) LIKE char(0x306d);
|
|
} {0}
|
|
do_execsql_test like-13.2 {
|
|
SELECT char(0x4d) LIKE char(0x306d);
|
|
} {0}
|
|
do_execsql_test like-13.3 {
|
|
SELECT char(0x304d) LIKE char(0x6d);
|
|
} {0}
|
|
do_execsql_test like-13.4 {
|
|
SELECT char(0x4d) LIKE char(0x6d);
|
|
} {1}
|
|
|
|
# Performance testing for patterns with many wildcards. These LIKE and GLOB
|
|
# patterns were quite slow with SQLite 3.15.2 and earlier.
|
|
#
|
|
do_test like-14.1 {
|
|
set x [lindex [time {
|
|
db one {SELECT 'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaz'GLOB'*a*a*a*a*a*a*a*a*y'}
|
|
}] 0]
|
|
set tlimit [expr {1000 * $::sqlite_options(configslower)}]
|
|
puts -nonewline " ($x ms - want less than $tlimit) "
|
|
expr {$x<$tlimit}
|
|
} {1}
|
|
ifcapable !icu {
|
|
do_test like-14.2 {
|
|
set x [lindex [time {
|
|
db one {SELECT 'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaz'LIKE'%a%a%a%a%a%a%a%a%y'}
|
|
}] 0]
|
|
set tlimit [expr {1000 * $::sqlite_options(configslower)}]
|
|
puts -nonewline " ($x ms - want less than $tlimit) "
|
|
expr {$x<$tlimit}
|
|
} {1}
|
|
}
|
|
|
|
ifcapable !icu {
|
|
# As of 2017-07-27 (3.21.0) the LIKE optimization works with ESCAPE as
|
|
# long as the ESCAPE is a single-byte literal.
|
|
#
|
|
db close
|
|
sqlite3 db :memory:
|
|
do_execsql_test like-15.100 {
|
|
CREATE TABLE t15(x TEXT COLLATE nocase, y, PRIMARY KEY(x));
|
|
INSERT INTO t15(x,y) VALUES
|
|
('abcde',1), ('ab%de',2), ('a_cde',3),
|
|
('uvwxy',11),('uvwx%',12),('uvwx_',13),
|
|
('_bcde',21),('%bcde',22),
|
|
('abcd_',31),('abcd%',32),
|
|
('ab%xy',41);
|
|
SELECT y FROM t15 WHERE x LIKE 'ab/%d%' ESCAPE '/';
|
|
} {2}
|
|
do_execsql_test like-15.101 {
|
|
EXPLAIN QUERY PLAN
|
|
SELECT y FROM t15 WHERE x LIKE 'ab/%d%' ESCAPE '/';
|
|
} {/SEARCH/}
|
|
do_execsql_test like-15.102 {
|
|
EXPLAIN QUERY PLAN
|
|
SELECT y FROM t15 WHERE x LIKE 'ab/%d%' ESCAPE '//';
|
|
} {/SCAN/}
|
|
do_execsql_test like-15.103 {
|
|
EXPLAIN QUERY PLAN
|
|
SELECT y FROM t15 WHERE x LIKE 'ab/%d%' ESCAPE '';
|
|
} {/SCAN/}
|
|
do_execsql_test like-15.110 {
|
|
SELECT y FROM t15 WHERE x LIKE 'abcdx%%' ESCAPE 'x';
|
|
} {32}
|
|
do_execsql_test like-15.111 {
|
|
SELECT y FROM t15 WHERE x LIKE 'abx%%' ESCAPE 'x' ORDER BY +y
|
|
} {2 41}
|
|
do_execsql_test like-15.112 {
|
|
EXPLAIN QUERY PLAN
|
|
SELECT y FROM t15 WHERE x LIKE 'abx%%' ESCAPE 'x' ORDER BY +y
|
|
} {/SEARCH/}
|
|
do_execsql_test like-15.120 {
|
|
SELECT y FROM t15 WHERE x LIKE '/%bc%' ESCAPE '/';
|
|
} {22}
|
|
do_execsql_test like-15.121 {
|
|
EXPLAIN QUERY PLAN
|
|
SELECT y FROM t15 WHERE x LIKE '/%bc%' ESCAPE '/';
|
|
} {/SEARCH/}
|
|
}
|
|
|
|
#-------------------------------------------------------------------------
|
|
# Tests for ticket [b1d8c79314].
|
|
#
|
|
reset_db
|
|
do_execsql_test 16.0 {
|
|
CREATE TABLE t1(a INTEGER COLLATE NOCASE);
|
|
CREATE INDEX i1 ON t1(a);
|
|
INSERT INTO t1 VALUES(' 1x');
|
|
INSERT INTO t1 VALUES(' 1-');
|
|
}
|
|
do_execsql_test 16.1 {
|
|
SELECT * FROM t1 WHERE a LIKE ' 1%';
|
|
} {{ 1x} { 1-}}
|
|
do_execsql_test 16.2 {
|
|
SELECT * FROM t1 WHERE a LIKE ' 1-';
|
|
} {{ 1-}}
|
|
|
|
# 2020-03-19
|
|
# The ESCAPE clause on LIKE takes precedence over wildcards
|
|
#
|
|
do_execsql_test 17.0 {
|
|
DROP TABLE IF EXISTS t1;
|
|
CREATE TABLE t1(id INTEGER PRIMARY KEY, x TEXT);
|
|
INSERT INTO t1 VALUES
|
|
(1,'abcde'),
|
|
(2,'abc_'),
|
|
(3,'abc__'),
|
|
(4,'abc%'),
|
|
(5,'abc%%');
|
|
SELECT id FROM t1 WHERE x LIKE 'abc%%' ESCAPE '%';
|
|
} {4}
|
|
do_execsql_test 17.1 {
|
|
SELECT id FROM t1 WHERE x LIKE 'abc__' ESCAPE '_';
|
|
} {2}
|
|
|
|
# 2021-02-15 ticket c0aeea67d58ae0fd
|
|
#
|
|
do_execsql_test 17.1 {
|
|
SELECT 'x' LIKE '%' ESCAPE '_';
|
|
} {1}
|
|
|
|
|
|
finish_test
|