/trunk/test/func2.test |
@@ -0,0 +1,511 @@ |
# 2009 November 11 |
# |
# 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 built-in functions. |
# |
|
set testdir [file dirname $argv0] |
source $testdir/tester.tcl |
|
# Test plan: |
# |
# func2-1.*: substr implementation (ascii) |
# func2-2.*: substr implementation (utf8) |
# func2-3.*: substr implementation (blob) |
# |
|
proc bin_to_hex {blob} { |
set bytes {} |
binary scan $blob \c* bytes |
set bytes2 [list] |
foreach b $bytes {lappend bytes2 [format %02X [expr $b & 0xFF]]} |
join $bytes2 {} |
} |
|
#---------------------------------------------------------------------------- |
# Test cases func2-1.*: substr implementation (ascii) |
# |
|
do_test func2-1.1 { |
execsql {SELECT 'Supercalifragilisticexpialidocious'} |
} {Supercalifragilisticexpialidocious} |
|
# substr(x,y), substr(x,y,z) |
do_test func2-1.2.1 { |
catchsql {SELECT SUBSTR()} |
} {1 {wrong number of arguments to function SUBSTR()}} |
do_test func2-1.2.2 { |
catchsql {SELECT SUBSTR('Supercalifragilisticexpialidocious')} |
} {1 {wrong number of arguments to function SUBSTR()}} |
do_test func2-1.2.3 { |
catchsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 1,1,1)} |
} {1 {wrong number of arguments to function SUBSTR()}} |
|
# p1 is 1-indexed |
do_test func2-1.3 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 0)} |
} {Supercalifragilisticexpialidocious} |
do_test func2-1.4 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 1)} |
} {Supercalifragilisticexpialidocious} |
do_test func2-1.5 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 2)} |
} {upercalifragilisticexpialidocious} |
do_test func2-1.6 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 30)} |
} {cious} |
do_test func2-1.7 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 34)} |
} {s} |
do_test func2-1.8 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 35)} |
} {{}} |
do_test func2-1.9 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 36)} |
} {{}} |
|
# if p1<0, start from right |
do_test func2-1.10 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', -0)} |
} {Supercalifragilisticexpialidocious} |
do_test func2-1.11 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', -1)} |
} {s} |
do_test func2-1.12 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', -2)} |
} {us} |
do_test func2-1.13 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', -30)} |
} {rcalifragilisticexpialidocious} |
do_test func2-1.14 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', -34)} |
} {Supercalifragilisticexpialidocious} |
do_test func2-1.15 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', -35)} |
} {Supercalifragilisticexpialidocious} |
do_test func2-1.16 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', -36)} |
} {Supercalifragilisticexpialidocious} |
|
# p1 is 1-indexed, p2 length to return |
do_test func2-1.17.1 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 0, 1)} |
} {{}} |
do_test func2-1.17.2 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 0, 2)} |
} {S} |
do_test func2-1.18 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 1, 1)} |
} {S} |
do_test func2-1.19.0 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 2, 0)} |
} {{}} |
do_test func2-1.19.1 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 2, 1)} |
} {u} |
do_test func2-1.19.2 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 2, 2)} |
} {up} |
do_test func2-1.20 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 30, 1)} |
} {c} |
do_test func2-1.21 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 34, 1)} |
} {s} |
do_test func2-1.22 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 35, 1)} |
} {{}} |
do_test func2-1.23 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 36, 1)} |
} {{}} |
|
# if p1<0, start from right, p2 length to return |
do_test func2-1.24 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', -0, 1)} |
} {{}} |
do_test func2-1.25.0 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', -1, 0)} |
} {{}} |
do_test func2-1.25.1 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', -1, 1)} |
} {s} |
do_test func2-1.25.2 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', -1, 2)} |
} {s} |
do_test func2-1.26 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', -2, 1)} |
} {u} |
do_test func2-1.27 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', -30, 1)} |
} {r} |
do_test func2-1.28.0 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', -34, 0)} |
} {{}} |
do_test func2-1.28.1 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', -34, 1)} |
} {S} |
do_test func2-1.28.2 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', -34, 2)} |
} {Su} |
do_test func2-1.29.1 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', -35, 1)} |
} {{}} |
do_test func2-1.29.2 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', -35, 2)} |
} {S} |
do_test func2-1.30.0 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', -36, 0)} |
} {{}} |
do_test func2-1.30.1 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', -36, 1)} |
} {{}} |
do_test func2-1.30.2 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', -36, 2)} |
} {{}} |
do_test func2-1.30.3 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', -36, 3)} |
} {S} |
|
# p1 is 1-indexed, p2 length to return, p2<0 return p2 chars before p1 |
do_test func2-1.31.0 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 0, 0)} |
} {{}} |
do_test func2-1.31.1 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 0, -1)} |
} {{}} |
do_test func2-1.31.2 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 0, -2)} |
} {{}} |
do_test func2-1.32.0 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 1, 0)} |
} {{}} |
do_test func2-1.32.1 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 1, -1)} |
} {{}} |
do_test func2-1.33.0 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 2, 0)} |
} {{}} |
do_test func2-1.33.1 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 2, -1)} |
} {S} |
do_test func2-1.33.2 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 2, -2)} |
} {S} |
do_test func2-1.34.0 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 3, 0)} |
} {{}} |
do_test func2-1.34.1 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 3, -1)} |
} {u} |
do_test func2-1.34.2 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 3, -2)} |
} {Su} |
do_test func2-1.35.1 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 30, -1)} |
} {o} |
do_test func2-1.35.2 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 30, -2)} |
} {do} |
do_test func2-1.36 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 34, -1)} |
} {u} |
do_test func2-1.37 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 35, -1)} |
} {s} |
do_test func2-1.38.0 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 36, 0)} |
} {{}} |
do_test func2-1.38.1 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 36, -1)} |
} {{}} |
do_test func2-1.38.2 { |
execsql {SELECT SUBSTR('Supercalifragilisticexpialidocious', 36, -2)} |
} {s} |
|
|
#---------------------------------------------------------------------------- |
# Test cases func2-2.*: substr implementation (utf8) |
# |
|
# Only do the following tests if TCL has UTF-8 capabilities |
# |
if {"\u1234"!="u1234"} { |
|
do_test func2-2.1.1 { |
execsql "SELECT 'hi\u1234ho'" |
} "hi\u1234ho" |
|
# substr(x,y), substr(x,y,z) |
do_test func2-2.1.2 { |
catchsql "SELECT SUBSTR()" |
} {1 {wrong number of arguments to function SUBSTR()}} |
do_test func2-2.1.3 { |
catchsql "SELECT SUBSTR('hi\u1234ho')" |
} {1 {wrong number of arguments to function SUBSTR()}} |
do_test func2-2.1.4 { |
catchsql "SELECT SUBSTR('hi\u1234ho', 1,1,1)" |
} {1 {wrong number of arguments to function SUBSTR()}} |
|
do_test func2-2.2.0 { |
execsql "SELECT SUBSTR('hi\u1234ho', 0, 0)" |
} {{}} |
do_test func2-2.2.1 { |
execsql "SELECT SUBSTR('hi\u1234ho', 0, 1)" |
} {{}} |
do_test func2-2.2.2 { |
execsql "SELECT SUBSTR('hi\u1234ho', 0, 2)" |
} "h" |
do_test func2-2.2.3 { |
execsql "SELECT SUBSTR('hi\u1234ho', 0, 3)" |
} "hi" |
do_test func2-2.2.4 { |
execsql "SELECT SUBSTR('hi\u1234ho', 0, 4)" |
} "hi\u1234" |
do_test func2-2.2.5 { |
execsql "SELECT SUBSTR('hi\u1234ho', 0, 5)" |
} "hi\u1234h" |
do_test func2-2.2.6 { |
execsql "SELECT SUBSTR('hi\u1234ho', 0, 6)" |
} "hi\u1234ho" |
|
do_test func2-2.3.0 { |
execsql "SELECT SUBSTR('hi\u1234ho', 1, 0)" |
} {{}} |
do_test func2-2.3.1 { |
execsql "SELECT SUBSTR('hi\u1234ho', 1, 1)" |
} "h" |
do_test func2-2.3.2 { |
execsql "SELECT SUBSTR('hi\u1234ho', 1, 2)" |
} "hi" |
do_test func2-2.3.3 { |
execsql "SELECT SUBSTR('hi\u1234ho', 1, 3)" |
} "hi\u1234" |
do_test func2-2.3.4 { |
execsql "SELECT SUBSTR('hi\u1234ho', 1, 4)" |
} "hi\u1234h" |
do_test func2-2.3.5 { |
execsql "SELECT SUBSTR('hi\u1234ho', 1, 5)" |
} "hi\u1234ho" |
do_test func2-2.3.6 { |
execsql "SELECT SUBSTR('hi\u1234ho', 1, 6)" |
} "hi\u1234ho" |
|
do_test func2-2.4.0 { |
execsql "SELECT SUBSTR('hi\u1234ho', 3, 0)" |
} {{}} |
do_test func2-2.4.1 { |
execsql "SELECT SUBSTR('hi\u1234ho', 3, 1)" |
} "\u1234" |
do_test func2-2.4.2 { |
execsql "SELECT SUBSTR('hi\u1234ho', 3, 2)" |
} "\u1234h" |
|
do_test func2-2.5.0 { |
execsql "SELECT SUBSTR('\u1234', 0, 0)" |
} {{}} |
do_test func2-2.5.1 { |
execsql "SELECT SUBSTR('\u1234', 0, 1)" |
} {{}} |
do_test func2-2.5.2 { |
execsql "SELECT SUBSTR('\u1234', 0, 2)" |
} "\u1234" |
do_test func2-2.5.3 { |
execsql "SELECT SUBSTR('\u1234', 0, 3)" |
} "\u1234" |
|
do_test func2-2.6.0 { |
execsql "SELECT SUBSTR('\u1234', 1, 0)" |
} {{}} |
do_test func2-2.6.1 { |
execsql "SELECT SUBSTR('\u1234', 1, 1)" |
} "\u1234" |
do_test func2-2.6.2 { |
execsql "SELECT SUBSTR('\u1234', 1, 2)" |
} "\u1234" |
do_test func2-2.6.3 { |
execsql "SELECT SUBSTR('\u1234', 1, 3)" |
} "\u1234" |
|
do_test func2-2.7.0 { |
execsql "SELECT SUBSTR('\u1234', 2, 0)" |
} {{}} |
do_test func2-2.7.1 { |
execsql "SELECT SUBSTR('\u1234', 2, 1)" |
} {{}} |
do_test func2-2.7.2 { |
execsql "SELECT SUBSTR('\u1234', 2, 2)" |
} {{}} |
|
do_test func2-2.8.0 { |
execsql "SELECT SUBSTR('\u1234', -1, 0)" |
} {{}} |
do_test func2-2.8.1 { |
execsql "SELECT SUBSTR('\u1234', -1, 1)" |
} "\u1234" |
do_test func2-2.8.2 { |
execsql "SELECT SUBSTR('\u1234', -1, 2)" |
} "\u1234" |
do_test func2-2.8.3 { |
execsql "SELECT SUBSTR('\u1234', -1, 3)" |
} "\u1234" |
|
} ;# End \u1234!=u1234 |
|
#---------------------------------------------------------------------------- |
# Test cases func2-3.*: substr implementation (blob) |
# |
|
ifcapable {!bloblit} { |
finish_test |
return |
} |
|
do_test func2-3.1.1 { |
set blob [execsql "SELECT x'1234'"] |
bin_to_hex [lindex $blob 0] |
} "1234" |
|
# substr(x,y), substr(x,y,z) |
do_test func2-3.1.2 { |
catchsql {SELECT SUBSTR()} |
} {1 {wrong number of arguments to function SUBSTR()}} |
do_test func2-3.1.3 { |
catchsql {SELECT SUBSTR(x'1234')} |
} {1 {wrong number of arguments to function SUBSTR()}} |
do_test func2-3.1.4 { |
catchsql {SELECT SUBSTR(x'1234', 1,1,1)} |
} {1 {wrong number of arguments to function SUBSTR()}} |
|
do_test func2-3.2.0 { |
set blob [execsql "SELECT SUBSTR(x'1234', 0, 0)"] |
bin_to_hex [lindex $blob 0] |
} {} |
do_test func2-3.2.1 { |
set blob [execsql "SELECT SUBSTR(x'1234', 0, 1)"] |
bin_to_hex [lindex $blob 0] |
} {} |
do_test func2-3.2.2 { |
set blob [execsql "SELECT SUBSTR(x'1234', 0, 2)"] |
bin_to_hex [lindex $blob 0] |
} "12" |
do_test func2-3.2.3 { |
set blob [execsql "SELECT SUBSTR(x'1234', 0, 3)"] |
bin_to_hex [lindex $blob 0] |
} "1234" |
|
do_test func2-3.3.0 { |
set blob [execsql "SELECT SUBSTR(x'1234', 1, 0)"] |
bin_to_hex [lindex $blob 0] |
} {} |
do_test func2-3.3.1 { |
set blob [execsql "SELECT SUBSTR(x'1234', 1, 1)"] |
bin_to_hex [lindex $blob 0] |
} "12" |
do_test func2-3.3.2 { |
set blob [execsql "SELECT SUBSTR(x'1234', 1, 2)"] |
bin_to_hex [lindex $blob 0] |
} "1234" |
do_test func2-3.3.3 { |
set blob [execsql "SELECT SUBSTR(x'1234', 1, 3)"] |
bin_to_hex [lindex $blob 0] |
} "1234" |
|
do_test func2-3.4.0 { |
set blob [execsql "SELECT SUBSTR(x'1234', -1, 0)"] |
bin_to_hex [lindex $blob 0] |
} {} |
do_test func2-3.4.1 { |
set blob [execsql "SELECT SUBSTR(x'1234', -1, 1)"] |
bin_to_hex [lindex $blob 0] |
} "34" |
do_test func2-3.4.2 { |
set blob [execsql "SELECT SUBSTR(x'1234', -1, 2)"] |
bin_to_hex [lindex $blob 0] |
} "34" |
do_test func2-3.4.3 { |
set blob [execsql "SELECT SUBSTR(x'1234', -1, 3)"] |
bin_to_hex [lindex $blob 0] |
} "34" |
|
do_test func2-3.5.0 { |
set blob [execsql "SELECT SUBSTR(x'1234', -2, 0)"] |
bin_to_hex [lindex $blob 0] |
} {} |
do_test func2-3.5.1 { |
set blob [execsql "SELECT SUBSTR(x'1234', -2, 1)"] |
bin_to_hex [lindex $blob 0] |
} "12" |
do_test func2-3.5.2 { |
set blob [execsql "SELECT SUBSTR(x'1234', -2, 2)"] |
bin_to_hex [lindex $blob 0] |
} "1234" |
do_test func2-3.5.3 { |
set blob [execsql "SELECT SUBSTR(x'1234', -2, 3)"] |
bin_to_hex [lindex $blob 0] |
} "1234" |
|
do_test func2-3.6.0 { |
set blob [execsql "SELECT SUBSTR(x'1234', -1, 0)"] |
bin_to_hex [lindex $blob 0] |
} {} |
do_test func2-3.6.1 { |
set blob [execsql "SELECT SUBSTR(x'1234', -1, -1)"] |
bin_to_hex [lindex $blob 0] |
} "12" |
do_test func2-3.6.2 { |
set blob [execsql "SELECT SUBSTR(x'1234', -1, -2)"] |
bin_to_hex [lindex $blob 0] |
} "12" |
do_test func2-3.6.3 { |
set blob [execsql "SELECT SUBSTR(x'1234', -1, -3)"] |
bin_to_hex [lindex $blob 0] |
} "12" |
|
do_test func2-3.7.0 { |
set blob [execsql "SELECT SUBSTR(x'1234', -2, 0)"] |
bin_to_hex [lindex $blob 0] |
} {} |
do_test func2-3.7.1 { |
set blob [execsql "SELECT SUBSTR(x'1234', -2, -1)"] |
bin_to_hex [lindex $blob 0] |
} {} |
do_test func2-3.7.2 { |
set blob [execsql "SELECT SUBSTR(x'1234', -2, -2)"] |
bin_to_hex [lindex $blob 0] |
} {} |
|
do_test func2-3.8.0 { |
set blob [execsql "SELECT SUBSTR(x'1234', 1, 0)"] |
bin_to_hex [lindex $blob 0] |
} {} |
do_test func2-3.8.1 { |
set blob [execsql "SELECT SUBSTR(x'1234', 1, -1)"] |
bin_to_hex [lindex $blob 0] |
} {} |
do_test func2-3.8.2 { |
set blob [execsql "SELECT SUBSTR(x'1234', 1, -2)"] |
bin_to_hex [lindex $blob 0] |
} {} |
|
do_test func2-3.9.0 { |
set blob [execsql "SELECT SUBSTR(x'1234', 2, 0)"] |
bin_to_hex [lindex $blob 0] |
} {} |
do_test func2-3.9.1 { |
set blob [execsql "SELECT SUBSTR(x'1234', 2, -1)"] |
bin_to_hex [lindex $blob 0] |
} "12" |
do_test func2-3.9.2 { |
set blob [execsql "SELECT SUBSTR(x'1234', 2, -2)"] |
bin_to_hex [lindex $blob 0] |
} "12" |
|
finish_test |