diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/ChangeLog | 5 | ||||
| -rw-r--r-- | test/Makefile.am | 6 | ||||
| -rw-r--r-- | test/Makefile.in | 11 | ||||
| -rw-r--r-- | test/Maketests | 5 | ||||
| -rw-r--r-- | test/profile16.awk | 16 | ||||
| -rw-r--r-- | test/profile16.ok | 18 |
6 files changed, 57 insertions, 4 deletions
diff --git a/test/ChangeLog b/test/ChangeLog index 7af61551..7be3fc50 100644 --- a/test/ChangeLog +++ b/test/ChangeLog @@ -1,3 +1,8 @@ +2021-10-18 Arnold D. Robbins <arnold@skeeve.com> + + * Makefile.am (EXTRA_DIST): profile16, new test. + * profile16.awk, profile16.ok: New files. + 2021-10-13 Arnold D. Robbins <arnold@skeeve.com> * Gentest: Add check for ZOS_FAIL targets that have to diff --git a/test/Makefile.am b/test/Makefile.am index 1c20c6ea..547760b0 100644 --- a/test/Makefile.am +++ b/test/Makefile.am @@ -1009,6 +1009,8 @@ EXTRA_DIST = \ profile14.ok \ profile15.awk \ profile15.ok \ + profile16.awk \ + profile16.ok \ prt1eval.awk \ prt1eval.ok \ prtoeval.awk \ @@ -1453,7 +1455,7 @@ GAWK_EXT_TESTS = \ printfbad1 printfbad2 printfbad3 printfbad4 printhuge procinfs \ profile0 profile1 profile2 profile3 profile4 profile5 profile6 \ profile7 profile8 profile9 profile10 profile11 profile12 profile13 \ - profile14 profile15 pty1 pty2 rebuf regexsub regnul1 regnul2 \ + profile14 profile15 profile16 pty1 pty2 rebuf regexsub regnul1 regnul2 \ regx8bit reginttrad reint reint2 rsgetline rsglstdin rsstart1 \ rsstart2 rsstart3 rstest6 sandbox1 shadow shadowbuiltin sortfor \ sortfor2 sortu sourcesplit split_after_fpat splitarg4 strftfld \ @@ -1515,7 +1517,7 @@ NEED_POSIX = escapebrace printf0 posix2008sub paramasfunc1 paramasfunc2 muldimpo # List of tests that need --pretty-print NEED_PRETTY = nsprof1 nsprof2 \ profile4 profile5 profile8 profile9 profile10 profile11 profile13 \ - profile14 profile15 + profile14 profile15 profile16 # List of tests that need --re-interval NEED_RE_INTERVAL = gsubtst3 reint reint2 diff --git a/test/Makefile.in b/test/Makefile.in index 0e228876..b265eabf 100644 --- a/test/Makefile.in +++ b/test/Makefile.in @@ -1275,6 +1275,8 @@ EXTRA_DIST = \ profile14.ok \ profile15.awk \ profile15.ok \ + profile16.awk \ + profile16.ok \ prt1eval.awk \ prt1eval.ok \ prtoeval.awk \ @@ -1719,7 +1721,7 @@ GAWK_EXT_TESTS = \ printfbad1 printfbad2 printfbad3 printfbad4 printhuge procinfs \ profile0 profile1 profile2 profile3 profile4 profile5 profile6 \ profile7 profile8 profile9 profile10 profile11 profile12 profile13 \ - profile14 profile15 pty1 pty2 rebuf regexsub regnul1 regnul2 \ + profile14 profile15 profile16 pty1 pty2 rebuf regexsub regnul1 regnul2 \ regx8bit reginttrad reint reint2 rsgetline rsglstdin rsstart1 \ rsstart2 rsstart3 rstest6 sandbox1 shadow shadowbuiltin sortfor \ sortfor2 sortu sourcesplit split_after_fpat splitarg4 strftfld \ @@ -1780,7 +1782,7 @@ NEED_POSIX = escapebrace printf0 posix2008sub paramasfunc1 paramasfunc2 muldimpo # List of tests that need --pretty-print NEED_PRETTY = nsprof1 nsprof2 \ profile4 profile5 profile8 profile9 profile10 profile11 profile13 \ - profile14 profile15 + profile14 profile15 profile16 # List of tests that need --re-interval @@ -4824,6 +4826,11 @@ profile15: @AWKPATH="$(srcdir)" $(AWK) -f $@.awk --pretty-print=_$@ >_$@ 2>&1 || echo EXIT CODE: $$? >>_$@ @-$(CMP) "$(srcdir)"/$@.ok _$@ && rm -f _$@ +profile16: + @echo $@ + @AWKPATH="$(srcdir)" $(AWK) -f $@.awk --pretty-print=_$@ >_$@ 2>&1 || echo EXIT CODE: $$? >>_$@ + @-$(CMP) "$(srcdir)"/$@.ok _$@ && rm -f _$@ + regexsub: @echo $@ @AWKPATH="$(srcdir)" $(AWK) -f $@.awk >_$@ 2>&1 || echo EXIT CODE: $$? >>_$@ diff --git a/test/Maketests b/test/Maketests index c5c9104a..eb5e4bb3 100644 --- a/test/Maketests +++ b/test/Maketests @@ -1891,6 +1891,11 @@ profile15: @AWKPATH="$(srcdir)" $(AWK) -f $@.awk --pretty-print=_$@ >_$@ 2>&1 || echo EXIT CODE: $$? >>_$@ @-$(CMP) "$(srcdir)"/$@.ok _$@ && rm -f _$@ +profile16: + @echo $@ + @AWKPATH="$(srcdir)" $(AWK) -f $@.awk --pretty-print=_$@ >_$@ 2>&1 || echo EXIT CODE: $$? >>_$@ + @-$(CMP) "$(srcdir)"/$@.ok _$@ && rm -f _$@ + regexsub: @echo $@ @AWKPATH="$(srcdir)" $(AWK) -f $@.awk >_$@ 2>&1 || echo EXIT CODE: $$? >>_$@ diff --git a/test/profile16.awk b/test/profile16.awk new file mode 100644 index 00000000..e0c9c42b --- /dev/null +++ b/test/profile16.awk @@ -0,0 +1,16 @@ +BEGIN { + foo::foo_bar() + foofoo::xxx() +} + +@namespace "foo" + +function foo_bar() +{ + print "foo::foo_bar" +} + +function foofoo::xxx() +{ + print "foofoo::xxx" +} diff --git a/test/profile16.ok b/test/profile16.ok new file mode 100644 index 00000000..b954b1c5 --- /dev/null +++ b/test/profile16.ok @@ -0,0 +1,18 @@ +BEGIN { + foo::foo_bar() + foofoo::xxx() +} + + +@namespace "foo" + + +function foo_bar() +{ + print "foo::foo_bar" +} + +function foofoo::xxx() +{ + print "foofoo::xxx" +} |