From 11ef8fd2637da3ad21f2bc803432cadf3451b67a Mon Sep 17 00:00:00 2001
From: John Malmberg <wb8tyw@qsl.net>
Date: Mon, 8 Jan 2018 21:59:31 -0600
Subject: Add tests to vmstest.com

---
 vms/ChangeLog   |  4 ++++
 vms/vmstest.com | 14 +++++++++++---
 2 files changed, 15 insertions(+), 3 deletions(-)

(limited to 'vms')

diff --git a/vms/ChangeLog b/vms/ChangeLog
index ad1f5737..27958653 100644
--- a/vms/ChangeLog
+++ b/vms/ChangeLog
@@ -1,3 +1,7 @@
+2018-01-08         John E. Malmberg      <wb8tyw@qsl.net>
+
+        * vmstest.com: New tests: numstr1, setrec0, setrec1.
+
 2017-10-19         Arnold D. Robbins     <arnold@skeeve.com>
 
 	* 4.2.0: Release tar ball made.
diff --git a/vms/vmstest.com b/vms/vmstest.com
index 23741a83..9f50b2ba 100644
--- a/vms/vmstest.com
+++ b/vms/vmstest.com
@@ -66,12 +66,15 @@ $! 4.1.3.i: New tests
 $!	basic:  ofmtstrnum
 $!	extra:  ignrcas3
 $!
-$! 4.1.3+: New tests
+$! 4.2.0: New tests
 $!      basic:   aryunasgn, concat5, memleak
 $!      ext:     fpat5, fpat6, fwtest5, fwtest6, fwtest7, fwtest8,
 $!               sourcesplit
 $!      charset: mbprintf5
 $!
+$! 4.2+: New tests
+$!      basic:   numstr1, setrec0, setrec1
+$!
 $	echo	= "write sys$output"
 $	cmp	= "diff/Output=_NL:/Maximum=1"
 $	delsym  = "delete/symbol/local/nolog"
@@ -217,7 +220,8 @@ $		gosub list_of_tests
 $		list = "nasty nasty2 negexp negrange nested nfldstr" -
 		  + " nfloop nfneg nfset nlfldsep nlinstr nlstrina" -
 		  + " noeffect nofile nofmtch noloop1 noloop2 nonl" -
-		  + " noparms nors nulinsrc nulrsend numindex numsubstr" -
+		  + " noparms nors nulinsrc nulrsend numindex numstr1" -
+		  + " numsubstr" -
 		  + " octsub ofmt ofmtbig ofmtfidl" -
 		  + " ofmta ofmts ofs1 onlynl opasnidx opasnslf
 $		gosub list_of_tests
@@ -232,7 +236,8 @@ $		list = "rand range1 rebrackloc rebt8b1 redfilnm regeq" -
 		  + " resplit rri1 rs rscompat rsnul1nl rsnulbig rsnulbig2" -
 		  + " rstest1 rstest2 rstest3 rstest4 rstest5 rswhite"
 $		gosub list_of_tests
-$		list = "scalar sclforin sclifin sigpipe1 sortempty sortglos" -
+$		list = "scalar sclforin sclifin setrec0 setrec1 sigpipe1" -
+		  + " sortempty sortglos" -
 		  + " splitargv splitarr splitdef splitvar splitwht" -
 		  + " strcat1 strtod strnum1 subamp subback subi18n subsepnm" -
 		  + " subslash substr swaplns synerr1 synerr2"
@@ -420,6 +425,7 @@ $reindops:
 $reparse:
 $rsnul1nl:
 $rswhite:
+$setrec0:
 $sortglos:
 $splitargv:
 $splitvar:
@@ -660,6 +666,7 @@ $memleak:
 $minusstr:
 $negrange:
 $nulinsrc:
+$numstr1:
 $nlstrina:
 $octsub:
 $ofmtstrnum:
@@ -671,6 +678,7 @@ $prt1eval:
 $rebt8b1:
 $regexprange:
 $regrange:
+$setrec1:
 $splitdef:
 $splitwht:
 $strnum1:
-- 
cgit v1.2.3