46 lines
1.5 KiB
Plaintext
46 lines
1.5 KiB
Plaintext
@pragma entry main
|
|
@pragma implicit off
|
|
|
|
@include "tap.inc";
|
|
|
|
function run_test_001 ()
|
|
{
|
|
@local tmp, out, i;
|
|
|
|
tap_ensure(hawk::function_exists(111), 0, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure(hawk::function_exists(1.69), 0, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure(hawk::function_exists("111"), 0, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure(hawk::function_exists(@b"111"), 0, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure(hawk::function_exists("length"), 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure(hawk::function_exists(@b"length"), 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure(hawk::function_exists(@b"hawk::function_exists"), 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
tap_ensure(hawk::call(@b"length", "hawk"), 4, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure(hawk::call("length", @b"hawk"), 4, @SCRIPTNAME, @SCRIPTLINE);
|
|
|
|
if (hawk::function_exists("sed::str_to_str"))
|
|
{
|
|
tmp = hawk::call("sed::str_to_str", "s/a/j/g", "aaabbbaaacccaaaddd", out);
|
|
tap_ensure(out === "jjjbbbjjjcccjjjddd", 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
}
|
|
else
|
|
{
|
|
tap_skip (sprintf("sed::str_to_str() is unavailable - %s[%d]", @SCRIPTNAME, @SCRIPTLINE));
|
|
}
|
|
|
|
## the sys module was never referenced at compile time. but it's accessed the first time at run-time via call.
|
|
## in this case file, never access the sys module directly. otherwise, this test becomes invalid.
|
|
for (i = 0; i < 5; i++)
|
|
{
|
|
tap_ensure(hawk::call("sys::getpid") >= 0, 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
tap_ensure(hawk::call("sys::getppid") >= 0, 1, @SCRIPTNAME, @SCRIPTLINE);
|
|
}
|
|
}
|
|
|
|
function main()
|
|
{
|
|
run_test_001 ();
|
|
tap_end ();
|
|
}
|
|
|