diff options
Diffstat (limited to 'vms/vmstest.com')
| -rw-r--r-- | vms/vmstest.com | 321 |
1 files changed, 298 insertions, 23 deletions
diff --git a/vms/vmstest.com b/vms/vmstest.com index 85c4fa9d..af38e162 100644 --- a/vms/vmstest.com +++ b/vms/vmstest.com @@ -42,9 +42,13 @@ $basic: basic_lst1 = "msg swaplns messages argarray longwrds" - + " substr eofsplit prt1eval splitwht back89 tradanch" $ basic_lst2 = "nlfldsep splitvar intest nfldstr nors" - + " fnarydel noparms funstack clobber delarprm prdupval" - - + " nasty zeroflag getnr2tm getnr2tb printf1" - + + " nasty nasty2 zeroflag getnr2tm getnr2tb printf1" - + " funsmnam fnamedat numindex subslash opasnslf" - - + " opasnidx arynocls getlnbuf arysubnm fnparydl" + + " opasnidx arynocls getlnbuf arysubnm fnparydl" - + + " nlstrina octsub nlinstr ofmt hsprint ofmts parseme" - + + " splitdef fnaryscl fnasgnm ofmtbig paramtyp rsnul1nl" - + + " datanonl regeq redfilnm strtod leaddig arynasty" - + + " psx96sub addcomma" $ echo "basic" $basic_loop1: basic_test = f$element(0," ",basic_lst1) $ basic_lst1 = basic_lst1 - basic_test - " " @@ -56,8 +60,8 @@ $ if basic_test.nes." " then gosub 'basic_test' $ if basic_lst2.nes."" then goto basic_loop2 $ return $ -$unix_tests: unix_tst_list = "poundbang fflush getlnhd pipeio1" - - + " pipeio2 strftlng pid" +$unix_tests: unix_tst_list = "fflush getlnhd pid pipeio1" - + + " pipeio2 poundbang strftlng" $ echo "unix_tests" $unix_tst_loop: unix_tst_test = f$element(0," ",unix_tst_list) $ unix_tst_list = unix_tst_list - unix_tst_test - " " @@ -65,9 +69,10 @@ $ if unix_tst_test.nes." " then gosub 'unix_tst_test' $ if unix_tst_list.nes."" then goto unix_tst_loop $ return $ -$gawk_ext: gawk_ext_list = "fieldwdth ignrcase posix manyfiles" - - + " igncfs argtest badargs strftime gensub gnureops reint" - - + " igncdym" ! + " nondec" +$gawk_ext: gawk_ext_list = "argtest badargs clos1way fieldwdth" - + + " fsfwfs gensub gnuops2 gnureops igncdym igncfs" - + + " ignrcase lint manyfiles nondec posix procinfs" - + + " regx8bit reint shadow sort1 strftime" $ echo "gawk_ext (gawk.extensions)" $gawk_ext_loop: gawk_ext_test = f$element(0," ",gawk_ext_list) $ gawk_ext_list = gawk_ext_list - gawk_ext_test - " " @@ -83,10 +88,24 @@ $ if vms_tst_test.nes." " then gosub 'vms_tst_test' $ if vms_tst_list.nes."" then goto vms_tst_loop $ return $ -$extra: extra_list = "regtest inftest" +$extra: extra_list = "regtest inftest inet" $ echo "extra" -$ gosub "regtest" -$ gosub "inftest" +$extra_loop: extra_test = f$element(0," ",extra_list) +$ extra_list = extra_list - extra_test - " " +$ if extra_test.nes." " then gosub 'extra_test' +$ if extra_list.nes."" then goto extra_loop +$ return +$ +$inet: inet_list = "inetechu inetecht inetdayu inetdayt" +$ echo "inet" +$ type sys$input: + The inet tests only work if gawk has been built with tcp/ip socket + support and your system supports the services "discard" at port 9 + and "daytimed" at port 13. +$inet_loop: inet_test = f$element(0," ",inet_list) +$ inet_list = inet_list - inet_test - " " +$ if inet_test.nes." " then gosub 'inet_test' +$ if inet_list.nes."" then goto inet_loop $ return $ $poundbang: @@ -225,9 +244,11 @@ $ return $ $inftest: echo "inftest" $ !! echo "This test is very machine specific..." +$ set noOn $ gawk -f inftest.awk >tmp. $ !! cmp inftest.ok tmp. !just care that gawk doesn't crash... $ if $status then rm tmp.; +$ set On $ return $ $getline: echo "getline" @@ -325,12 +346,8 @@ $ if $status then rm tmp.; $ return $ $nonl: echo "nonl" -$ ! This one might fail, depending on which C run-time library is used. -$ ! If VAXCRTL is used by the program that unpacks the distribution, -$ ! then nonl.awk will actually end with a newline. Even when that's -$ ! not the case, if gawk itself uses VAXCRTL, an absent newline will -$ ! be fabricated by the library when gawk reads the file. DECC$SHR -$ ! doesn't behave this way.... +$ ! This one might fail, depending on the tool used to unpack the +$ ! distribution. Some will add a final newline if the file lacks one. $ AWKPATH_srcdir $ gawk --lint -f nonl.awk _NL: >tmp. 2>&1 $ cmp nonl.ok tmp. @@ -535,7 +552,7 @@ $ return $ $clsflnam: echo "clsflnam" $ if f$search("clsflnam.ok").eqs."" then create clsflnam.ok -$ gawk -f clsflnam.awk clsflnam.in >tmp. +$ gawk -f clsflnam.awk clsflnam.in >tmp. 2>&1 $ cmp clsflnam.ok tmp. $ if $status then rm tmp.; $ return @@ -623,7 +640,7 @@ $ open/Write ftmp _pid.in $ write ftmp f$integer("%x" + f$getjpi("","PID")) $ write ftmp f$integer("%x" + f$getjpi("","OWNER")) $ close ftmp -$ gawk -f pid.awk _pid.in >tmp. +$ gawk -f pid.awk _pid.in >tmp. >& _NL: $ rm _pid.in; $ cmp pid.ok tmp. $ if $status then rm tmp.; @@ -723,11 +740,23 @@ $ if $status then rm tmp.; $ return $ $nasty: echo "nasty" +$ set noOn $ gawk -f nasty.awk >tmp. -$ if f$file_attrib("nasty.ok","LRL").eq.0 then convert nasty.ok *.* -$ if f$file_attrib("tmp.", "LRL").eq.0 then convert tmp. *.* +$ call fixup_LRL nasty.ok +$ call fixup_LRL tmp. "purge" $ cmp nasty.ok tmp. $ if $status then rm tmp.; +$ set On +$ return +$ +$nasty2: echo "nasty2" +$ set noOn +$ gawk -f nasty2.awk >tmp. +$ call fixup_LRL nasty2.ok +$ call fixup_LRL tmp. "purge" +$ cmp nasty2.ok tmp. +$ if $status then rm tmp.; +$ set On $ return $ $zeroflag: echo "zeroflag" @@ -836,9 +865,235 @@ $ if $status then rm tmp.; $ return $ $nondec: echo "nondec" -$ ! gawk -f nondec.awk >tmp. -$ ! cmp nondec.ok tmp. -$ ! if $status then rm tmp.; +$ gawk -f nondec.awk >tmp. +$ cmp nondec.ok tmp. +$ if $status then rm tmp.; +$ return +$ +$nlstrina: echo "nlstrina" +$ AWKPATH_srcdir +$ gawk -f nlstrina.awk >tmp. +$ cmp nlstrina.ok tmp. +$ if $status then rm tmp.; +$ return +$ +$octsub: echo "octsub" +$ AWKPATH_srcdir +$ gawk -f octsub.awk >tmp. +$ cmp octsub.ok tmp. +$ if $status then rm tmp.; +$ return +$ +$nlinstr: echo "nlinstr" +$ gawk -f nlinstr.awk nlinstr.in >tmp. +$ cmp nlinstr.ok tmp. +$ if $status then rm tmp.; +$ return +$ +$ofmt: echo "ofmt" +$ gawk -f ofmt.awk ofmt.in >tmp. +$ cmp ofmt.ok tmp. +$ if $status then rm tmp.; +$ return +$ +$hsprint: echo "hsprint" +$ gawk -f hsprint.awk >tmp. +$ cmp hsprint.ok tmp. +$ if $status then rm tmp.; +$ return +$ +$fsfwfs: echo "fsfwfs" +$ gawk -f fsfwfs.awk fsfwfs.in >tmp. +$ cmp fsfwfs.ok tmp. +$ if $status then rm tmp.; +$ return +$ +$ofmts: echo "ofmts" +$ gawk -f ofmts.awk ofmts.in >tmp. +$ cmp ofmts.ok tmp. +$ if $status then rm tmp.; +$ return +$ +$parseme: echo "parseme" +$ set noOn +$ AWKPATH_srcdir +$ gawk -f parseme.awk >tmp. 2>&1 +$ set On +$ cmp parseme.ok tmp. +$ if $status then rm tmp.; +$ return +$ +$splitdef: echo "splitdef" +$ gawk -f splitdef.awk >tmp. +$ cmp splitdef.ok tmp. +$ if $status then rm tmp.; +$ return +$ +$fnaryscl: echo "fnaryscl" +$ set noOn +$ AWKPATH_srcdir +$ gawk -f fnaryscl.awk >tmp. 2>&1 +$ set On +$ cmp fnaryscl.ok tmp. +$ if $status then rm tmp.; +$ return +$ +$fnasgnm: echo "fnasgnm" +$ set noOn +$ AWKPATH_srcdir +$ gawk -f fnasgnm.awk < fnasgnm.in >tmp. 2>&1 +$ set On +$ cmp fnasgnm.ok tmp. +$ if $status then rm tmp.; +$ return +$ +$lint: echo "lint" +$ AWKPATH_srcdir +$ gawk -f lint.awk >tmp. 2>&1 +$ cmp lint.ok tmp. +$ if $status then rm tmp.; +$ return +$ +$procinfs: echo "procinfs" +$ gawk -f procinfs.awk >tmp. +$ cmp procinfs.ok tmp. +$ if $status then rm tmp.; +$ return +$ +$sort1: echo "sort1" +$ gawk -f sort1.awk >tmp. +$ cmp sort1.ok tmp. +$ if $status then rm tmp.; +$ return +$ +$ofmtbig: echo "ofmtbig" +$ set noOn +$ gawk -f ofmtbig.awk ofmtbig.in >tmp. 2>&1 +$ set On +$ cmp ofmtbig.ok tmp. +$ if $status then rm tmp.; +$ return +$ +$inetechu: echo "inetechu" +$ echo "this test is for establishing UDP connections" +$ set noOn +$ gawk -- "BEGIN {print """" |& ""/inet/udp/0/127.0.0.1/9""}" +$ set On +$ return +$ +$inetecht: echo "inetecht" +$ echo "this test is for establishing TCP connections" +$ set noOn +$ gawk -- "BEGIN {print """" |& ""/inet/tcp/0/127.0.0.1/9""}" +$ set On +$ return +$ +$inetdayu: echo "inetdayu" +$ echo "this test is for bidirectional UDP transmission" +$ set noOn +$ gawk -f - nl: +BEGIN { print "" |& "/inet/udp/0/127.0.0.1/13"; + "/inet/udp/0/127.0.0.1/13" |& getline; print $0} +$ set On +$ return +$ +$inetdayt: echo "netdayt" +$ echo "this test is for bidirectional TCP transmission" +$ set noOn +$ gawk -f - nl: +BEGIN { print "" |& "/inet/tcp/0/127.0.0.1/13"; + "/inet/tcp/0/127.0.0.1/13" |& getline; print $0} +$ set On +$ return +$ +$paramtyp: echo "paramtyp" +$ gawk -f paramtyp.awk >tmp. +$ cmp paramtyp.ok tmp. +$ if $status then rm tmp.; +$ return +$ +$rsnul1nl: echo "rsnul1nl" +$ gawk -f rsnul1nl.awk rsnul1nl.in >tmp. +$ cmp rsnul1nl.ok tmp. +$ if $status then rm tmp.; +$ return +$ +$datanonl: echo "datanonl" +$ gawk -f datanonl.awk datanonl.in >tmp. +$ cmp datanonl.ok tmp. +$ if $status then rm tmp.; +$ return +$ +$regeq: echo "regeq" +$ gawk -f regeq.awk regeq.in >tmp. +$ cmp regeq.ok tmp. +$ if $status then rm tmp.; +$ return +$ +$redfilnm: echo "redfilnm" +$ gawk -f redfilnm.awk srcdir="." redfilnm.in >tmp. +$ cmp redfilnm.ok tmp. +$ if $status then rm tmp.; +$ return +$ +$strtod: echo "strtod" +$ gawk -f strtod.awk strtod.in >tmp. +$ cmp strtod.ok tmp. +$ if $status then rm tmp.; +$ return +$ +$leaddig: echo "leaddig" +$ gawk -v "x=2E" -f leaddig.awk >tmp. +$ cmp leaddig.ok tmp. +$ if $status then rm tmp.; +$ return +$ +$clos1way: +$ echo "clos1way: uses unsupported `|&' redirection, so skipped" +$ return +$!!clos1way: echo "clos1way" +$ gawk -f clos1way.awk >tmp. +$ cmp clos1way.ok tmp. +$ if $status then rm tmp.; +$ return +$ +$arynasty: echo "arynasty" +$ gawk -f arynasty.awk >tmp. +$ cmp arynasty.ok tmp. +$ if $status then rm tmp.; +$ return +$ +$shadow: echo "shadow" +$ set noOn +$ AWKPATH_srcdir +$ gawk --lint -f shadow.awk >tmp. 2>&1 +$ set On +$ cmp shadow.ok tmp. +$ if $status then rm tmp.; +$ return +$ +$regx8bit: echo "regx8bit" +$ gawk -f regx8bit.awk >tmp. +$ cmp regx8bit.ok tmp. +$ if $status then rm tmp.; +$ return +$ +$psx96sub: echo "psx96sub" +$ gawk -f psx96sub.awk >tmp. +$ cmp psx96sub.ok tmp. +$ if $status then rm tmp.; +$ return +$ +$addcomma: echo "addcomma" +$ gawk -f addcomma.awk addcomma.in >tmp. +$ cmp addcomma.ok tmp. +$ if $status then rm tmp.; +$ return +$ +$gnuops2: echo "gnuops2" +$ gawk -f gnuops2.awk >tmp. +$ cmp gnuops2.ok tmp. +$ if $status then rm tmp.; $ return $ $vms_io1: echo "vms_io1" @@ -866,5 +1121,25 @@ $ if f$search("[.junk]*.*").nes."" then rm [.junk]*.*;* $ if f$parse("[.junk]") .nes."" then rm []junk.dir;1 $ return $ +$! make sure that the specified file's longest-record-length field is set; +$! otherwise DIFF will choke if any record is longer than 512 bytes +$fixup_LRL: subroutine +$ lrl = 0 !VMS V5.5-2 didn't support the LRL argument yet +$ define/user sys$error nl: +$ define/user sys$output nl: +$ lrl = f$file_attribute(p1,"LRL") +$ if lrl.eq.0 then lrl = f$file_attribute(p1,"MRS") +$ if lrl.eq.0 +$ then convert/fdl=sys$input: 'p1' *.* +file + organization sequential +record + format stream_lf + size 32767 +$ if $status .and. p2.eqs."purge" then rm 'p1';-1 +$ else cmp nl: nl: !deassign/user sys${error,output} +$ endif +$ endsubroutine !fixup_LRL +$ $!NOTREACHED $ exit |