Skip to content

Commit

Permalink
Fix
Browse files Browse the repository at this point in the history
  • Loading branch information
engboris committed Jul 23, 2024
1 parent dac5b76 commit fc96fec
Show file tree
Hide file tree
Showing 2 changed files with 63 additions and 62 deletions.
115 changes: 58 additions & 57 deletions tests/testsuite.at
Original file line number Diff line number Diff line change
Expand Up @@ -27,64 +27,65 @@ AT_INIT([GnuCOBOL Tests])
AT_COLOR_TESTS

AT_TESTED([cobc cobcrun])

## General tests of used binaries
AT_BANNER([General tests of used binaries])
m4_include([used_binaries.at])
m4_include([configuration.at])

## Syntax tests
AT_BANNER([Syntax tests])

m4_include([syn_copy.at])
m4_include([syn_definition.at])
m4_include([syn_subscripts.at]) # 8.4.1.2 Subscripts
m4_include([syn_occurs.at]) # 13.16.36 OCCURS clause
m4_include([syn_redefines.at]) # 13.16.42 REDEFINES clause
m4_include([syn_value.at]) # 13.16.61 VALUE clause
m4_include([syn_file.at]) # Files (SELECT, ASSIGN, ...) without RW
m4_include([syn_reportwriter.at]) # REPORT WRITER
m4_include([syn_refmod.at]) # 8.4.2.3 Reference-modification
m4_include([syn_misc.at]) # Miscellaneous
m4_include([syn_move.at]) # 14.8.24 MOVE statement
m4_include([syn_multiply.at]) # 14.8.25 MULTIPLY statement
m4_include([syn_screen.at]) # 13.9 SCREEN section
m4_include([syn_set.at]) # 14.8.35 SET statement
m4_include([syn_functions.at]) # 15 Intrinsic functions
m4_include([syn_literals.at]) # syntax checks on literals

## Listings tests
AT_BANNER([Listing tests])

m4_include([listings.at]) # Listings

## Run tests
AT_BANNER([Run tests])

m4_include([run_fundamental.at])
m4_include([run_subscripts.at]) # 8.4.1.2 Subscripts
m4_include([run_refmod.at]) # 8.4.2.3 Reference-modification
m4_include([run_accept.at]) # 14.8.1 ACCEPT statement
m4_include([run_initialize.at]) # 14.8.19 INITIALIZE statement
m4_include([run_misc.at]) # Miscellaneous
m4_include([run_file.at]) # Files (SELECT, ASSIGN, ...) without RW
m4_include([run_reportwriter.at]) # REPORT WRITER
m4_include([run_returncode.at])
m4_include([run_functions.at]) # 15 Intrinsic Functions / 9.4 User-Defined Functions
m4_include([run_extensions.at])
m4_include([run_ml.at])

## Data Representation
AT_BANNER([Data Representation])

m4_include([data_binary.at]) # USAGE BINARY
m4_include([data_display.at]) # USAGE DISPLAY
m4_include([data_packed.at]) # USAGE PACKED-DECIMAL
m4_include([data_pointer.at]) # USAGE POINTER

## Test for backward compatibility
AT_BANNER([Backward compatibility])
m4_include([backcomp.at])

