From 0422dfe40ee967ba60b172f6847275bc468b7fdc Mon Sep 17 00:00:00 2001 From: Emilien Lemaire Date: Wed, 18 Dec 2024 16:51:24 +0100 Subject: [PATCH] Promote tests manually --- tests/testsuite.src/run_file.at | 131 +++++++++++----------- tests/testsuite.src/run_misc.at | 188 ++++++++++++++++++++++++++------ 2 files changed, 214 insertions(+), 105 deletions(-) diff --git a/tests/testsuite.src/run_file.at b/tests/testsuite.src/run_file.at index 79bf5f3e..c978643a 100644 --- a/tests/testsuite.src/run_file.at +++ b/tests/testsuite.src/run_file.at @@ -8224,10 +8224,11 @@ AT_CLEANUP AT_SETUP([EXTFH: Indexed with FH--FCD]) -# promoted on 2024-12-18T16:10 AT_KEYWORDS([runfile EXTFH FCDREG FH--KEYDEF isam]) -AT_SKIP_IF([[test "$COB_HAS_ISAM" = "no"]]) -AT_DATA([prog.cob],[ + +AT_SKIP_IF([test "$COB_HAS_ISAM" = "no"]) + +AT_DATA([prog.cob], [ IDENTIFICATION DIVISION. PROGRAM-ID. prog. @@ -8739,29 +8740,33 @@ AT_DATA([prog.cob],[ END-IF. CLOSE TSPFILE. ]) + AT_CHECK([$COMPILE prog.cob], [0], [], []) + AT_CAPTURE_FILE([prog.out]) + AT_CHECK([$COBCRUN_DIRECT ./prog 1>prog.out], [0], [], []) -AT_DATA([reference],[Other Flags 032. + +AT_DATA([reference], [Other Flags 032. File has 0003 keys. Key def 0112 bytes. File assigned is 'mytstisam' *** Dump FCD before changes -Key1 has 001 parts, Offset 062 Flags 00 Comp 00 Sparse . +Key1 has 001 parts, Offset 062 Flags 000 Comp 000 Sparse . Pos 000000000 Len 000000008 -Key2 has 002 parts, Offset 072 Flags 00 Comp 00 Sparse . +Key2 has 002 parts, Offset 072 Flags 000 Comp 000 Sparse . Pos 000000109 Len 000000010 Pos 000000144 Len 000000008 -Key3 has 002 parts, Offset 092 Flags 00 Comp 00 Sparse . +Key3 has 002 parts, Offset 092 Flags 000 Comp 000 Sparse . Pos 000000156 Len 000000008 Pos 000000164 Len 000000008 *** Dump FCD after changes -Key1 has 001 parts, Offset 062 Flags 00 Comp 00 Sparse . +Key1 has 001 parts, Offset 062 Flags 000 Comp 000 Sparse . Pos 000000000 Len 000000008 -Key2 has 002 parts, Offset 072 Flags 64 Comp 00 Sparse . +Key2 has 002 parts, Offset 072 Flags 064 Comp 000 Sparse . Pos 000000109 Len 000000010 Pos 000000144 Len 000000008 -Key3 has 002 parts, Offset 092 Flags 66 Comp 00 Sparse *. +Key3 has 002 parts, Offset 092 Flags 066 Comp 000 Sparse *. Pos 000000156 Len 000000008 Pos 000000164 Len 000000008 Loading sample file 'myextisam' @@ -8816,34 +8821,18 @@ Key: OLD00000 is OLD TYME PIZZA MFG. CO. Disk=8470 . Key: PRE00000 is PRESTIGE OFFICE FURNITURE Disk=8470 . Hit End of File after 11 ]) -AT_CHECK([diff reference prog.out], [1], [6c6 -< Key1 has 001 parts, Offset 062 Flags 00 Comp 00 Sparse . ---- -> Key1 has 001 parts, Offset 062 Flags 000 Comp 000 Sparse . -8c8 -< Key2 has 002 parts, Offset 072 Flags 00 Comp 00 Sparse . ---- -> Key2 has 002 parts, Offset 072 Flags 000 Comp 000 Sparse . -11c11 -< Key3 has 002 parts, Offset 092 Flags 00 Comp 00 Sparse . ---- -> Key3 has 002 parts, Offset 092 Flags 000 Comp 000 Sparse . -15c15 -< Key1 has 001 parts, Offset 062 Flags 00 Comp 00 Sparse . ---- -> Key1 has 001 parts, Offset 062 Flags 000 Comp 000 Sparse . -17c17 -< Key2 has 002 parts, Offset 072 Flags 64 Comp 00 Sparse . ---- -> Key2 has 002 parts, Offset 072 Flags 064 Comp 000 Sparse . -20c20 -< Key3 has 002 parts, Offset 092 Flags 66 Comp 00 Sparse *. ---- -> Key3 has 002 parts, Offset 092 Flags 066 Comp 000 Sparse *. -], []) + +AT_CHECK([diff reference prog.out], [0], [], []) + +# verify that all of this works with wrapping to EXTFH calls +# and that those don't trash the FH--FCD allocated memory + AT_CHECK([$COMPILE -fcallfh=EXTFH -o extfh prog.cob], [0], [], []) AT_CHECK([$COBCRUN_DIRECT ./extfh 1>prog.out], [0], [], []) + AT_CHECK([diff reference prog.out], [0], [], []) + + AT_CLEANUP @@ -10854,9 +10843,9 @@ AT_CLEANUP AT_SETUP([EXTFH: reading two files with one FCD]) -# promoted on 2024-12-18T16:10 AT_KEYWORDS([runfile EXTFH]) -AT_DATA([prog.cob],[ + +AT_DATA([prog.cob], [ IDENTIFICATION DIVISION. **************************************************************** PROGRAM-ID. prog. @@ -10999,8 +10988,11 @@ AT_DATA([prog.cob],[ MAIN-EXT. STOP RUN. ]) + AT_CHECK([$COMPILE prog.cob], [0], [], []) -AT_CHECK([$COBCRUN_DIRECT ./prog], [0], [OPEN STATUS:0/048 + +AT_CHECK([$COBCRUN_DIRECT ./prog], [0], +[OPEN STATUS:0/048 READ NEXT STATUS:0/048 DATA:SEQ01 - READ NEXT STATUS:0/048 @@ -11027,6 +11019,7 @@ READ NEXT STATUS:1/048 DATA: - CLOSE STATUS:0/048 ], []) + AT_CLEANUP @@ -12781,11 +12774,14 @@ AT_CLEANUP AT_SETUP([INDEXED file with collation on group key]) -# promoted on 2024-12-18T16:10 AT_KEYWORDS([runfile WRITE READ EBCDIC]) -AT_SKIP_IF([[test "$COB_HAS_ISAM" = "no"]]) -AT_XFAIL_IF([[test "$COB_HAS_ISAM" != "db"]]) -AT_DATA([prog.cob],[ + +AT_SKIP_IF([test "$COB_HAS_ISAM" = "no"]) + +# This is, so far, only supported by the BDB backend +AT_XFAIL_IF([test "$COB_HAS_ISAM" != "db"]) + +AT_DATA([prog.cob], [ IDENTIFICATION DIVISION. PROGRAM-ID. prog. ENVIRONMENT DIVISION. @@ -12835,7 +12831,9 @@ AT_DATA([prog.cob],[ STOP RUN. ]) -AT_DATA([expout],[ASCII: + +AT_DATA([expout], +[ASCII: 111 223 335 @@ -12854,39 +12852,26 @@ DD8 335 447 ]) -AT_CHECK([$COMPILE -Wno-unfinished -fdefault-file-colseq=ASCII prog.cob -o ascii]) -AT_CHECK([$COMPILE -Wno-unfinished -fdefault-file-colseq=EBCDIC prog.cob -o ebcdic]) + +# Note: ignore any unfinished warning as the test is about the runtime behavior: +AT_CHECK([$COMPILE -Wno-unfinished -fdefault-file-colseq=ASCII prog.cob -o ascii], [0]) +AT_CHECK([$COMPILE -Wno-unfinished -fdefault-file-colseq=EBCDIC prog.cob -o ebcdic], [0]) + AT_CHECK([ echo "ASCII:" && $COBCRUN_DIRECT ./ascii && \ echo "EBCDIC:" && $COBCRUN_DIRECT ./ebcdic -], [0], [ASCII: -111 -223 -335 -447 -AA2 -BB4 -CC6 -DD8 -EBCDIC: -AA2 -BB4 -CC6 -DD8 -111 -223 -335 -447 -]) +], [0], [expout]) # <- compare stdout with existing `expout` + AT_CLEANUP # Note: codegen only for now AT_SETUP([INDEXED file with NATIONAL collation]) -# promoted on 2024-12-18T16:10 AT_KEYWORDS([runfile]) -AT_SKIP_IF([[test "$COB_HAS_ISAM" = "no"]]) -AT_DATA([prog.cob],[ + +AT_SKIP_IF([test "$COB_HAS_ISAM" = "no"]) + +AT_DATA([prog.cob], [ IDENTIFICATION DIVISION. PROGRAM-ID. prog. ENVIRONMENT DIVISION. @@ -12918,10 +12903,16 @@ AT_DATA([prog.cob],[ STOP RUN. ]) -AT_DATA([expout],[]) -AT_CHECK([$COMPILE -Wno-unfinished prog.cob], [0], [], [prog.cob:11: warning: NATIONAL COLLATING SEQUENCE is not implemented + +AT_DATA([expout], []) + +# Note: ignore any unfinished warning as the test is about the runtime behavior: +AT_CHECK([$COMPILE -Wno-unfinished prog.cob], [0], [], +[prog.cob:11: warning: NATIONAL COLLATING SEQUENCE is not implemented ]) -AT_CHECK([$COBCRUN_DIRECT ./prog], [0], []) + +AT_CHECK([$COBCRUN_DIRECT ./prog], [0], [expout]) + AT_CLEANUP diff --git a/tests/testsuite.src/run_misc.at b/tests/testsuite.src/run_misc.at index 3665b55d..68146a18 100644 --- a/tests/testsuite.src/run_misc.at +++ b/tests/testsuite.src/run_misc.at @@ -10245,9 +10245,9 @@ AT_CLEANUP AT_SETUP([stack and dump feature]) -# promoted on 2024-12-18T16:10 AT_KEYWORDS([stacktrace configuration COB_STACKTRACE COB_DUMP_FILE CALL]) -AT_DATA([cpyabrt],[ + +AT_DATA([cpyabrt], [ MOVE "Quick brown fox jumped over the dog" TO TSTTAILX (1:40). MOVE CM-COMPANY TO TSTTAILX (42:20). @@ -10255,7 +10255,8 @@ AT_DATA([cpyabrt],[ * DISPLAY CM-COMPANY. * DISPLAY '>' CM-COMPANY '<'. ]) -AT_DATA([prog.cob],[ + +AT_DATA([prog.cob], [ IDENTIFICATION DIVISION. PROGRAM-ID. prog. ENVIRONMENT DIVISION. @@ -10459,7 +10460,8 @@ AT_DATA([prog.cob],[ GOBACK. END PROGRAM sub1. ]) -AT_DATA([sub2.cob],[ + +AT_DATA([sub2.cob], [ IDENTIFICATION DIVISION. PROGRAM-ID. sub2. DATA DIVISION. @@ -10545,23 +10547,32 @@ AT_DATA([sub2.cob],[ COPY cpyabrt. END PROGRAM sub2. ]) + AT_CHECK([$COMPILE_MODULE -fdump=ALL prog.cob sub2.cob], [0], [], []) + AT_CHECK([COB_DUMP_FILE=NONE \ -$COBCRUN prog], [1], [X is 000000001 +$COBCRUN prog], [1], +[X is 000000001 X is 000005441 -], [libcob: cpyabrt:4: error: LINKAGE item 'TSPFL-RECORD' (accessed by 'CM-COMPANY') not passed by caller +], +[libcob: cpyabrt:4: error: LINKAGE item 'TSPFL-RECORD' (accessed by 'CM-COMPANY') not passed by caller libcob: cpyabrt:4: warning: implicit CLOSE of FLATFILE ('RELFIX') ]) + AT_CAPTURE_FILE([tstdump.dump]) + AT_CHECK([COB_DUMP_FILE=tstdump.dump \ -$COBCRUN prog], [1], [X is 000000001 +$COBCRUN prog], [1], +[X is 000000001 X is 000005441 -], [libcob: cpyabrt:4: error: LINKAGE item 'TSPFL-RECORD' (accessed by 'CM-COMPANY') not passed by caller +], +[libcob: cpyabrt:4: error: LINKAGE item 'TSPFL-RECORD' (accessed by 'CM-COMPANY') not passed by caller libcob: cpyabrt:4: warning: implicit CLOSE of FLATFILE ('RELFIX') dump written to tstdump.dump ]) -AT_DATA([reference_tmpl],[ + +AT_DATA([reference_tmpl], [ Module dump due to LINKAGE item 'TSPFL-RECORD' (accessed by 'CM-COMPANY') not passed by caller Last statement of "sub1" was MOVE @@ -10583,7 +10594,7 @@ WORKING-STORAGE ********************** 77 RETURN-CODE +000000000 01 ZRO 000000000 -01 HEXV 13 +01 HEXV 013 01 TEST-BASED. address 01 TEST-ALLOCED. 05 TEST-ALLOCED-SUB1 ALL SPACES @@ -10647,7 +10658,7 @@ WORKING-STORAGE ********************** 77 RETURN-CODE +000000000 01 ZRO 000000000 -01 HEXV 13 +01 HEXV 013 01 IDX 000000000 01 TSTREC. 05 TSTDEP 'XXX' @@ -10771,35 +10782,42 @@ END OF DUMP - prog ********************** ]) + +# AT_DATA workaround via sed: AT_CHECK([$SED -e 's/_$//' reference_tmpl > reference], [0], [], []) AT_CHECK([$SED -e 's/compiled ... .. .... ..:..:../compiled MMM DD YYYY HH:MM:SS/g' \ tstdump.dump > tstdump.sed], [0], [], []) -AT_CHECK([diff reference tstdump.sed], [1], [23c23 -< 01 HEXV 13 ---- -> 01 HEXV 013 -87c87 -< 01 HEXV 13 ---- -> 01 HEXV 013 -], []) + +AT_CHECK([diff reference tstdump.sed], [0], [], []) + +# recheck with COBC_GEN_DUMP_COMMENTS, which may not change the output AT_CHECK([COBC_GEN_DUMP_COMMENTS=1 \ $COMPILE_MODULE -fdump=ALL prog.cob sub2.cob], [0], [], []) + AT_CHECK([COB_DUMP_FILE=tstdump.dump \ -$COBCRUN prog], [1], [X is 000000001 +$COBCRUN prog], [1], +[X is 000000001 X is 000005441 -], [libcob: cpyabrt:4: error: LINKAGE item 'TSPFL-RECORD' (accessed by 'CM-COMPANY') not passed by caller +], +[libcob: cpyabrt:4: error: LINKAGE item 'TSPFL-RECORD' (accessed by 'CM-COMPANY') not passed by caller libcob: cpyabrt:4: warning: implicit CLOSE of FLATFILE ('RELFIX') dump written to tstdump.dump ]) + AT_CHECK([$SED -e 's/compiled ... .. .... ..:..:../compiled MMM DD YYYY HH:MM:SS/g' \ tstdump.dump > tstdump.sed], [0], [], []) + AT_CHECK([diff reference tstdump.sed], [0], [], []) + + +# using both AT_CHECK([COB_STACKTRACE=1 COB_DUMP_FILE=tstdump.dump \ -$COBCRUN prog], [1], [X is 000000001 +$COBCRUN prog], [1], +[X is 000000001 X is 000005441 -], [libcob: cpyabrt:4: error: LINKAGE item 'TSPFL-RECORD' (accessed by 'CM-COMPANY') not passed by caller +], +[libcob: cpyabrt:4: error: LINKAGE item 'TSPFL-RECORD' (accessed by 'CM-COMPANY') not passed by caller libcob: cpyabrt:4: warning: implicit CLOSE of FLATFILE ('RELFIX') Last statement of "sub1" was MOVE @@ -10817,10 +10835,16 @@ libcob: cpyabrt:4: warning: implicit CLOSE of FLATFILE ('RELFIX') dump written to tstdump.dump ]) + AT_CHECK([$SED -e 's/compiled ... .. .... ..:..:../compiled MMM DD YYYY HH:MM:SS/g' \ tstdump.dump > tstdump.sed], [0], [], []) + AT_CHECK([diff reference tstdump.sed], [0], [], []) -AT_DATA([reference_stderr],[libcob: cpyabrt:4: error: LINKAGE item 'TSPFL-RECORD' (accessed by 'CM-COMPANY') not passed by caller + + + +AT_DATA([reference_stderr], +[libcob: cpyabrt:4: error: LINKAGE item 'TSPFL-RECORD' (accessed by 'CM-COMPANY') not passed by caller libcob: cpyabrt:4: warning: implicit CLOSE of FLATFILE ('RELFIX') Last statement of "sub1" was MOVE @@ -10836,34 +10860,54 @@ libcob: cpyabrt:4: warning: implicit CLOSE of FLATFILE ('RELFIX') ENTRY prog at prog.cob:77 Started by ./prog ]) + AT_CAPTURE_FILE([stderr.txt]) + AT_CHECK([$COMPILE prog.cob sub2.cob], [0], [], []) + +# also checking that a dump file without anything to dump does not do anything AT_CHECK([COB_STACKTRACE=1 COB_DUMP_FILE=tstdump.dump \ -$COBCRUN_DIRECT ./prog 2>stderr.txt], [1], [X is 000000001 +$COBCRUN_DIRECT ./prog 2>stderr.txt], [1], +[X is 000000001 X is 000005441 ], []) + AT_CHECK([$SED -e 's/Started by .*prog.exe/Started by .\/prog/g' \ stderr.txt > stderr.sed], [0], [], []) + AT_CHECK([diff reference_stderr stderr.sed], [0], [], []) + AT_CHECK([$COMPILE -fdump=ALL -fno-dump prog.cob sub2.cob], [0], [], []) + +# also checking that a dump file without anything to dump does not do anything AT_CHECK([COB_STACKTRACE=1 COB_DUMP_FILE=tstdump.dump \ -$COBCRUN_DIRECT ./prog 2>stderr.txt], [1], [X is 000000001 +$COBCRUN_DIRECT ./prog 2>stderr.txt], [1], +[X is 000000001 X is 000005441 ], []) + AT_CHECK([$SED -e 's/Started by .*prog.exe/Started by .\/prog/g' \ stderr.txt > stderr.sed], [0], [], []) + AT_CHECK([diff reference_stderr stderr.sed], [0], [], []) + AT_CHECK([$COMPILE -fdump=FD,LS prog.cob sub2.cob -o prog_fdls], [0], [], []) + AT_CHECK([COB_DUMP_FILE=tstdump_fdls.dump \ -$COBCRUN_DIRECT ./prog_fdls], [1], [X is 000000001 +$COBCRUN_DIRECT ./prog_fdls], [1], +[X is 000000001 X is 000005441 -], [libcob: cpyabrt:4: error: LINKAGE item 'TSPFL-RECORD' (accessed by 'CM-COMPANY') not passed by caller +], +[libcob: cpyabrt:4: error: LINKAGE item 'TSPFL-RECORD' (accessed by 'CM-COMPANY') not passed by caller libcob: cpyabrt:4: warning: implicit CLOSE of FLATFILE ('RELFIX') dump written to tstdump_fdls.dump ]) + + AT_CAPTURE_FILE([tstdump_fdls.dump]) -AT_DATA([reference_fdls_tmpl],[ + +AT_DATA([reference_fdls_tmpl], [ Module dump due to LINKAGE item 'TSPFL-RECORD' (accessed by 'CM-COMPANY') not passed by caller Last statement of "sub1" was MOVE @@ -10920,26 +10964,100 @@ END OF DUMP - prog ********************** ]) + +# AT_DATA workaround via sed: AT_CHECK([$SED -e 's/_$//' reference_fdls_tmpl > reference], [0], [], []) AT_CHECK([$SED -e 's/compiled ... .. .... ..:..:../compiled MMM DD YYYY HH:MM:SS/g; s/Started by .*prog_fdls.exe/Started by .\/prog_fdls/g' \ tstdump_fdls.dump > tstdump.sed], [0], [], []) + AT_CHECK([diff reference tstdump.sed], [0], [], []) + AT_CHECK([$COMPILE -fdump=ALL -fno-dump=LO,WS,SC prog.cob sub2.cob -o prog_allfdls], [0], [], []) + AT_CHECK([COB_DUMP_FILE=tstdump_allfdls.dump \ -$COBCRUN_DIRECT ./prog_allfdls], [1], [X is 000000001 +$COBCRUN_DIRECT ./prog_allfdls], [1], +[X is 000000001 X is 000005441 -], [libcob: cpyabrt:4: error: LINKAGE item 'TSPFL-RECORD' (accessed by 'CM-COMPANY') not passed by caller +], +[libcob: cpyabrt:4: error: LINKAGE item 'TSPFL-RECORD' (accessed by 'CM-COMPANY') not passed by caller libcob: cpyabrt:4: warning: implicit CLOSE of FLATFILE ('RELFIX') dump written to tstdump_allfdls.dump ]) + AT_CHECK([$SED -e 's/compiled ... .. .... ..:..:../compiled MMM DD YYYY HH:MM:SS/g; s/Started by .*prog_allfdls.exe/Started by .\/prog_allfdls/g' \ tstdump_allfdls.dump > tstdump.sed], [0], [], []) + AT_CHECK([$SED -e 's/prog_fdls/prog_allfdls/' \ reference > reference_all], [0], [], []) + AT_CHECK([diff reference_all tstdump.sed], [0], [], []) + +# CHECKME @ Ron: The result is likely wrong, please verify later +#AT_CHECK([$COMPILE -fdump=LS prog.cob sub2.cob -fsticky-linkage -o prog_ls_sticky], [0], [], []) +# +#AT_CHECK([COB_DUMP_FILE=tstdump_ls_sticky.dump \ +#$COBCRUN_DIRECT ./prog_ls_sticky], [1], +#[X is 000000001 +#X is 000005441 +#], +#[libcob: cpyabrt:4: error: LINKAGE item 'TSPFL-RECORD' (accessed by 'CM-COMPANY') not passed by caller +#libcob: cpyabrt:4: warning: implicit CLOSE of FLATFILE ('RELFIX') +# +#dump written to tstdump_ls_sticky.dump +#]) +# +# +#AT_CAPTURE_FILE([tstdump_ls_sticky.dump]) +# +#AT_DATA([reference_ls_sticky_tmpl], [ +#Module dump due to LINKAGE item 'TSPFL-RECORD' (accessed by 'CM-COMPANY') not passed by caller +# +# Last statement of "sub1" was MOVE +# MAIN-2 OF MAIN-1 at cpyabrt:4 +# MAIN-1 at prog.cob:177 +# ENTRY sub1 at prog.cob:159 +# Last statement of "sub2" was CALL +# DO-CALL OF SubwaY at sub2.cob:48 +# ENTRY sub2 at sub2.cob:39 +# Last statement of "prog" was CALL +# CALL-IT-OMIT at prog.cob:118 +# MAIN-100 at prog.cob:85 +# ENTRY prog at prog.cob:77 +# Started by ./prog_ls_sticky +# +#Dump Program-Id sub1 from prog.cob compiled MMM DD YYYY HH:MM:SS +# +#LINKAGE +#********************** +#01 X 000005441 +#01 TSPFL-RECORD. address +# +#Dump Program-Id sub2 from sub2.cob compiled MMM DD YYYY HH:MM:SS +# +#LINKAGE +#********************** +#01 X 000005441 +#01 TSPFL-RECORD. +# 10 CM-CUST-NUM 'ALP00000' +# 10 CM-COMPANY 'ALPHA ELECTRICAL CO. LTD.' +# 10 CM-DISK '8417' +# 10 CM-NO-TERMINALS 0010 +#77 DYNAMIC-NUM 0124 +# +#Dump Program-Id prog from prog.cob compiled MMM DD YYYY HH:MM:SS +# +#]) +# +## AT_DATA workaround via sed: +#AT_CHECK([$SED -e 's/_$//' reference_ls_sticky_tmpl > reference], [0], [], []) +#AT_CHECK([$SED -e 's/compiled ... .. .... ..:..:../compiled MMM DD YYYY HH:MM:SS/g' \ +#tstdump_ls_sticky.dump > tstdump.sed], [0], [], []) +# +#AT_CHECK([diff reference tstdump.sed], [0], [], []) + AT_CLEANUP @@ -15016,8 +15134,8 @@ AT_CHECK([COB_PROF_ENABLE=1 COB_PROF_FILE=prof.csv $COBCRUN_DIRECT ./caller], [0 AT_CLEANUP -AT_SETUP([DISPLAY COMP-X values]) -AT_KEYWORDS([DISPLAY COMP-X]) +AT_SETUP([display COMP-X of one byte]) +AT_KEYWORDS([display comp-x]) AT_DATA([prog.cob], [ IDENTIFICATION DIVISION. @@ -15042,7 +15160,7 @@ AT_DATA([prog.cob], [ STOP RUN. ]) -AT_CHECK([$COMPILE prog.cob], [0], [], []) +AT_CHECK([$COMPILE prog.cob]) AT_CHECK([$COBCRUN_DIRECT ./prog], [0], [1 1 1