diff options
| -rw-r--r-- | pc/ChangeLog | 5 | ||||
| -rw-r--r-- | pc/Makefile.tst | 2 | ||||
| -rw-r--r-- | test/ChangeLog | 5 | ||||
| -rw-r--r-- | test/Makefile.am | 2 | ||||
| -rw-r--r-- | test/Makefile.in | 2 | ||||
| -rw-r--r-- | vms/ChangeLog | 5 | ||||
| -rw-r--r-- | vms/vmstest.com | 37 |
7 files changed, 50 insertions, 8 deletions
diff --git a/pc/ChangeLog b/pc/ChangeLog index 1a799e0e..57a18b01 100644 --- a/pc/ChangeLog +++ b/pc/ChangeLog @@ -1,3 +1,8 @@ +Mon Feb 21 20:32:36 2011 Arnold D. Robbins <arnold@skeeve.com> + + * Makefile.tst (GAWK_EXT_TESTS): Include profile3. Thanks to + Scott Deifik for pointing out the omission. + Wed Feb 16 21:09:50 2011 Arnold D. Robbins <arnold@skeeve.com> * Makefile.tst (lintwarn): New test. diff --git a/pc/Makefile.tst b/pc/Makefile.tst index 36009d93..1ff348db 100644 --- a/pc/Makefile.tst +++ b/pc/Makefile.tst @@ -156,7 +156,7 @@ GAWK_EXT_TESTS = \ gnuops2 gnuops3 gnureops \ icasefs icasers igncdym igncfs ignrcas2 ignrcase indirectcall lint \ lintold manyfiles match1 match2 match3 mbstr1 nondec nondec2 patsplit \ - posix profile1 profile2 printfbad1 printfbad2 \ + posix profile1 profile2 profile3 printfbad1 printfbad2 \ procinfs rebuf regx8bit reint reint2 rsstart1 rsstart2 rsstart3 \ rstest6 shadow sortfor splitarg4 strftime strtonum switch2 diff --git a/test/ChangeLog b/test/ChangeLog index 8b2138d6..7b3aa52a 100644 --- a/test/ChangeLog +++ b/test/ChangeLog @@ -1,3 +1,8 @@ +Mon Feb 21 20:32:36 2011 Arnold D. Robbins <arnold@skeeve.com> + + * Makefile.am (GAWK_EXT_TESTS): Include profile3. Thanks to + Scott Deifik for pointing out the omission. + Tue Feb 15 17:11:26 2011 Pat Rankin <rankin@pactechdata.com> * sortfor.awk: New values for PROCINFO["sorted_in"]. diff --git a/test/Makefile.am b/test/Makefile.am index b8b5016c..94e3c058 100644 --- a/test/Makefile.am +++ b/test/Makefile.am @@ -768,7 +768,7 @@ GAWK_EXT_TESTS = \ icasefs icasers igncdym igncfs ignrcas2 ignrcase indirectcall lint \ lintwarn \ lintold manyfiles match1 match2 match3 mbstr1 nondec nondec2 patsplit \ - posix profile1 profile2 printfbad1 printfbad2 \ + posix profile1 profile2 profile3 printfbad1 printfbad2 \ procinfs rebuf regx8bit reint reint2 rsstart1 rsstart2 rsstart3 \ rstest6 shadow sortfor splitarg4 strftime strtonum switch2 diff --git a/test/Makefile.in b/test/Makefile.in index c478318f..8d152fc7 100644 --- a/test/Makefile.in +++ b/test/Makefile.in @@ -952,7 +952,7 @@ GAWK_EXT_TESTS = \ icasefs icasers igncdym igncfs ignrcas2 ignrcase indirectcall lint \ lintwarn \ lintold manyfiles match1 match2 match3 mbstr1 nondec nondec2 patsplit \ - posix profile1 profile2 printfbad1 printfbad2 \ + posix profile1 profile2 profile3 printfbad1 printfbad2 \ procinfs rebuf regx8bit reint reint2 rsstart1 rsstart2 rsstart3 \ rstest6 shadow sortfor splitarg4 strftime strtonum switch2 diff --git a/vms/ChangeLog b/vms/ChangeLog index a3b8c2af..2dff4560 100644 --- a/vms/ChangeLog +++ b/vms/ChangeLog @@ -1,3 +1,8 @@ +Fri Feb 18 19:24:30 2011 Pat Rankin <rankin@pactechdata.com> + + * vmstest.com (beginfile1, dumpvars): New tests. + (lintwarn): Add exit_code 1. + Wed Feb 16 21:09:50 2011 Arnold D. Robbins <arnold@skeeve.com> * vmstest.com (lintwarn): New test. diff --git a/vms/vmstest.com b/vms/vmstest.com index 949b9f21..4340d182 100644 --- a/vms/vmstest.com +++ b/vms/vmstest.com @@ -92,18 +92,18 @@ $ $gnu: $gawk_ext: echo "gawk_ext... (gawk.extensions)" $ list = "aadelete1 aadelete2 aarray1 aasort" - - + " aasorti argtest backw badargs binmode1 clos1way" - - + " devfd devfd1 devfd2 fieldwdth fpat1" - - + " funlen fsfwfs fwtest fwtest2 gensub" - + + " aasorti argtest backw badargs beginfile1 binmode1" - + + " clos1way devfd devfd1 devfd2 dumpvars fieldwdth" - + + " fpat1 funlen fsfwfs fwtest fwtest2 gensub" - + " gensub2 getlndir gnuops2 gnuops3 gnureops icasefs" - + " icasers igncdym igncfs ignrcase ignrcas2" $ gosub list_of_tests -$ list = "indirectcall lint lintold match1" - +$ list = "indirectcall lint lintold lintwarn match1" - + " match2 match3 manyfiles mbprintf3 mbstr1 nondec" - + " nondec2 patsplit posix profile1 procinfs printfbad1" - + " printfbad2 regx8bit rebuf reint reint2 rsstart1" - + " rsstart2 rsstart3 rstest6 shadow sortfor" - - + " splitarg4 strtonum strftime switch2 lintwarn" + + " splitarg4 strtonum strftime switch2" $ gosub list_of_tests $ return $ @@ -903,6 +903,7 @@ $lintwarn: echo "lintwarn" $ set noOn $ AWKPATH_srcdir $ gawk --lint -f lintwarn.awk >_lintwarn.tmp 2>&1 +$ if .not.$status then call exit_code 1 _lintwarn.tmp $ set On $ cmp lintwarn.ok _lintwarn.tmp $ if $status then rm _lintwarn.tmp; @@ -1372,6 +1373,32 @@ $ cmp intformat.ok _intformat.tmp $ if $status then rm _intformat.tmp; $ return $ +$! ugh... BEGINFILE functionality works fine, but test is heavily Unix-centric +$beginfile1: echo "beginfile1" +$ ! complications: "." is a filename, not the current directory +$ ! (even "[]" is actually "[].", that same filename, but we can +$ ! handle hacking it more easily); +$ ! "no/such/file" yields syntax error rather than no such file +$ ! when subdirectories no/ and no/such/ don't exist; +$ ! vms test suite doesn't generate Makefile; +$ ! "is a directory" and "no such file" aren't capitalized +$ ! gawk -f beginfile1.awk beginfile1.awk . ./no/such/file "Makefile" >_beginfile1.tmp 2>&1 +$ gawk -f beginfile1.awk beginfile1.awk [] ./no-such-file "Makefile.in" >_beginfile1.tmp 2>&1 + $ gawk -f - _beginfile1.tmp >_beginfile1.too +{ if (gsub("\\[\\]",".")) gsub("no such file or directory","is a directory") + gsub("no-such-file","file"); gsub("Makefile.in","Makefile"); print } +$ rm _beginfile1.tmp; +$ mv _beginfile1.too _beginfile1.tmp +$ igncascmp beginfile1.ok _beginfile1.tmp +$ if $status then rm _beginfile1.tmp; +$ return +$ +$dumpvars: echo "dumpvars" +$ gawk --dump-variables 1 <dumpvars.in >_NL: 2>&1 +$ mv awkvars.out _dumpvars.tmp +$ cmp dumpvars.ok _dumpvars.tmp +$ if $status then rm _dumpvars.tmp; +$ return +$ $profile1: echo "profile1" $ ! this profile test is run with gawk rather than pgawk $ ! FIXME: for both gawk invocations which pipe output to SORT, |