## ## General tests of used binaries
## AT_BANNER([General tests of used binaries])
## m4_include([used_binaries.at])
## m4_include([configuration.at])
##
## ## Syntax tests
## AT_BANNER([Syntax tests])
##
## m4_include([syn_copy.at])
## m4_include([syn_definition.at])
## m4_include([syn_subscripts.at]) # 8.4.1.2 Subscripts
## m4_include([syn_occurs.at]) # 13.16.36 OCCURS clause
## m4_include([syn_redefines.at]) # 13.16.42 REDEFINES clause
## m4_include([syn_value.at]) # 13.16.61 VALUE clause
## m4_include([syn_file.at]) # Files (SELECT, ASSIGN, ...) without RW
## m4_include([syn_reportwriter.at]) # REPORT WRITER
## m4_include([syn_refmod.at]) # 8.4.2.3 Reference-modification
## m4_include([syn_misc.at]) # Miscellaneous
## m4_include([syn_move.at]) # 14.8.24 MOVE statement
## m4_include([syn_multiply.at]) # 14.8.25 MULTIPLY statement
## m4_include([syn_screen.at]) # 13.9 SCREEN section
## m4_include([syn_set.at]) # 14.8.35 SET statement
## m4_include([syn_functions.at]) # 15 Intrinsic functions
## m4_include([syn_literals.at]) # syntax checks on literals
##
## ## Listings tests
## AT_BANNER([Listing tests])
##
## m4_include([listings.at]) # Listings
##
## ## Run tests
## AT_BANNER([Run tests])
##
## m4_include([run_fundamental.at])
## m4_include([run_subscripts.at]) # 8.4.1.2 Subscripts
## m4_include([run_refmod.at]) # 8.4.2.3 Reference-modification
## m4_include([run_accept.at]) # 14.8.1 ACCEPT statement
## m4_include([run_initialize.at]) # 14.8.19 INITIALIZE statement
## m4_include([run_misc.at]) # Miscellaneous
## m4_include([run_file.at]) # Files (SELECT, ASSIGN, ...) without RW
## m4_include([run_reportwriter.at]) # REPORT WRITER
## m4_include([run_returncode.at])
## m4_include([run_functions.at]) # 15 Intrinsic Functions / 9.4 User-Defined Functions
## m4_include([run_extensions.at])
## m4_include([run_ml.at])
##
## ## Data Representation
## AT_BANNER([Data Representation])
##
## m4_include([data_binary.at]) # USAGE BINARY
## m4_include([data_display.at]) # USAGE DISPLAY
## m4_include([data_packed.at]) # USAGE PACKED-DECIMAL
## m4_include([data_pointer.at]) # USAGE POINTER
##
## ## Test for backward compatibility
## AT_BANNER([Backward compatibility])
## m4_include([backcomp.at])
## Test for backward compatibility
AT_BANNER([Backward compatibility])
m4_include([backcomp.at])
10 changes: 5 additions & 5 deletions tests/testsuite.src/backcomp.at
Original file line number Diff line number Diff line change
Expand Up @@ -2450,10 +2450,10 @@ prog_ (const int entry)

]])

AT_CHECK([$COMPILE -fdefault-colseq=ascii -DEXPECT-ORDER=ASCII -o ascii ascii.c], [0], [], [])
AT_CHECK([$COMPILE -o ascii ascii.c], [0], [], [])
AT_CHECK([$COBCRUN_DIRECT ./ascii], [0], [], [])

AT_CHECK([$COMPILE -fdefault-colseq=ebcdic -DEXPECT-ORDER=EBCDIC -o ebcdic ebcdic.c], [0], [], [])
AT_CHECK([$COMPILE -o ebcdic ebcdic.c], [0], [], [])
AT_CHECK([$COBCRUN_DIRECT ./ebcdic], [0], [], [])

AT_CLEANUP
Expand Down Expand Up @@ -3388,11 +3388,11 @@ prog_ (const int entry)

]])

AT_CHECK([$COMPILE -fdefault-colseq=ascii -DEXPECT-ORDER=ASCII -o ascii ascii.c], [0], [], [])
AT_CHECK([$COMPILE -o ascii ascii.c], [0], [], [])
AT_CHECK([$COBCRUN_DIRECT ./ascii], [0], [], [])
AT_CHECK([$COMPILE -fdefault-colseq=ebcdic -DEXPECT-ORDER=EBCDIC -o ebcdic ebcdic.c], [0], [], [])
AT_CHECK([$COMPILE -o ebcdic ebcdic.c], [0], [], [])
AT_CHECK([$COBCRUN_DIRECT ./ebcdic], [0], [], [])
AT_CHECK([$COMPILE -fdefault-colseq=native -DEXPECT-ORDER=NATIVE -o native native.c], [0], [], [])
AT_CHECK([$COMPILE -o native native.c], [0], [], [])
AT_CHECK([$COBCRUN_DIRECT ./native], [0], [], [])

AT_CLEANUP
Expand Down

0 comments on commit fc96fec

Please sign in to comment.