diff options
| -rw-r--r-- | vms/ChangeLog | 4 | ||||
| -rw-r--r-- | vms/vmstest.com | 8 |
2 files changed, 10 insertions, 2 deletions
diff --git a/vms/ChangeLog b/vms/ChangeLog index 46354286..d1bb737e 100644 --- a/vms/ChangeLog +++ b/vms/ChangeLog @@ -1,3 +1,7 @@ +2016-05-30 John E. Malmberg <wb8tyw@qsl.net> + + * vmstest.com: New tests (basic) fsnul1 + 2016-05-29 John E. Malmberg <wb8tyw@qsl.net> * stage_gawk_install.com: Fix directory path diff --git a/vms/vmstest.com b/vms/vmstest.com index 0bd5b09f..f047b5b7 100644 --- a/vms/vmstest.com +++ b/vms/vmstest.com @@ -46,6 +46,9 @@ $! ext: clos1way2, clos1way3, clos1way4, clos1way5 $! $! 4.1.3f: New tests $! basic: arrayind1,rscompat,sigpipe1 +$! +$! 4.1.3.g: New tests +$! basic: fsnul1 $ $ $ echo = "write sys$output" @@ -106,8 +109,8 @@ $ list = "callparam childin clobber closebad clsflnam" - $ gosub list_of_tests $ list = "fcall_exit fcall_exit2 fldchg fldchgnf" - + " fnamedat fnarray fnarray2 fnaryscl fnasgnm fnmisc" - - + " fordel forref forsimp fsbs fsspcoln fsrs fstabplus" - - + " funsemnl funsmnam funstack" + + " fordel forref forsimp fsbs fsnul1 fsspcoln fsrs" - + + " fstabplus funsemnl funsmnam funstack" $ gosub list_of_tests $ list = "getline getline2 getline3 getline4 getline5 " - + " getlnbuf getnr2tb getnr2tm gsubasgn gsubtest" - @@ -301,6 +304,7 @@ $fpat3: $fpat4: $fpatnull: $fsfwfs: +$fsnul1: $fsrs: $funlen: $funstack: |