Skip to content

Commit ae7da33

Browse files
Update tests
1 parent ddcaa55 commit ae7da33

File tree

8 files changed

+167
-38
lines changed

8 files changed

+167
-38
lines changed

NEWS

Lines changed: 13 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -6,6 +6,19 @@ NEWS - user visible changes -*- outline -*-
66

77
* New GnuCOBOL features
88

9+
** at runtime, fatal size exception codes now fail when activated (with
10+
`-fec=ALL` or `-fec=SIZE or its subordinates). Theses exceptions can be
11+
caught with `ON SIZE ERROR` phrases to avoid the program failing when
12+
they are set. The affected exceptions codre are:
13+
EC-SIZE
14+
EC-SIZE-ADDRESS
15+
EC-SIZE-EXPONENTIATIOn
16+
EC-SIZE-OVERFLOW
17+
EC-SIZE-TRUNCATION
18+
EC-SIZE-UNDERFLOW
19+
EC-SIZE-ZERO-DIVIDE
20+
21+
922
** cobc now checks for binary and multi-byte encoded files and early exit
1023
parsing those; the error output for format errors (for example invalid
1124
indicator column) is now limited to 5 per source file

tests/ChangeLog

Lines changed: 0 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -1,12 +1,3 @@
1-
2025-10-07 Unknown <unknown@arch-tower>
2-
3-
* testsuite.src/data_binary.at, testsuite.src/data_display.at,
4-
testsuite.src/data_packed.at, testsuite.src/run_extenstions.at,
5-
testsuite.src/run_fundamental.at testsuite.src/run_misc.at: add a
6-
`-fno-ec=EC-SIZE` on tests that rely on a non standard exception
7-
handling
8-
9-
101
2025-05-22 David Declerck <[email protected]>
112

123
* atlocal.in, atlocal_win: set TZ=UTC globally

tests/testsuite.src/data_binary.at

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -2261,7 +2261,7 @@ AT_DATA([prog.cob], [
22612261
STOP RUN.
22622262
])
22632263

2264-
AT_CHECK([$COMPILE -fno-ec=EC-SIZE prog.cob], [0], [], [])
2264+
AT_CHECK([$COMPILE -fno-ec=size prog.cob], [0], [], [])
22652265
AT_CHECK([$COBCRUN_DIRECT ./prog], [0], [], [])
22662266

22672267
AT_CLEANUP

tests/testsuite.src/data_display.at

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -526,7 +526,7 @@ AT_DATA([prog.cob], [
526526
STOP RUN.
527527
])
528528

529-
AT_CHECK([$COMPILE -fno-ec=EC-SIZE prog.cob], [0], [], [])
529+
AT_CHECK([$COMPILE -fno-ec=size prog.cob], [0], [], [])
530530
AT_CHECK([$COBCRUN_DIRECT ./prog], [0], [], [])
531531

532532
AT_CLEANUP
@@ -8729,7 +8729,7 @@ AT_DATA([prog.cob], [
87298729
DISPLAY 'EXPECTED ==> ' XPC-FLD0499E.
87308730
])
87318731

8732-
AT_CHECK([$COMPILE -fno-ec=EC-SIZE prog.cob], [0], [], [])
8732+
AT_CHECK([$COMPILE -fno-ec=size prog.cob], [0], [], [])
87338733
AT_CHECK([$COBCRUN_DIRECT ./prog], [0], [], [])
87348734

87358735
AT_DATA([prog2.cob], [
@@ -16933,7 +16933,7 @@ AT_DATA([prog2.cob], [
1693316933
DISPLAY 'EXPECTED ==> ' XPC-FLD0999E.
1693416934
])
1693516935

16936-
AT_CHECK([$COMPILE -fno-ec=EC-SIZE prog2.cob], [0], [], [])
16936+
AT_CHECK([$COMPILE -fno-ec=size prog2.cob], [0], [], [])
1693716937
AT_CHECK([$COBCRUN_DIRECT ./prog2], [0], [], [])
1693816938

1693916939
AT_CLEANUP
@@ -22975,7 +22975,7 @@ AT_DATA([prog.cob], [
2297522975
DISPLAY 'EXPECTED ==> ' XPC-FLD0499B.
2297622976
])
2297722977

22978-
AT_CHECK([$COMPILE -fno-ec=EC-SIZE prog.cob], [0], [], [])
22978+
AT_CHECK([$COMPILE -fno-ec=size prog.cob], [0], [], [])
2297922979
AT_CHECK([$COBCRUN_DIRECT ./prog], [0], [], [])
2298022980

2298122981
AT_DATA([prog2.cob], [
@@ -29023,7 +29023,7 @@ AT_DATA([prog2.cob], [
2902329023
DISPLAY 'EXPECTED ==> ' XPC-FLD0999B.
2902429024
])
2902529025

29026-
AT_CHECK([$COMPILE -fno-ec=EC-SIZE prog2.cob], [0], [], [])
29026+
AT_CHECK([$COMPILE -fno-ec=size prog2.cob], [0], [], [])
2902729027
AT_CHECK([$COBCRUN_DIRECT ./prog2], [0], [], [])
2902829028

2902929029
AT_CLEANUP

tests/testsuite.src/data_packed.at

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -2227,7 +2227,7 @@ AT_DATA([prog.cob], [
22272227
STOP RUN.
22282228
])
22292229

2230-
AT_CHECK([$COMPILE -fno-ec=EC-SIZE prog.cob], [0], [], [])
2230+
AT_CHECK([$COMPILE -fno-ec=size prog.cob], [0], [], [])
22312231
AT_CHECK([$COBCRUN_DIRECT ./prog], [0], [], [])
22322232

22332233
AT_CLEANUP
@@ -20528,7 +20528,7 @@ AT_DATA([prog.cob], [
2052820528
DISPLAY 'EXPECTED ==> ' XPC-FLD0499E.
2052920529
])
2053020530

20531-
AT_CHECK([$COMPILE -fno-ec=EC-SIZE prog.cob], [0], [], [])
20531+
AT_CHECK([$COMPILE -fno-ec=size prog.cob], [0], [], [])
2053220532
AT_CHECK([$COBCRUN_DIRECT ./prog], [0], [], [])
2053320533

2053420534
AT_DATA([prog2.cob], [
@@ -28737,7 +28737,7 @@ AT_DATA([prog2.cob], [
2873728737
DISPLAY 'EXPECTED ==> ' XPC-FLD0999E.
2873828738
])
2873928739

28740-
AT_CHECK([$COMPILE -fno-ec=EC-SIZE prog2.cob], [0], [], [])
28740+
AT_CHECK([$COMPILE -fno-ec=size prog2.cob], [0], [], [])
2874128741
AT_CHECK([$COBCRUN_DIRECT ./prog2], [0], [], [])
2874228742

2874328743
AT_CLEANUP
@@ -34829,7 +34829,7 @@ AT_DATA([prog.cob], [
3482934829
DISPLAY 'EXPECTED ==> ' HEX-OF (XPC-FLD0499B).
3483034830
])
3483134831

34832-
AT_CHECK([$COMPILE -fno-ec=EC-SIZE prog.cob], [0], [], [])
34832+
AT_CHECK([$COMPILE -fno-ec=size prog.cob], [0], [], [])
3483334833
AT_CHECK([$COBCRUN_DIRECT ./prog], [0], [], [])
3483434834

3483534835
AT_DATA([prog2.cob], [
@@ -40876,7 +40876,7 @@ AT_DATA([prog2.cob], [
4087640876
DISPLAY 'EXPECTED ==> ' HEX-OF (XPC-FLD0999B).
4087740877
])
4087840878

40879-
AT_CHECK([$COMPILE -fno-ec=EC-SIZE prog2.cob], [0], [], [])
40879+
AT_CHECK([$COMPILE -fno-ec=size prog2.cob], [0], [], [])
4088040880
AT_CHECK([$COBCRUN_DIRECT ./prog2], [0], [], [])
4088140881

4088240882
AT_CLEANUP

tests/testsuite.src/run_extensions.at

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -5477,7 +5477,7 @@ AT_DATA([prog.cob], [
54775477
STOP RUN.
54785478
])
54795479

5480-
AT_CHECK([$COMPILE -fno-ec=EC-SIZE -facu-literal=ok -fno-trunc prog.cob], [0], [], [])
5480+
AT_CHECK([$COMPILE -fno-ec=size -facu-literal=ok -fno-trunc prog.cob], [0], [], [])
54815481

54825482
AT_CHECK([$COBCRUN_DIRECT ./prog], [0],
54835483
[Test using PIC XX COMP-X
@@ -5556,7 +5556,7 @@ AT_DATA([prog.cob], [
55565556
])
55575557

55585558
# also syntax-checking MF aliases...
5559-
AT_CHECK([$COMPILE -fno-ec=EC-SIZE -std=mf -fno-trunc prog.cob], [0], [], [])
5559+
AT_CHECK([$COMPILE -fno-ec=size -std=mf -fno-trunc prog.cob], [0], [], [])
55605560

55615561
AT_CHECK([$COBCRUN_DIRECT ./prog], [0],
55625562
[Using PIC XX COMP-X

tests/testsuite.src/run_fundamental.at

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -6311,7 +6311,7 @@ AT_DATA([prog.cob], [
63116311
])
63126312

63136313
AT_CHECK([$COMPILE_MODULE dump.c])
6314-
AT_CHECK([$COMPILE -fno-ec=EC-SIZe prog.cob], [0], [])
6314+
AT_CHECK([$COMPILE -fno-ec=size prog.cob], [0], [])
63156315
AT_CHECK([$COBCRUN_DIRECT ./prog], [0], [05108855], [])
63166316

63176317
AT_CLEANUP
@@ -6647,7 +6647,7 @@ AT_DATA([prog.cob], [
66476647
GOBACK.
66486648
])
66496649

6650-
AT_CHECK([$COMPILE -fno-ec=EC-SIZE prog.cob], [0], [],
6650+
AT_CHECK([$COMPILE -fno-ec=size prog.cob], [0], [],
66516651
[prog.cob:14: warning: divide by constant ZERO
66526652
])
66536653
AT_CHECK([$COBCRUN_DIRECT ./prog], [0], [], [])
@@ -7378,7 +7378,7 @@ AT_DATA([prog.cob], [
73787378
GOBACK.
73797379
])
73807380

7381-
AT_CHECK([$COMPILE -fno-ec=EC-SIZE prog.cob])
7381+
AT_CHECK([$COMPILE -fno-ec=size prog.cob])
73827382
AT_CHECK([$COBCRUN_DIRECT ./prog], [0], [], [])
73837383

73847384
AT_CLEANUP

0 commit comments

Comments
 (0)