added a new test case using an exterally downloaded script
Some checks failed
continuous-integration/drone/push Build is failing
Some checks failed
continuous-integration/drone/push Build is failing
This commit is contained in:
@ -274,6 +274,7 @@ The `@pragma` keyword enables you to modify Hawk’s behavior. You can place a p
|
|||||||
| entry | global | function name | | change the program entry point |
|
| entry | global | function name | | change the program entry point |
|
||||||
| implicit | file | on, off | on | allow undeclared variables |
|
| implicit | file | on, off | on | allow undeclared variables |
|
||||||
| multilinestr | file | on, off | off | allow a multiline string literal without continuation |
|
| multilinestr | file | on, off | off | allow a multiline string literal without continuation |
|
||||||
|
| rwpipe | file | on, off | on | allow the two-way pipe operator `\|&` |
|
||||||
| striprecspc | global | on, off | off | removes leading and trailing blank fields in splitting a record if FS is a regular expression mathcing all spaces |
|
| striprecspc | global | on, off | off | removes leading and trailing blank fields in splitting a record if FS is a regular expression mathcing all spaces |
|
||||||
| stripstrspc | global | on, off | on | trim leading and trailing spaces when converting a string to a number |
|
| stripstrspc | global | on, off | on | trim leading and trailing spaces when converting a string to a number |
|
||||||
| numstrdetect | global | on, off | on | trim leading and trailing spaces when converting a string to a number |
|
| numstrdetect | global | on, off | on | trim leading and trailing spaces when converting a string to a number |
|
||||||
|
@ -26,6 +26,7 @@ EXTRA_DIST = $(check_SCRIPTS) $(check_ERRORS) tap.inc err.sh \
|
|||||||
journal-toc.hawk journal-toc.in journal-toc.out journal-toc-html.out \
|
journal-toc.hawk journal-toc.in journal-toc.out journal-toc-html.out \
|
||||||
bibtex-to-html.hawk bibtex-to-html.out \
|
bibtex-to-html.hawk bibtex-to-html.out \
|
||||||
fs-test.hawk fs-test.in fs-test.out \
|
fs-test.hawk fs-test.in fs-test.out \
|
||||||
|
JSON.awk.in JSON.awk.out \
|
||||||
two-way-pipe.hawk two-way-pipe.out
|
two-way-pipe.hawk two-way-pipe.out
|
||||||
|
|
||||||
check_PROGRAMS = t-001 t-002 t-003 t-004 t-005 t-006 t-007 t-008 t-009
|
check_PROGRAMS = t-001 t-002 t-003 t-004 t-005 t-006 t-007 t-008 t-009
|
||||||
|
@ -650,6 +650,7 @@ EXTRA_DIST = $(check_SCRIPTS) $(check_ERRORS) tap.inc err.sh \
|
|||||||
journal-toc.hawk journal-toc.in journal-toc.out journal-toc-html.out \
|
journal-toc.hawk journal-toc.in journal-toc.out journal-toc-html.out \
|
||||||
bibtex-to-html.hawk bibtex-to-html.out \
|
bibtex-to-html.hawk bibtex-to-html.out \
|
||||||
fs-test.hawk fs-test.in fs-test.out \
|
fs-test.hawk fs-test.in fs-test.out \
|
||||||
|
JSON.awk.in JSON.awk.out \
|
||||||
two-way-pipe.hawk two-way-pipe.out
|
two-way-pipe.hawk two-way-pipe.out
|
||||||
|
|
||||||
t_001_SOURCES = t-001.c tap.h
|
t_001_SOURCES = t-001.c tap.h
|
||||||
|
16
t/h-003.hawk
16
t/h-003.hawk
@ -60,7 +60,7 @@ function run_test (x, more_opts, in_name, set_out_name, out_name)
|
|||||||
cmd=sprintf("%s %s -f %s/%s.hawk --modlibdirs=%s %s > %s", ARGV[0], more_opts, TDIR, x, hawk::modlibdirs(), inf, outf);
|
cmd=sprintf("%s %s -f %s/%s.hawk --modlibdirs=%s %s > %s", ARGV[0], more_opts, TDIR, x, hawk::modlibdirs(), inf, outf);
|
||||||
}
|
}
|
||||||
##print cmd;
|
##print cmd;
|
||||||
system (cmd);
|
system(cmd);
|
||||||
|
|
||||||
same = are_files_identical(expf, outf);
|
same = are_files_identical(expf, outf);
|
||||||
if (same <= 0)
|
if (same <= 0)
|
||||||
@ -75,6 +75,17 @@ function run_test (x, more_opts, in_name, set_out_name, out_name)
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
function run_github_step_JSON_awk() {
|
||||||
|
@local url, tgt, tgt_hawk;
|
||||||
|
url = "https://raw.githubusercontent.com/step-/JSON.awk/refs/heads/master/JSON.awk";
|
||||||
|
tgt = sprintf("%s.%d", "JSON.awk", sys::getpid());
|
||||||
|
tgt_hawk = sprintf("%s/%s.hawk", TDIR, tgt);
|
||||||
|
|
||||||
|
system(sprintf("curl -k -o %s %s", tgt_hawk, url));
|
||||||
|
run_test(tgt, "", "JSON.awk", 0, "JSON.awk");
|
||||||
|
sys::unlink(tgt_hawk);
|
||||||
|
}
|
||||||
|
|
||||||
function main()
|
function main()
|
||||||
{
|
{
|
||||||
run_test("journal-toc", "", @nil, 0, @nil);
|
run_test("journal-toc", "", @nil, 0, @nil);
|
||||||
@ -83,6 +94,7 @@ function main()
|
|||||||
run_test("fs-test", "", "fs-test", 0, "fs-test");
|
run_test("fs-test", "", "fs-test", 0, "fs-test");
|
||||||
run_test("two-way-pipe", "", @nil, 0, "two-way-pipe");
|
run_test("two-way-pipe", "", @nil, 0, "two-way-pipe");
|
||||||
|
|
||||||
tap_end ();
|
run_github_step_JSON_awk();
|
||||||
|
tap_end();
|
||||||
}
|
}
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user