"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "vms/vmstest.com" between
gawk-5.0.1.tar.xz and gawk-5.1.0.tar.xz

About: GNU awk - pattern scanning and processing language.

vmstest.com  (gawk-5.0.1.tar.xz):vmstest.com  (gawk-5.1.0.tar.xz)
skipping to change at line 98 skipping to change at line 98
$ gawk = "$sys$disk:[-]gawk" $ gawk = "$sys$disk:[-]gawk"
$ AWKPATH_srcdir = "define/User AWKPATH sys$disk:[]" $ AWKPATH_srcdir = "define/User AWKPATH sys$disk:[]"
$ AWKLIBPATH_dir = "define/User AWKLIBPATH sys$disk:[-]" $ AWKLIBPATH_dir = "define/User AWKLIBPATH sys$disk:[-]"
$ arch_name = f$edit(f$getsyi("arch_name"),"upcase,trim") $ arch_name = f$edit(f$getsyi("arch_name"),"upcase,trim")
$ $
$! Make sure that the default directory exists on a search list. $! Make sure that the default directory exists on a search list.
$ def_dir = f$environment("default") $ def_dir = f$environment("default")
$ create/dir 'def_dir' $ create/dir 'def_dir'
$ listdepth = 0 $ listdepth = 0
$ pipeok = 0 $ pipeok = 0
$ prepend_error = 0
$ floatmode = -1 ! 0: D_float, 1: G_float, 2: IEEE T_float $ floatmode = -1 ! 0: D_float, 1: G_float, 2: IEEE T_float
$ $
$ list = p1+" "+p2+" "+p3+" "+p4+" "+p5+" "+p6+" "+p7+" "+p8 $ list = p1+" "+p2+" "+p3+" "+p4+" "+p5+" "+p6+" "+p7+" "+p8
$ list = f$edit(list,"TRIM,LOWERCASE") $ list = f$edit(list,"TRIM,LOWERCASE")
$ if list.eqs."" then list = "all" ! bigtest $ if list.eqs."" then list = "all" ! bigtest
$ gosub create_junit_test_header $ gosub create_junit_test_header
$ gosub list_of_tests $ gosub list_of_tests
$ gosub finish_junit_test $ gosub finish_junit_test
$ echo "done." $ echo "done."
$ exit $ exit
$! $!
$create_junit_test_header: $create_junit_test_header:
$ junit_count = 0 $ junit_count = 0
$ temp_fdl = "sys$disk:[]stream_lf.fdl" $ temp_fdl = "sys$disk:[]stream_lf.fdl"
$ arch_code = f$extract(0, 1, arch_name) $ arch_code = f$extract(0, 1, arch_name)
$! $!
$ if f$trnlnm("junit",,, "SUPERVISOR") .nes. ""
$ then
$ close junit
$ endif
$ if f$trnlnm("junit_hdr",,, "SUPERVISOR") .nes. ""
$ then
$ close junit_hdr
$ endif
$ junit_hdr_file = "sys$disk:[]test_output.xml" $ junit_hdr_file = "sys$disk:[]test_output.xml"
$ if f$search(junit_hdr_file) .nes. "" then delete 'junit_hdr_file';* $ if f$search(junit_hdr_file) .nes. "" then delete 'junit_hdr_file';*
$ junit_body_file = "sys$disk:[]test_body_tmp.xml" $ junit_body_file = "sys$disk:[]test_body_tmp.xml"
$ if f$search(junit_body_file) .nes. "" then delete 'junit_body_file';* $ if f$search(junit_body_file) .nes. "" then delete 'junit_body_file';*
$!! $!!
$ if arch_code .nes. "V" $ if arch_code .nes. "V"
$ then $ then
$ create 'junit_hdr_file'/fdl="RECORD; FORMAT STREAM_LF;" $ create 'junit_hdr_file'/fdl="RECORD; FORMAT STREAM_LF;"
$ create 'junit_body_file'/fdl="RECORD; FORMAT STREAM_LF;" $ create 'junit_body_file'/fdl="RECORD; FORMAT STREAM_LF;"
$ else $ else
$ if f$search(temp_fdl) .nes. "" then delete 'temp_fdl';* $ if f$search(temp_fdl) .nes. "" then delete 'temp_fdl';*
$ create 'temp_fdl' $ create 'temp_fdl'
RECORD RECORD
FORMAT stream_lf FORMAT stream_lf
$ continue $ continue
$ create 'junit_hdr_file'/fdl='temp_fdl' $ create 'junit_hdr_file'/fdl='temp_fdl'
$ create 'junit_body_file'/fdl='temp_fdl' $ create 'junit_body_file'/fdl='temp_fdl'
$ endif $ endif
$ open/append junit 'junit_body_file' $ open/append junit 'junit_body_file'
$ if f$search(temp_fdl) .nes. "" then delete 'temp_fdl';*
$ return $ return
$! $!
$finish_junit_test: $finish_junit_test:
$ open/append junit_hdr 'junit_hdr_file' $ open/append junit_hdr 'junit_hdr_file'
$ write junit_hdr "<?xml version=""1.0"" encoding=""UTF-8""?>" $ write junit_hdr "<?xml version=""1.0"" encoding=""UTF-8""?>"
$ write junit_hdr "<testsuite name=""gawk""" $ write junit_hdr "<testsuite name=""gawk"""
$ write junit_hdr " tests=""''junit_count'"">" $ write junit_hdr " tests=""''junit_count'"">"
$ close junit_hdr $ close junit_hdr
$ write junit "</testsuite>" $ write junit "</testsuite>"
$ close junit $ close junit
skipping to change at line 389 skipping to change at line 397
$ gosub 'test' $ gosub 'test'
$ if list'listdepth'.nes."" then goto next_test $ if list'listdepth'.nes."" then goto next_test
$ listdepth = listdepth - 1 ! reset $ listdepth = listdepth - 1 ! reset
$ return $ return
$ $
$ $
$! common tests, not needing special set up: gawk -f 'test'.awk 'test'.in $! common tests, not needing special set up: gawk -f 'test'.awk 'test'.in
$addcomma: $addcomma:
$anchgsub: $anchgsub:
$asgext: $asgext:
$back89:
$backgsub: $backgsub:
$concat1: $concat1:
$datanonl: $datanonl:
$dfamb1: $dfamb1:
$fldchg: $fldchg:
$fldchgnf: $fldchgnf:
$fsnul1: $fsnul1:
$fsrs: $fsrs:
$funstack: $funstack:
$getline4: $getline4:
$getnr2tb: $getnr2tb:
$getnr2tm: $getnr2tm:
$gsubtst5:
$gsubtst7: $gsubtst7:
$gsubtst8: $gsubtst8:
$hex2: $hex2:
$inpref: $inpref:
$leadnl: $leadnl:
$manglprm: $manglprm:
$membug1: $membug1:
$nested: $nested:
$nfset: $nfset:
$nlfldsep: $nlfldsep:
skipping to change at line 444 skipping to change at line 454
$splitvar: $splitvar:
$strtod: $strtod:
$subback: $subback:
$swaplns: $swaplns:
$uparrfs: $uparrfs:
$wjposer1: $wjposer1:
$ test_class = "basic" $ test_class = "basic"
$ test_in = "''test'.in" $ test_in = "''test'.in"
$ goto common_with_test_in_redir $ goto common_with_test_in_redir
$! $!
$gsubtst5:
$ test_class = "basic"
$ test_in = "''test'.in"
$ prepend_error = 1
$ goto common_with_test_in_redir
$!
$sprintfc: $sprintfc:
$ test_class = "charset_tests" $ test_class = "charset_tests"
$ test_in = "''test'.in" $ test_in = "''test'.in"
$ goto common_with_test_in_redir $ goto common_with_test_in_redir
$! $!
$backw: $backw:
$fpat1: $fpat1:
$fpat3: $fpat3:
$fpat5: $fpat5:
$fpat6: $fpat6:
skipping to change at line 494 skipping to change at line 498
$! $!
$fwtest3: $fwtest3:
$ test_in = "fwtest2.in" $ test_in = "fwtest2.in"
$ test_class = "gawk_ext" $ test_class = "gawk_ext"
$ goto common_with_test_in_redir $ goto common_with_test_in_redir
$! $!
$common_with_test_in_redir: $common_with_test_in_redir:
$! common with 'test'.in redirected. $! common with 'test'.in redirected.
$! $!
$ echo "''test'" $ echo "''test'"
$ if f$search("sys$disk:[]_''test'.tmp2;*") .nes. "" $! if f$search("sys$disk:[]_''test'.tmp2;*") .nes. ""
$ then $! then
$ delete sys$disk:[]_'test'.tmp2;* $! delete sys$disk:[]_'test'.tmp2;*
$ endif $! endif
$ if f$search("sys$disk:[]_''test'.tmp;*") .nes. "" $ if f$search("sys$disk:[]_''test'.tmp;*") .nes. ""
$ then $ then
$ delete sys$disk:[]_'test'.tmp;* $ delete sys$disk:[]_'test'.tmp;*
$ endif $ endif
$ if prepend_error .eq. 1 $ tmp_output = "_''test'.tmp"
$ then
$ tmp_error = "_''test'.tmp"
$ tmp_output = "_''test'.tmp2"
$ else
$ tmp_error = "_''test'.tmp2"
$ tmp_output = "_''test'.tmp"
$ endif
$ prepend_error = 0
$ set noOn $ set noOn
$ define/user sys$error 'tmp_error' $ gawk -f 'test'.awk < 'test_in' >'tmp_output' 2>&1
$ gawk -f 'test'.awk < 'test_in' >'tmp_output'
$ gawk_status = $status $ gawk_status = $status
$ set On $ set On
$ if f$search("sys$disk:[]_''test'.tmp;2") .nes. "" $ if f$search("sys$disk:[]_''test'.tmp;2") .nes. ""
$ then $ then
$ delete sys$disk:[]_'test'.tmp;2 $ delete sys$disk:[]_'test'.tmp;2
$ endif $ endif
$ if f$search("sys$disk:[]_''test'.tmp2;2") .nes. ""
$ then
$ delete sys$disk:[]_'test'.tmp2;2
$ endif
$ append _'test'.tmp2 _'test'.tmp
$ if .not. gawk_status $ if .not. gawk_status
$ then $ then
$ call exit_code 'gawk_status' _'test'.tmp $ call exit_code 'gawk_status' _'test'.tmp
$ endif $ endif
$ cmp 'test'.ok sys$disk:[]_'test'.tmp $ cmp 'test'.ok sys$disk:[]_'test'.tmp
$ if $status $ if $status
$ then $ then
$ rm _'test'.tmp;*,_'test'.tmp2;* $ rm _'test'.tmp;*
$ gosub junit_report_pass $ gosub junit_report_pass
$ else $ else
$ gosub junit_report_fail_diff $ gosub junit_report_fail_diff
$ endif $ endif
$ return $ return
$! $!
$! $!
$! Gawk treats < 'test_in' differently than just 'test_in' on VMS $! Gawk treats < 'test_in' differently than just 'test_in' on VMS
$! and some tests care about this. $! and some tests care about this.
$common_with_test_input: $common_with_test_input:
skipping to change at line 1065 skipping to change at line 1055
$ define/User TEST "test" !this is useless... $ define/User TEST "test" !this is useless...
$ gawk -f argarray.awk ./argarray.input - >_argarray.tmp $ gawk -f argarray.awk ./argarray.input - >_argarray.tmp
just a test just a test
$ if f$search("sys$disk:[]_''test'.tmp;2") .nes. "" $ if f$search("sys$disk:[]_''test'.tmp;2") .nes. ""
$ then $ then
$ delete sys$disk:[]_'test'.tmp;2 $ delete sys$disk:[]_'test'.tmp;2
$ endif $ endif
$ cmp argarray.ok sys$disk:[]_argarray.tmp $ cmp argarray.ok sys$disk:[]_argarray.tmp
$ if $status $ if $status
$ then $ then
$ rm _argarray.tmp; $ rm _argarray.tmp;,sys$disk:[]argarray.input;
$ gosub junit_report_pass $ gosub junit_report_pass
$ else $ else
$ gosub junit_report_fail_diff $ gosub junit_report_fail_diff
$ endif $ endif
$ return $ return
$ $
$fstabplus: echo "fstabplus" $fstabplus: echo "fstabplus"
$ test_class = "basic" $ test_class = "basic"
$ gawk -f fstabplus.awk >_fstabplus.tmp $ gawk -f fstabplus.awk >_fstabplus.tmp
1 2 1 2
skipping to change at line 1186 skipping to change at line 1176
$ test_class = "gawk_ext" $ test_class = "gawk_ext"
$!! this used to use a hard-coded value of 300 simultaneously open $!! this used to use a hard-coded value of 300 simultaneously open
$!! files, but if our open file quota is generous enough then that $!! files, but if our open file quota is generous enough then that
$!! wouldn't exercise the ability to handle more than the maximum $!! wouldn't exercise the ability to handle more than the maximum
$!! number allowed at once $!! number allowed at once
$ f_cnt = 300 $ f_cnt = 300
$ chnlc = f$getsyi("CHANNELCNT") $ chnlc = f$getsyi("CHANNELCNT")
$ fillm = f$getjpi("","FILLM") $ fillm = f$getjpi("","FILLM")
$ if fillm.ge.chnlc then fillm = chnlc - 1 $ if fillm.ge.chnlc then fillm = chnlc - 1
$ if fillm.ge.f_cnt then f_cnt = fillm + 10 $ if fillm.ge.f_cnt then f_cnt = fillm + 10
$ if f$search("[.junk]*.*").nes."" then rm [.junk]*.*;* $ if f$search("sys$disk:[.junk]*.*").nes.""
$ if f$parse("[.junk]").eqs."" then create/Dir/Prot=(O:rwed) [.junk] $ then
$ gawk -- "BEGIN {for (i = 1; i <= ''f_cnt'; i++) print i, i}" >_manyfiles. $ rm sys$disk:[.junk]*.*;*
dat $ endif
$ if f$parse("sys$disk:[.junk]") .eqs. ""
$ then
$ create/Dir/Prot=(O:rwed) sys$disk:[.junk]
$ endif
$ gawk -- "BEGIN {for (i = 1; i <= ''f_cnt'; i++) print i, i}" -
>_manyfiles.dat
$ echo "(processing ''f_cnt' files; this may take quite a while)" $ echo "(processing ''f_cnt' files; this may take quite a while)"
$ set noOn ! continue even if gawk fails $ set noOn ! continue even if gawk fails
$ gawk -f manyfiles.awk _manyfiles.dat _manyfiles.dat $ gawk -f manyfiles.awk _manyfiles.dat _manyfiles.dat
$ define/User sys$error _NL: $ define/User sys$error _NL:
$ define/User sys$output _manyfiles.tmp $ define/User sys$output _manyfiles.tmp
$ search/Match=Nor/Output=_NL:/Log [.junk]*.* "" $ search/Match=Nor/Output=_NL:/Log sys$disk:[.junk]*.* ""
$!/Log output: "%SEARCH-S-NOMATCH, <filename> - <#> records" plus 1 line summary $!/Log output: "%SEARCH-S-NOMATCH, <filename> - <#> records" plus 1 line summary
$ gawk -v "F_CNT=''f_cnt'" -f - _manyfiles.tmp $ gawk -v "F_CNT=''f_cnt'" -f - _manyfiles.tmp
$deck !some input begins with "$" $deck !some input begins with "$"
$4 != 2 {++count} $4 != 2 {++count}
END {if (NR != F_CNT+1 || count != 1) {print "\nFailed!"}} END {if (NR != F_CNT+1 || count != 1) {print "\nFailed!"}}
$eod $eod
$ set On $ set On
$ skip_reason = "Test detection not implemented yet" $ skip_reason = "Test detection not implemented yet"
$ gosub junit_report_skip $ gosub junit_report_skip
$ rm _manyfiles.tmp;,_manyfiles.dat;,[.junk]*.*;*,[]junk.dir; $ rm sys$disk:_manyfiles.tmp;,sys$disk:_manyfiles.dat;
$ rm sys$disk:[.junk]*.*;*,sys$disk:[]junk.dir;
$ return $ return
$ $
$compare: echo "compare" $compare: echo "compare"
$ test_class = "basic" $ test_class = "basic"
$ gawk -f compare.awk 0 1 compare.in >_compare.tmp $ gawk -f compare.awk 0 1 compare.in >_compare.tmp
$ if f$search("sys$disk:[]_''test'.tmp;2") .nes. "" $ if f$search("sys$disk:[]_''test'.tmp;2") .nes. ""
$ then $ then
$ delete sys$disk:[]_'test'.tmp;2 $ delete sys$disk:[]_'test'.tmp;2
$ endif $ endif
$ cmp compare.ok sys$disk:[]_compare.tmp $ cmp compare.ok sys$disk:[]_compare.tmp
skipping to change at line 1964 skipping to change at line 1962
$ gawk -f eofsplit.awk >_eofsplit.tmp $ gawk -f eofsplit.awk >_eofsplit.tmp
$ cmp eofsplit.ok sys$disk:[]_eofsplit.tmp $ cmp eofsplit.ok sys$disk:[]_eofsplit.tmp
$ if $status $ if $status
$ then $ then
$ rm _eofsplit.tmp; $ rm _eofsplit.tmp;
$ gosub junit_report_pass $ gosub junit_report_pass
$ else $ else
$ gosub junit_report_fail_diff $ gosub junit_report_fail_diff
$ endif $ endif
$ return $ return
$ $!
$back89: ! echo "back89"
$ test_class = "basic"
$ test_in = "''test'.in"
$ prepend_error = 1
$ goto common_with_test_in_redir
$
$tradanch: echo "tradanch" $tradanch: echo "tradanch"
$ test_class = "basic" $ test_class = "basic"
$ if f$search("tradanch.ok").eqs."" then create tradanch.ok $ if f$search("tradanch.ok").eqs."" then create tradanch.ok
$ gawk --traditional -f tradanch.awk tradanch.in >_tradanch.tmp $ gawk --traditional -f tradanch.awk tradanch.in >_tradanch.tmp
$ cmp tradanch.ok sys$disk:[]_tradanch.tmp $ cmp tradanch.ok sys$disk:[]_tradanch.tmp
$ if $status $ if $status
$ then $ then
$ rm _tradanch.tmp; $ rm _tradanch.tmp;
$ gosub junit_report_pass $ gosub junit_report_pass
$ else $ else
skipping to change at line 2073 skipping to change at line 2065
$ then $ then
$ rm _nors.tmp; $ rm _nors.tmp;
$ gosub junit_report_pass $ gosub junit_report_pass
$ else $ else
$ gosub junit_report_fail_diff $ gosub junit_report_fail_diff
$ endif $ endif
$ return $ return
$ $
$reint: echo "reint" $reint: echo "reint"
$ test_class = "gawk_ext" $ test_class = "gawk_ext"
$ set noOn
$ gawk --re-interval -f reint.awk reint.in >_reint.tmp $ gawk --re-interval -f reint.awk reint.in >_reint.tmp
$ gawk_status = $status
$ set On
$ if f$search("sys$disk:[]_''test'.tmp;2") .nes. "" $ if f$search("sys$disk:[]_''test'.tmp;2") .nes. ""
$ then $ then
$ delete sys$disk:[]_'test'.tmp;2 $ delete sys$disk:[]_'test'.tmp;2
$ endif $ endif
$ if .not. gawk_status
$ then
$ call exit_code 'gawk_status' _'test'.tmp
$ endif
$ cmp reint.ok sys$disk:[]_reint.tmp $ cmp reint.ok sys$disk:[]_reint.tmp
$ if $status $ if gawk_status
$ then $ then
$ rm _reint.tmp; $ rm _reint.tmp;
$ gosub junit_report_pass $ gosub junit_report_pass
$ else $ else
$ gosub junit_report_fail_diff $ gosub junit_report_fail_diff
$ endif $ endif
$ return $ return
$ $
$noparms: echo "noparms" $noparms: echo "noparms"
$ test_class = "basic" $ test_class = "basic"
skipping to change at line 3381 skipping to change at line 3380
$ rm _mtchi18n.tmp; $ rm _mtchi18n.tmp;
$ gosub junit_report_pass $ gosub junit_report_pass
$ else $ else
$ gosub junit_report_fail_diff $ gosub junit_report_fail_diff
$ endif $ endif
$ return $ return
$ $
$reint2: echo "reint2" $reint2: echo "reint2"
$ test_class = "gawk_ext" $ test_class = "gawk_ext"
$ gosub define_gawklocale $ gosub define_gawklocale
$ set noOn
$ gawk --re-interval -f reint2.awk reint2.in >_reint2.tmp $ gawk --re-interval -f reint2.awk reint2.in >_reint2.tmp
$ gawk_status = $status
$ set On
$ if f$search("sys$disk:[]_''test'.tmp;2") .nes. "" $ if f$search("sys$disk:[]_''test'.tmp;2") .nes. ""
$ then $ then
$ delete sys$disk:[]_'test'.tmp;2 $ delete sys$disk:[]_'test'.tmp;2
$ endif $ endif
$ if .not. gawk_status
$ then
$ call exit_code 'gawk_status' _'test'.tmp
$ endif
$ cmp reint2.ok sys$disk:[]_reint2.tmp $ cmp reint2.ok sys$disk:[]_reint2.tmp
$ if $status $ if gawk_status
$ then $ then
$ rm _reint2.tmp; $ rm _reint2.tmp;
$ gosub junit_report_pass $ gosub junit_report_pass
$ else $ else
$ gosub junit_report_fail_diff $ gosub junit_report_fail_diff
$ endif $ endif
$ return $ return
$ $
$localenl: echo "localenl" $localenl: echo "localenl"
$ test_class = "unix_tests" $ test_class = "unix_tests"
skipping to change at line 3785 skipping to change at line 3791
$ else $ else
$ gosub junit_report_fail_diff $ gosub junit_report_fail_diff
$ endif $ endif
$ return $ return
$ $
$profile4: $profile4:
$profile5: $profile5:
$profile8: $profile8:
$ echo "''test'" $ echo "''test'"
$ test_class = "gawk_ext" $ test_class = "gawk_ext"
$ if f$search("_''test'.tmp1") .nes. "" then delete _'test'.tmp1;* $ if f$search("sys$disk:[]_''test'.tmp1") .nes. ""
$ then
$ delete _'test'.tmp1;*
$ endif
$ if f$search("sys$disk:[]_''test'.tmp2;*") .nes. ""
$ then
$ delete sys$disk:[]_'test'.tmp2;*
$ endif
$ tmp_error = "_''test'.tmp2"
$ define/user GAWK_NO_PP_RUN 1 $ define/user GAWK_NO_PP_RUN 1
$ define/user sys$error 'tmp_error'
$ set noOn
$ gawk --pretty-print=_'test'.tmp1 -f 'test'.awk > _NL: $ gawk --pretty-print=_'test'.tmp1 -f 'test'.awk > _NL:
$ gawk_status = $status
$ set On
$ if f$search("sys$disk:[]_''test'.tmp1;2") .nes. ""
$ then
$ delete sys$disk:[]_'test'.tmp1;2
$ endif
$ if f$search("sys$disk:[]_''test'.tmp2;2") .nes. ""
$ then
$ delete sys$disk:[]_'test'.tmp2;2
$ endif
$ append _'test'.tmp2 _'test'.tmp1
$ convert/fdl=nla0: _'test'.tmp1 sys$disk:[]_'test'.tmp $ convert/fdl=nla0: _'test'.tmp1 sys$disk:[]_'test'.tmp
$ convert/fdl=nla0: 'test'.ok _'test'.ok $ convert/fdl=nla0: 'test'.ok _'test'.ok
$ if .not. gawk_status
$ then
$ call exit_code 'gawk_status' _'test'.tmp
$ endif
$ cmp sys$disk:[]_'test'.ok sys$disk:[]_'test'.tmp $ cmp sys$disk:[]_'test'.ok sys$disk:[]_'test'.tmp
$ if $status $ cmp_status = $status
$ if gawk_status then gawk_status = cmp_status
$ if gawk_status
$ then $ then
$ rm _'test'.tmp;*,_'test'.ok;*,_'test'.tmp1;* $ rm _'test'.tmp;*,_'test'.ok;*,_'test'.tmp1;*
$ gosub junit_report_pass $ gosub junit_report_pass
$ else $ else
$ gosub junit_report_fail_diff $ gosub junit_report_fail_diff
$ endif $ endif
$ return $ return
$! $!
$profile6: $profile6:
$profile7: $profile7:
skipping to change at line 3821 skipping to change at line 3854
$ gawk "NR>2" ap-'test'.out > sys$disk:[]_'test'.tmp1 $ gawk "NR>2" ap-'test'.out > sys$disk:[]_'test'.tmp1
$ if f$search("sys$disk:[]_''test'.tmp1;2") .nes. "" $ if f$search("sys$disk:[]_''test'.tmp1;2") .nes. ""
$ then $ then
$ delete sys$disk:[]_'test'.tmp1;2 $ delete sys$disk:[]_'test'.tmp1;2
$ endif $ endif
$ convert/fdl=nla0: _'test'.tmp1 sys$disk:[]_'test'.tmp $ convert/fdl=nla0: _'test'.tmp1 sys$disk:[]_'test'.tmp
$ convert/fdl=nla0: 'test'.ok _'test'.ok $ convert/fdl=nla0: 'test'.ok _'test'.ok
$ cmp _'test'.ok sys$disk:[]_'test'.tmp $ cmp _'test'.ok sys$disk:[]_'test'.tmp
$ if $status $ if $status
$ then $ then
$ rm _'test'.tmp;*,_'test'.ok;*,_'test'.tmp1;* $ rm _'test'.tmp;*,_'test'.ok;*,_'test'.tmp1;*,ap-'test'.out;*
$ gosub junit_report_pass $ gosub junit_report_pass
$ else $ else
$ gosub junit_report_fail_diff $ gosub junit_report_fail_diff
$ endif $ endif
$ return $ return
$ $
$next: echo "next" $next: echo "next"
$ test_class = "gawk_ext" $ test_class = "gawk_ext"
$ set noOn $ set noOn
$ gawk "{next}" _NL: > _next.tmp 2>&1 $ gawk "{next}" _NL: > _next.tmp 2>&1
 End of changes. 30 change blocks. 
47 lines changed or deleted 79 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)