Skip to content

Commit

Permalink
Split large expect tests that use the GnuCOBOL testsuite
Browse files Browse the repository at this point in the history
  • Loading branch information
@nberth
nberth committed Sep 15, 2023
1 parent 90c3c4d commit 2283420
Show file tree
Hide file tree
Showing 38 changed files with 65,103 additions and 64,856 deletions.
582 changes: 582 additions & 0 deletions test/output-tests/configuration.expected
View file

Large diffs are not rendered by default.

321 changes: 321 additions & 0 deletions test/output-tests/data_binary.expected
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,321 @@
Considering: import/gnucobol/tests/testsuite.src/data_binary.at:41:0
data_binary.at-41-dump.c:5.6-5.7:
2 #include <stdio.h>
3 #include <libcob.h>
4
5 > COB_EXT_EXPORT int
---- ^
6 dump (unsigned char *data)
7 {
>> Error: Unexpected indicator: `T'

data_binary.at-41-dump.c:6.6-6.7:
3 #include <libcob.h>
4
5 COB_EXT_EXPORT int
6 > dump (unsigned char *data)
---- ^
7 {
8 int i;
>> Error: Unexpected indicator: `u'

data_binary.at-41-dump.c:8.6-8.7:
5 COB_EXT_EXPORT int
6 dump (unsigned char *data)
7 {
8 > int i;
---- ^
9 for (i = 0; i < 8; i++)
10 printf ("%02x", data[i]);
>> Error: Unexpected indicator: `i'

data_binary.at-41-dump.c:9.6-9.7:
6 dump (unsigned char *data)
7 {
8 int i;
9 > for (i = 0; i < 8; i++)
---- ^
10 printf ("%02x", data[i]);
11 puts ("");
>> Error: Unexpected indicator: `('

data_binary.at-41-dump.c:10.6-10.7:
7 {
8 int i;
9 for (i = 0; i < 8; i++)
10 > printf ("%02x", data[i]);
---- ^
11 puts ("");
12 return 0;
>> Error: Unexpected indicator: `i'

data_binary.at-41-dump.c:12.6-12.7:
9 for (i = 0; i < 8; i++)
10 printf ("%02x", data[i]);
11 puts ("");
12 > return 0;
---- ^
13 }
>> Error: Unexpected indicator: `r'

data_binary.at-41-dump.c:5.7-5.14:
2 #include <stdio.h>
3 #include <libcob.h>
4
5 > COB_EXT_EXPORT int
---- ^^^^^^^
6 dump (unsigned char *data)
7 {
>> Error: Invalid syntax

Considering: import/gnucobol/tests/testsuite.src/data_binary.at:411:0
data_binary.at-411-dump.c:5.6-5.7:
2 #include <stdio.h>
3 #include <libcob.h>
4
5 > COB_EXT_EXPORT int
---- ^
6 dump (unsigned char *data)
7 {
>> Error: Unexpected indicator: `T'

data_binary.at-411-dump.c:6.6-6.7:
3 #include <libcob.h>
4
5 COB_EXT_EXPORT int
6 > dump (unsigned char *data)
---- ^
7 {
8 int i;
>> Error: Unexpected indicator: `u'

data_binary.at-411-dump.c:8.6-8.7:
5 COB_EXT_EXPORT int
6 dump (unsigned char *data)
7 {
8 > int i;
---- ^
9 for (i = 0; i < 8; i++)
10 printf ("%02x", data[i]);
>> Error: Unexpected indicator: `i'

data_binary.at-411-dump.c:9.6-9.7:
6 dump (unsigned char *data)
7 {
8 int i;
9 > for (i = 0; i < 8; i++)
---- ^
10 printf ("%02x", data[i]);
11 puts ("");
>> Error: Unexpected indicator: `('

data_binary.at-411-dump.c:10.6-10.7:
7 {
8 int i;
9 for (i = 0; i < 8; i++)
10 > printf ("%02x", data[i]);
---- ^
11 puts ("");
12 return 0;
>> Error: Unexpected indicator: `i'

data_binary.at-411-dump.c:12.6-12.7:
9 for (i = 0; i < 8; i++)
10 printf ("%02x", data[i]);
11 puts ("");
12 > return 0;
---- ^
13 }
>> Error: Unexpected indicator: `r'

data_binary.at-411-dump.c:5.7-5.14:
2 #include <stdio.h>
3 #include <libcob.h>
4
5 > COB_EXT_EXPORT int
---- ^^^^^^^
6 dump (unsigned char *data)
7 {
>> Error: Invalid syntax

Considering: import/gnucobol/tests/testsuite.src/data_binary.at:781:0
data_binary.at-781-dump.c:5.6-5.7:
2 #include <stdio.h>
3 #include <libcob.h>
4
5 > COB_EXT_EXPORT int
---- ^
6 dump (unsigned char *data)
7 {
>> Error: Unexpected indicator: `T'

data_binary.at-781-dump.c:6.6-6.7:
3 #include <libcob.h>
4
5 COB_EXT_EXPORT int
6 > dump (unsigned char *data)
---- ^
7 {
8 int i;
>> Error: Unexpected indicator: `u'

data_binary.at-781-dump.c:8.6-8.7:
5 COB_EXT_EXPORT int
6 dump (unsigned char *data)
7 {
8 > int i;
---- ^
9 for (i = 0; i < 8; i++)
10 printf ("%02x", data[i]);
>> Error: Unexpected indicator: `i'

data_binary.at-781-dump.c:9.6-9.7:
6 dump (unsigned char *data)
7 {
8 int i;
9 > for (i = 0; i < 8; i++)
---- ^
10 printf ("%02x", data[i]);
11 puts ("");
>> Error: Unexpected indicator: `('

data_binary.at-781-dump.c:10.6-10.7:
7 {
8 int i;
9 for (i = 0; i < 8; i++)
10 > printf ("%02x", data[i]);
---- ^
11 puts ("");
12 return 0;
>> Error: Unexpected indicator: `i'

data_binary.at-781-dump.c:12.6-12.7:
9 for (i = 0; i < 8; i++)
10 printf ("%02x", data[i]);
11 puts ("");
12 > return 0;
---- ^
13 }
>> Error: Unexpected indicator: `r'

data_binary.at-781-dump.c:5.7-5.14:
2 #include <stdio.h>
3 #include <libcob.h>
4
5 > COB_EXT_EXPORT int
---- ^^^^^^^
6 dump (unsigned char *data)
7 {
>> Error: Invalid syntax

Considering: import/gnucobol/tests/testsuite.src/data_binary.at:1207:0
Considering: import/gnucobol/tests/testsuite.src/data_binary.at:1232:0
Considering: import/gnucobol/tests/testsuite.src/data_binary.at:1256:0
Considering: import/gnucobol/tests/testsuite.src/data_binary.at:1313:0
Considering: import/gnucobol/tests/testsuite.src/data_binary.at:1398:0
data_binary.at-1398-prog.cob:20.7-20.34:
17 MAIN.
18 * Test with DISPLAY on error
19 PERFORM DO-CHECK.
20 > >> IF CHECK-PERF IS DEFINED
---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^
21 SET NO-DISP TO TRUE
22 * some performance checks on the way...
>> Error: Malformed or unknown compiler directive

data_binary.at-1398-prog.cob:24.7-24.16:
21 SET NO-DISP TO TRUE
22 * some performance checks on the way...
23 PERFORM DO-CHECK 30000 TIMES.
24 > >> END-IF
---- ^^^^^^^^^
25 GOBACK.
26
>> Error: Malformed or unknown compiler directive

Considering: import/gnucobol/tests/testsuite.src/data_binary.at:1589:0
data_binary.at-1589-prog.cob:30.7-30.34:
27 MAIN.
28 * Test with DISPLAY on error
29 PERFORM DO-CHECK.
30 > >> IF CHECK-PERF IS DEFINED
---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^
31 SET NO-DISP TO TRUE
32 * some performance checks on the way...
>> Error: Malformed or unknown compiler directive

data_binary.at-1589-prog.cob:34.7-34.16:
31 SET NO-DISP TO TRUE
32 * some performance checks on the way...
33 PERFORM DO-CHECK 20000 TIMES.
34 > >> END-IF
---- ^^^^^^^^^
35 GOBACK.
36
>> Error: Malformed or unknown compiler directive

Considering: import/gnucobol/tests/testsuite.src/data_binary.at:1775:0
data_binary.at-1775-prog.cob:30.7-30.34:
27 MAIN.
28 * Test with DISPLAY on error
29 PERFORM DO-CHECK.
30 > >> IF CHECK-PERF IS DEFINED
---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^
31 SET NO-DISP TO TRUE
32 * some performance checks on the way...
>> Error: Malformed or unknown compiler directive

data_binary.at-1775-prog.cob:34.7-34.16:
31 SET NO-DISP TO TRUE
32 * some performance checks on the way...
33 PERFORM DO-CHECK 20000 TIMES.
34 > >> END-IF
---- ^^^^^^^^^
35 GOBACK.
36
>> Error: Malformed or unknown compiler directive

Considering: import/gnucobol/tests/testsuite.src/data_binary.at:1955:0
data_binary.at-1955-prog.cob:28.7-28.34:
25 MAIN.
26 * Test with DISPLAY on error
27 PERFORM DO-CHECK.
28 > >> IF CHECK-PERF IS DEFINED
---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^
29 SET NO-DISP TO TRUE
30 * some performance checks on the way...
>> Error: Malformed or unknown compiler directive

data_binary.at-1955-prog.cob:32.7-32.16:
29 SET NO-DISP TO TRUE
30 * some performance checks on the way...
31 PERFORM DO-CHECK 20000 TIMES.
32 > >> END-IF
---- ^^^^^^^^^
33 GOBACK.
34
>> Error: Malformed or unknown compiler directive

Considering: import/gnucobol/tests/testsuite.src/data_binary.at:2137:0
data_binary.at-2137-prog.cob:28.7-28.34:
25 MAIN.
26 * Test with DISPLAY on error
27 PERFORM DO-CHECK.
28 > >> IF CHECK-PERF IS DEFINED
---- ^^^^^^^^^^^^^^^^^^^^^^^^^^^
29 SET NO-DISP TO TRUE
30 * some performance checks on the way...
>> Error: Malformed or unknown compiler directive

data_binary.at-2137-prog.cob:32.7-32.16:
29 SET NO-DISP TO TRUE
30 * some performance checks on the way...
31 PERFORM DO-CHECK 20000 TIMES.
32 > >> END-IF
---- ^^^^^^^^^
33 GOBACK.
34
>> Error: Malformed or unknown compiler directive

Considering: import/gnucobol/tests/testsuite.src/data_binary.at:2196:0
Considering: import/gnucobol/tests/testsuite.src/data_binary.at:2264:0
Loading

0 comments on commit 2283420

Please sign in to comment.