diff options
| author | John Malmberg <wb8tyw@qsl.net> | 2018-01-22 23:32:38 -0600 |
|---|---|---|
| committer | John Malmberg <wb8tyw@qsl.net> | 2018-01-22 23:34:18 -0600 |
| commit | 5dc349424b717a55c310f48671e4d15a757765e9 (patch) | |
| tree | afd0170aca746f53fe3dbdecb39facdd85c0dde7 | |
| parent | df879c99ee77225dae7d75a7b7783224941a1e99 (diff) | |
| download | egawk-5dc349424b717a55c310f48671e4d15a757765e9.tar.gz egawk-5dc349424b717a55c310f48671e4d15a757765e9.tar.bz2 egawk-5dc349424b717a55c310f48671e4d15a757765e9.zip | |
Add new tests to vms/vmstest.com
| -rwxr-xr-x[-rw-r--r--] | vms/ChangeLog | 5 | ||||
| -rw-r--r-- | vms/vmstest.com | 30 |
2 files changed, 33 insertions, 2 deletions
diff --git a/vms/ChangeLog b/vms/ChangeLog index 27958653..9c043b4a 100644..100755 --- a/vms/ChangeLog +++ b/vms/ChangeLog @@ -1,3 +1,8 @@ +2018-01-22 John E. Malmberg <wb8tyw@qsl.net> + + * vmstest.com: New tests: isarrayunset, nlstringtest + Fix lintold test not to stop test run on failure. + 2018-01-08 John E. Malmberg <wb8tyw@qsl.net> * vmstest.com: New tests: numstr1, setrec0, setrec1. diff --git a/vms/vmstest.com b/vms/vmstest.com index 9f50b2ba..eb95f392 100644 --- a/vms/vmstest.com +++ b/vms/vmstest.com @@ -74,6 +74,8 @@ $! charset: mbprintf5 $! $! 4.2+: New tests $! basic: numstr1, setrec0, setrec1 +$! extra: isarrayunset, nlstringtest +$! $! $ echo = "write sys$output" $ cmp = "diff/Output=_NL:/Maximum=1" @@ -329,7 +331,8 @@ $ gosub list_of_tests $ return $ $extra: echo "extra..." -$ list = "regtest inftest inet ignrcas3" +$ list = "regtest inftest inet ignrcas3 isarrayunset" - + + " nlstringtest" $ gosub list_of_tests $ return $ @@ -687,6 +690,9 @@ $zero2: $zeroflag: $ test_class = "basic" $ goto common_without_test_in +$isarrayunset: +$ test_class = "extra" +$ goto common_without_test_in $! $aarray1: $aasort: @@ -1736,7 +1742,7 @@ $ if f$search("sys$i18n_locale:el_gr_iso8859-7.locale") .nes. "" $ then $ define/user LC_ALL "el_gr_iso8859-7" $ define/user GAWKLOCALE "el_gr_iso8859-7" - AWKPATH_srcdir +$ AWKPATH_srcdir $! goto common_without_test_in $ skip_reason = "VMS EL_GR_ISO8859-7 locale fails test" $ gosub junit_report_skip @@ -1746,6 +1752,24 @@ $ gosub junit_report_skip $ endif $ return $! +$nlstringtest: echo "''test'" +$ test_class = "extra" +$ ! This locale does not seem to be available from the HPE I18N kit. +$ ! So this test has not been run on VMS. +$ if f$search("sys$i18n_locale:fr_fr_utf-8.locale") .nes. "" +$ then +$ define/user LC_ALL "fr_fr_utf-8" +$ define/user GAWKLOCALE "fr_fr_utf-8" +$ AWKPATH_srcdir +$! goto common_without_test_in +$ skip_reason = "VMS FR_FR_UTF-8 locale test not validated." +$ gosub junit_report_skip +$ else +$ skip_reason = "FR_FR_UTF-8 locale not installed" +$ gosub junit_report_skip +$ endif +$ return +$! $childin: echo "''test'" $ test_class = "basic" $ cat = "type sys$input" @@ -2258,7 +2282,9 @@ $ $lintold: echo "lintold" $ test_class = "gawk_ext" $ AWKPATH_srcdir +$ set noOn $ gawk -f lintold.awk --lint-old <lintold.in >_lintold.tmp 2>&1 +$ set on $ cmp lintold.ok sys$disk:[]_lintold.tmp $ if $status $ then |