648 lines
31 KiB
Plaintext
648 lines
31 KiB
Plaintext
@pragma entry main
|
|
@pragma implicit off
|
|
|
|
@include "tap.inc";
|
|
|
|
function main()
|
|
{
|
|
|
|
## call by reference. change an argument to array in the callee
|
|
{
|
|
@local ini, foo1, foo2, foo3, foo4;
|
|
|
|
test1(foo1);
|
|
test2(foo2);
|
|
test3(foo3);
|
|
test4(foo4);
|
|
tap_ensure (hawk::typename(foo1), "map", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (hawk::typename(foo2), "map", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (hawk::typename(foo3), "nil", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (hawk::typename(foo4), "nil", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (foo1[1], 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (foo2[1], 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (foo3[1], ini, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (foo4[1], ini, @SCRIPTNAME, @SCRIPTLINE);
|
|
}
|
|
|
|
## gsub
|
|
{
|
|
@local w, x, y, z, z1, z2;
|
|
x = y = "x\\y";
|
|
gsub(/\\\\/, "A", x);
|
|
gsub("\\\\", "A", y);
|
|
tap_ensure (x, "x\\y", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (y, "xAy", @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
x = y = "x\\y";
|
|
gsub(/\\\\/, 'A', x);
|
|
gsub("\\\\", 'A', y);
|
|
tap_ensure (x, "x\\y", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (y, "xAy", @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
x = y = "x\\\\y";
|
|
gsub(/\\\\/, "A", x);
|
|
gsub("\\\\", "A", y);
|
|
tap_ensure (x, "xAy", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (y, "xAAy", @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
|
|
x = y = @b"x\\\\y";
|
|
gsub(/\\\\/, "A", x);
|
|
gsub("\\\\", "A", y);
|
|
tap_ensure (x === @b"xAy", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (y === @b"xAAy", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
x = y = @b"x\\\\y";
|
|
gsub(/\\\\/, 'A', x);
|
|
gsub("\\\\", 'A', y);
|
|
tap_ensure (x === @b"xAy", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (y === @b"xAAy", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
x = y = "x\\\\y";
|
|
gsub(/\\\\/, @b'A', x);
|
|
gsub("\\\\", @b'A', y);
|
|
tap_ensure (x === "xAy", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (y === "xAAy", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
x = y = "x\\\\y";
|
|
gsub(/\\\\/, @b"A", x);
|
|
gsub("\\\\", @b"A", y);
|
|
tap_ensure (x === "xAy", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (y === "xAAy", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
x = y = '\\';
|
|
gsub(/\\/, @b"A", x);
|
|
gsub("\\\\", @b"A", y);
|
|
tap_ensure (x === "A", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (y === "A", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
x = y = '\\';
|
|
gsub(/\\/, @b'A', x);
|
|
gsub("\\\\", @b'A', y);
|
|
tap_ensure (x === "A", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
x = y = @b'\\';
|
|
gsub(/\\/, @b"A", x);
|
|
gsub("\\\\", @b"A", y);
|
|
tap_ensure (x === @b"A", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (y === @b"A", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
x = y = @b'\\';
|
|
gsub(/\\/, @b'A', x);
|
|
gsub("\\\\", @b'A', y);
|
|
tap_ensure (x === @b"A", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (y === @b"A", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
}
|
|
|
|
## gsub - POSIX rule for &, \&, \\&, \\\&
|
|
{
|
|
@local w, x, y, z, z1, z2, z3;
|
|
w = x = y = z = z1 = z2 = "xax";
|
|
|
|
gsub(/a/, "\&", w); # gsub sees &
|
|
gsub(/a/, "\\&", x); # gsub sees \&
|
|
gsub(/a/, "\\\&", y); # gsub sees \&
|
|
|
|
gsub(/a/, "\\\\&", z); # gsub sees \\&
|
|
gsub(/a/, "\\\\\&", z1); # gsub sees \\&
|
|
gsub(/a/, "\\\\\\&", z2); # gsub sees \\\&
|
|
|
|
tap_ensure (w, "xax", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (x, "x&x", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (y, "x&x", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (z, "x\\ax", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (z1, "x\\ax", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (z2, "x\\&x", @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
w = x = y = z = z1 = z2 = "xaax";
|
|
|
|
gsub(/a/, "\&", w); # gsub sees &
|
|
gsub(/a/, "\\&", x); # gsub sees \&
|
|
gsub(/a/, "\\\&", y); # gsub sees \&
|
|
|
|
gsub(/a/, "\\\\&", z); # gsub sees \\&
|
|
gsub(/a/, "\\\\\&", z1); # gsub sees \\&
|
|
gsub(/a/, "\\\\\\&", z2); # gsub sees \\\&
|
|
|
|
tap_ensure (w, "xaax", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (x, "x&&x", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (y, "x&&x", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (z, "x\\a\\ax", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (z1, "x\\a\\ax", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (z2, "x\\&\\&x", @SCRIPTNAME, @SCRIPTLINE);
|
|
}
|
|
|
|
## gsub - POSIX rule for &, \&, \\&, \\\& - express the same test with a raw string literal
|
|
{
|
|
@local w, x, y, z;
|
|
w = x = y = z = "xax";
|
|
|
|
gsub(/a/, @r"&", w); # gsub sees &
|
|
gsub(/a/, @r"\&", x); # gsub sees \&
|
|
|
|
gsub(/a/, @r"\\&", y); # gsub sees \\&
|
|
gsub(/a/, @r"\\\&", z); # gsub sees \\\&
|
|
|
|
tap_ensure (w, "xax", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (x, "x&x", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (y, @r"x\ax", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (z, @r"x\&x", @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
w = x = y = z = "xaax";
|
|
|
|
gsub(/a/, @r"&", w); # gsub sees &
|
|
gsub(/a/, @r"\&", x); # gsub sees \&
|
|
|
|
gsub(/a/, @r"\\&", y); # gsub sees \\&
|
|
gsub(/a/, @r"\\\&", z); # gsub sees \\\&
|
|
|
|
tap_ensure (w, "xaax", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (x, "x&&x", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (y, @r"x\a\ax", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (z, @r"x\&\&x", @SCRIPTNAME, @SCRIPTLINE);
|
|
}
|
|
|
|
## sub - POSIX rule for &, \&, \\&, \\\& - express the same test with a raw string literal
|
|
{
|
|
@local w, x, y, z;
|
|
w = x = y = z = "xax";
|
|
|
|
sub(/a/, @r"&", w);
|
|
sub(/a/, @r"\&", x);
|
|
|
|
sub(/a/, @r"\\&", y);
|
|
sub(/a/, @r"\\\&", z);
|
|
|
|
tap_ensure (w, "xax", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (x, "x&x", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (y, @r"x\ax", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (z, @r"x\&x", @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
w = x = y = z = "xaax";
|
|
|
|
sub(/a/, @r"&", w);
|
|
sub(/a/, @r"\&", x);
|
|
|
|
sub(/a/, @r"\\&", y);
|
|
sub(/a/, @r"\\\&", z);
|
|
|
|
tap_ensure (w, "xaax", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (x, "x&ax", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (y, @r"x\aax", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (z, @r"x\&ax", @SCRIPTNAME, @SCRIPTLINE);
|
|
}
|
|
|
|
|
|
{
|
|
@local pi, e, tmp;
|
|
|
|
pi = 3.1415927;
|
|
|
|
tap_ensure (sprintf("%.10d:%.10x", 5, 14), "0000000005:000000000e", @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tap_ensure (sprintf("cos(%f) = %f", pi/4, cos(pi/4)), "cos(0.785398) = 0.707107", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf("sin(%f) = %f", pi/4, sin(pi/4)), "sin(0.785398) = 0.707107", @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
e = exp(1);
|
|
tap_ensure (sprintf("e = %f", e), "e = 2.718282", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf("log(e) = %f", log(e)), "log(e) = 1.000000", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf("sqrt(pi ^ 2) = %f", sqrt(pi ^ 2)), "sqrt(pi ^ 2) = 3.141593", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf("atan2(1, 1) = %f", atan2(1, 1)), "atan2(1, 1) = 0.785398", @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tmp = sprintf("%s", "hello");
|
|
tap_ensure ((tmp === @b"hello"), 0, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure ((tmp === "hello"), 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure ((tmp == @b"hello"), 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure ((tmp == "hello"), 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tmp = sprintf("%s", @b"hello");
|
|
tap_ensure ((tmp === @b"hello"), 0, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure ((tmp === "hello"), 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure ((tmp == @b"hello"), 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure ((tmp == "hello"), 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tmp = sprintf(@b"%s", "hello");
|
|
tap_ensure ((tmp === @b"hello"), 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure ((tmp === "hello"), 0, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure ((tmp == @b"hello"), 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure ((tmp == "hello"), 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tmp = sprintf(@b"%s", @b"hello");
|
|
tap_ensure ((tmp === @b"hello"), 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure ((tmp === "hello"), 0, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure ((tmp == @b"hello"), 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure ((tmp == "hello"), 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tap_ensure (sprintf("%0d", 0), "0", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf("%0.d", 0), "", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf("%.d", 0), "", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf("%.*d", 0, 0), "", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf("%.*d", 1, 0), "0", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf("%*d", 0, 0), "0", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf("%*.*d", 0, 0, 0), "", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf("%-*.*d", 0, 0, 0), "", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf("%*.*d", 1, 0, 0), " ", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf("%*.*d", 0, 3, 0), "000", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf("%-*d", 0, 0), "0", @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tap_ensure (sprintf(@b"%0d", 0), @b"0", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf(@b"%0.d", 0), @b"", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf(@b"%.d", 0), @b"", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf(@b"%.*d", 0, 0), @b"", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf(@b"%.*d", 1, 0), @b"0", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf(@b"%*d", 0, 0), @b"0", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf(@b"%*.*d", 0, 0, 0), @b"", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf(@b"%-*.*d", 0, 0, 0), @b"", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf(@b"%*.*d", 1, 0, 0), @b" ", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf(@b"%*.*d", 0, 3, 0), @b"000", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf(@b"%-*d", 0, 0), @b"0", @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tap_ensure (sprintf("%5d", 5), " 5", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf("%-5d", 5), "5 ", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf("%*d", 5, 5), " 5", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf("%*d", -5, 5), "5 ", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf("%-*d", 5, 5), "5 ", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf("%-*d", -5, 5), "5 ", @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tap_ensure (sprintf(@b"%5d", 5), @b" 5", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf(@b"%-5d", 5), @b"5 ", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf(@b"%*d", 5, 5), @b" 5", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf(@b"%*d", -5, 5), @b"5 ", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf(@b"%-*d", 5, 5), @b"5 ", @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tap_ensure (sprintf("%*sworld", 20, "hello"), " helloworld", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf("%*sworld", -20, "hello"), "hello world", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf("%-*sworld", 20, "hello"), "hello world", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf("%-*sworld", -20, "hello"), "hello world", @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tap_ensure (sprintf(@b"%*sworld", 20, "hello"), @b" helloworld", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf(@b"%*sworld", -20, "hello"), @b"hello world", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf(@b"%-*sworld", 20, "hello"), @b"hello world", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf(@b"%-*sworld", -20, "hello"), @b"hello world", @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tap_ensure (sprintf("%0s", "hello"), "hello", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf("%.0s", "hello"), "", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf("%0.0s", "hello"), "", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf("%1.0s", "hello"), " ", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf("%*.*s", 20, 0, "hello"), " ", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf("%*.*s", 20, 2, "hello"), " he", @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tap_ensure (sprintf(@b"%0s", "hello"), @b"hello", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf(@b"%.0s", "hello"), @b"", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf(@b"%0.0s", "hello"), @b"", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf(@b"%1.0s", "hello"), @b" ", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf(@b"%*.*s", 20, 0, "hello"), @b" ", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf(@b"%*.*s", 20, 2, "hello"), @b" he", @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tap_ensure (sprintf("%+d %d", 3, 4), "+3 4", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf(@b"%+d %d", 3, 4), @b"+3 4", @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
|
|
tap_ensure (sprintf(@b'A') === @b"A", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (sprintf('A') === "A", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
}
|
|
|
|
{
|
|
@local bool, b, c;
|
|
|
|
tap_ensure ((c === @nil), 1, @SCRIPTNAME, @SCRIPTLINE); ## tap_ensure local variable initialization
|
|
|
|
bool = ((b = 1) in c);
|
|
tap_ensure (bool, 0, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (b, 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
}
|
|
|
|
|
|
{
|
|
tap_ensure (substr(1000+"5000", 2) === "000", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (substr(1000+"10000", 2) === "1000", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (substr(1000+"5000", 2) === "000", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tap_ensure (substr("5000" + 1000, 2) === "000", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (substr("10000" + 1000, 2) === "1000", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (substr("5000" + 1000, 2) === "000", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tap_ensure (substr(@b"5000" + 1000, 2) === "000", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (substr(@b"10000" + 1000, 2) === "1000", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (substr(@b"5000" + 1000, 2) === "000", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tap_ensure (substr(@b"5000", 2) === @b"000", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (substr(@b"10000", 2) === @b"0000", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (substr(@b"5000", 2) === @b"000", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tap_ensure (substr(1000+5000, 2) === "000", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (substr(1000+10000, 2) === "1000", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (substr(1000+5000, 2) === "000", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tap_ensure (str::subchar("abc", -1) === @nil, 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::subchar("abc", 0) === @nil, 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::subchar("abc", 1) === 'a', 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::subchar("abc", 2) === 'b', 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::subchar("abc", 3) === 'c', 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::subchar("abc", 4) === @nil, 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tap_ensure (str::subchar("☕⛄", -1) === @nil, 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::subchar("☕⛄", 0) === @nil, 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::subchar("☕⛄", 1) === '☕', 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::subchar("☕⛄", 2) === '⛄', 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::subchar("☕⛄", 3) === @nil, 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::subchar("☕⛄", 4) === @nil, 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tap_ensure (str::subchar(@b"abc", -1) === @nil, 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::subchar(@b"abc", 0) === @nil, 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::subchar(@b"abc", 1) === @b'a', 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::subchar(@b"abc", 2) === @b'b', 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::subchar(@b"abc", 3) === @b'c', 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::subchar(@b"abc", 4) === @nil, 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tap_ensure (str::subchar('a', 0) === @nil, 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::subchar('a', 1) === 'a', 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::subchar('a', 2) === @nil, 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tap_ensure (str::subchar(@b'a', 0) === @nil, 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::subchar(@b'a', 1) === @b'a', 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::subchar(@b'a', 2) === @nil, 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tap_ensure (str::subchar(123, 0) === @nil, 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::subchar(123, 1) === '1', 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::subchar(123, 2) === '2', 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::subchar(123, 3) === '3', 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::subchar(123, 4) === @nil, 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
}
|
|
|
|
{
|
|
tap_ensure (str::substr("☕Q⛄", 0) === "☕Q⛄", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::substr("☕Q⛄", 1) === "☕Q⛄", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::substr("☕Q⛄", 2) === "Q⛄", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::substr("☕Q⛄", 3) === "⛄", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::substr("☕Q⛄", 4) === "", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::substr("☕Q⛄", 1, 2) === "☕Q", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::substr("☕Q⛄", 1, 4) === "☕Q⛄", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
###tap_ensure (str::substr("☕Q⛄", -1, 1) === "⛄", 1, @SCRIPTNAME, @SCRIPTLINE); ## not supported yet
|
|
tap_ensure (str::substr('☕', 1, 4) === "☕", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tap_ensure (str::substr(@b"\xAD\xAA\xBB\CC", 2, 2) === @b"\xAA\xBB", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::substr(@b'\xAD', 1, 1) === @b"\xAD", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
}
|
|
|
|
{
|
|
tap_ensure (str::index("☕Q⛄X⛄Z", '⛄'), 3, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::index("☕Q⛄X⛄Z", "⛄"), 3, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::index("☕Q⛄X⛄Z", "Q⛄"), 2, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::rindex("☕Q⛄X⛄Z", '⛄'), 5, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::rindex("☕Q⛄X⛄Z", "⛄"), 5, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::rindex("☕Q⛄X⛄Z", "Q⛄"), 2, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::rindex("☕Q⛄X⛄Z", "Q⛄Q"), 0, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tap_ensure (str::index(@b"\xFFQ\xABX\xABZ", @b'\xAB'), 3, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::index(@b"\xFFQ\xABX\xABZ", @b"\xAB"), 3, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::index(@b"\xFFQ\xABX\xABZ", @b"Q\xAB"), 2, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::rindex(@b"\xFFQ\xABX\xABZ", @b'\xAB'), 5, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::rindex(@b"\xFFQ\xABX\xABZ", @b"\xAB"), 5, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::rindex(@b"\xFFQ\xABX\xABZ", @b"Q\xAB"), 2, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::rindex(@b"\xFFQ\xABX\xABZ", @b"Q\xABQ"), 0, @SCRIPTNAME, @SCRIPTLINE);
|
|
}
|
|
|
|
{
|
|
# split, str::split, str::splita
|
|
@local a, str;
|
|
|
|
tap_ensure (split("Here===Is=Some=====Data", a, "=+"), 4, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[1] === "Here", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[2] === "Is", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[3] === "Some", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[4] === "Data", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tap_ensure (split(@b"Here===Is=Some=====Data", a, @b"=+"), 4, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[1] === @b"Here", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[2] === @b"Is", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[3] === @b"Some", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[4] === @b"Data", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tap_ensure (split(@b"Here===Is=Some=====Data", a, /=+/), 4, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[1] === @b"Here", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[2] === @b"Is", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[3] === @b"Some", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[4] === @b"Data", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tap_ensure (split("[Here] : [Is] : [So\\]me] :[Da:ta]", a, "?:\\[]"), 4, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[1] === "Here", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[2] === "Is", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[3] === "So]me", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[4] === "Da:ta", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tap_ensure (split(@b"[Here] : [Is] : [So\\]me] :[Da:ta]", a, "?:\\[]"), 4, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[1] === @b"Here", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[2] === @b"Is", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[3] === @b"So]me", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[4] === @b"Da:ta", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tap_ensure (split("Here===Is=Some=====Data", a, ""), 23, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (hawk::typename(a), "map", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::splita("Here===Is=Some=====Data", a, ""), 23, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (hawk::typename(a), "array",@SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tap_ensure (str::split("Here Is Some Data", a, / /), 7, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::split("Here Is Some Data", a, " "), 4, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[1] === "Here", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[2] === "Is", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[3] === "Some", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[4] === "Data", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
str = "a b\t\tc d";
|
|
tap_ensure (str::splita(str, a, " "), 4, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[1], "a", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[2], "b", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[3], "c", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[4], "d", @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tap_ensure (str::splita(str, a, / /), 5, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[1], "a", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[2], "", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[3], "", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[4], "b\t\tc", @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[5], "d", @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tap_ensure (str::split('a', a, /a/), 2, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[1] === "", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[2] === "", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tap_ensure (str::split('a', a, 'a'), 2, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[1] === "", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[2] === "", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tap_ensure (str::split('a', a, @b'a'), 2, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[1] === "", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[2] === "", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tap_ensure (str::split(@b'a', a, /a/), 2, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[1] === @b"", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[2] === @b"", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tap_ensure (str::split(@b'a', a, @b'a'), 2, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[1] === @b"", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[2] === @b"", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
}
|
|
|
|
|
|
{
|
|
## back reference in a regular expression
|
|
tap_ensure (("a2b" ~ /(a)\12b/), 0, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (("aa2b" ~ /(a)\12b/), 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (("aaa2b" ~ /(a)\12b/), 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
}
|
|
|
|
|
|
{
|
|
## character class functions in the str modules
|
|
tap_ensure (str::isalnum('a'), 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::isalpha('a'), 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::isblank('a'), 0, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::iscntrl('a'), 0, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::isdigit('a'), 0, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::isgraph('a'), 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::islower('a'), 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::isprint('a'), 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::ispunct('a'), 0, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::isspace('a'), 0, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::isupper('a'), 0, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::isxdigit('a'), 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tap_ensure (str::toupper('a') === 'A', 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::tolower('A') === 'a', 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tap_ensure (str::isalnum("a"), 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::isalpha("a"), 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::isblank("a"), 0, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::iscntrl("a"), 0, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::isdigit("a"), 0, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::isgraph("a"), 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::islower("a"), 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::isprint("a"), 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::ispunct("a"), 0, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::isspace("a"), 0, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::isupper("a"), 0, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::isxdigit("a"), 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tap_ensure (str::toupper("abc") === "ABC", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::tolower("ABC") === "abc", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::toupper(@b"abc") === @b"ABC", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::tolower(@b"ABC") === @b"abc", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
}
|
|
|
|
{
|
|
tap_ensure (str::tocharcode(@b'\xFF'), 0xFF, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::tocharcode('\u3321'), 0x3321, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::tocharcode(@b'\xFF', 0), @nil, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::tocharcode('\u3321', 0), @nil, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::tocharcode(@b'\xFF', 1), 0xFF, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::tocharcode('\u3321', 1), 0x3321, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::tocharcode(@b'\xFF', 2), @nil, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::tocharcode('\u3321', 2), @nil, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tap_ensure (str::tocharcode(str::fromcharcode('2')), 2, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::tonum('a', 16), 10, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tap_ensure (str::fromcharcode(65, 66, 67) === "ABC", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::frombcharcode(65, 66, 67) === @b"ABC", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tap_ensure (str::trim(" hello world ") === "hello world", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::trim(" hello world ", str::TRIM_PAC_SPACES) === "hello world", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::trim(@b" hello world ") === @b"hello world", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (str::trim(@b" hello world ", str::TRIM_PAC_SPACES) === @b"hello world", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
}
|
|
|
|
|
|
{
|
|
@local a, b, c, d;
|
|
sys::pack(a, ">hhl", 1, 2, 3);
|
|
tap_ensure (a === @b"\x00\x01\x00\x02\x00\x00\x00\x00\x00\x00\x00\x03", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
sys::pack(a, ">ci", @b'*', 0x12131415);
|
|
tap_ensure (a === @b"*\x12\x13\x14\x15", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
sys::pack(a, ">ic", 0x12131415, @b"*+-");
|
|
tap_ensure (a === @b"\x12\x13\x14\x15*", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
sys::pack(a, "3c", @b"*+-", 't', "pack");
|
|
tap_ensure (a === @b"*tp", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
sys::unpack (@b"raymond \x32\x12\x08\x01\x08", "<10sHHb", a, b, c, d);
|
|
tap_ensure (a === @b"raymond ", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (b === 4658, 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (c === 264, 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (d === 8, 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
sys::unpack (@b"raymond", "3c", a, b, c);
|
|
tap_ensure (a === @b'r' , 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (b === @b'a' , 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (c === @b'y' , 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
}
|
|
|
|
|
|
{
|
|
@local a, b;
|
|
|
|
RSTART=99;
|
|
RLENGTH=99;
|
|
tap_ensure (match("world", /hello/), 0, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (RSTART, 0, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (RLENGTH, -1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tap_ensure (match(@b"world", /hello/), 0, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (RSTART, 0, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (RLENGTH, -1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
## match() doesn't support the start index.
|
|
## the result goes to the third argument.
|
|
tap_ensure (match("hello, world", /l/), 3, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (RSTART, 3, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (RLENGTH, 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tap_ensure (match(@b"hello, world", /l/), 3, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (RSTART, 3, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (RLENGTH, 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tap_ensure (match("hello, world", /(l)lo.*(l)/, a), 3, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (RSTART, 3, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (RLENGTH, 9, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (length(a), 4, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[1,"start"], 3, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[1,"length"], 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[2,"start"], 11, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[2,"length"], 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
## start::match() support the start index via the third parameter.
|
|
## the result goes to the fourth argument.
|
|
tap_ensure (str::match("hello, world", /(l)lo.*(l)/, 1, a), 3, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (RSTART, 3, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (RLENGTH, 9, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (length(a), 4, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[1,"start"], 3, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[1,"length"], 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[2,"start"], 11, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[2,"length"], 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tap_ensure (str::match("hello, world, hello, world", /(l)lo.*(l)/, 4, a), 17, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (RSTART, 17, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (RLENGTH, 9, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (length(a), 4, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[1,"start"], 17, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[1,"length"], 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[2,"start"], 25, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (a[2,"length"], 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
|
|
b = 291210;
|
|
tap_ensure (str::match(b @b"what is this", /10/, 1, a), 5, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (RSTART, 5, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure (RLENGTH, 2, @SCRIPTNAME, @SCRIPTLINE);
|
|
}
|
|
tap_end ();
|
|
}
|
|
|
|
function test1(&foo) { test2(foo) }
|
|
function test2(&bar) { bar[1] = 1 }
|
|
function test3(foo) { test2(foo) }
|
|
function test4(bar) { bar[1] = 1 }
|