From c74913824e580aa909f6e53346401d198314d6a6 Mon Sep 17 00:00:00 2001 From: John Malmberg Date: Mon, 30 May 2016 18:23:25 -0500 Subject: vmstest.com add fsnul1 --- vms/ChangeLog | 4 ++++ vms/vmstest.com | 8 ++++++-- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/vms/ChangeLog b/vms/ChangeLog index c16366ca..c5b12a2f 100644 --- a/vms/ChangeLog +++ b/vms/ChangeLog @@ -1,3 +1,7 @@ +2016-05-30 John E. Malmberg + + * vmstest.com: New tests (basic) fsnul1 + 2016-05-29 John E. Malmberg * 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: -- cgit v1.2.3