Skip to content

Commit

Permalink
add: INITIALIZE NATIONAL testcase
Browse files Browse the repository at this point in the history
  • Loading branch information
@n-isaka
n-isaka committed Sep 26, 2024
1 parent 1336823 commit 0fb8d16
Show file tree
Hide file tree
Showing 2 changed files with 154 additions and 8 deletions.
87 changes: 80 additions & 7 deletions tests/testsuite
View file
Original file line number Diff line number Diff line change
Expand Up @@ -71198,73 +71198,146 @@ cat >prog.cob <<'_ATEOF'
03 N3 PIC N(02) OCCURS 3.
03 P93 PIC 9(02) OCCURS 3.
01 N4 PIC N(01).
01 G5.
03 G52 OCCURS 2.
05 X5 PIC X(02) OCCURS 2.
05 N5 PIC N(02) OCCURS 2.
05 P95 PIC 9(02) OCCURS 2.
01 G6.
03 N6 PIC N(02).
03 R6 REDEFINES N6.
05 X6 PIC X(04).
01 G7.
03 X7 PIC X(04).
03 R7 REDEFINES X7.
05 N7 PIC N(02).
PROCEDURE DIVISION.
INITIALIZE N0.
IF N0 NOT = "�@�@�@�@"
DISPLAY N0 NO ADVANCING
END-DISPLAY
END-IF.

INITIALIZE G1.
IF G1 NOT = " �@�@00"
DISPLAY G1 NO ADVANCING
END-DISPLAY
END-IF.

INITIALIZE G2.
IF G2 NOT =
" �@�@00 �@�@00 �@�@00"
DISPLAY G2 NO ADVANCING
END-DISPLAY
END-IF.

INITIALIZE G3.
IF G3 NOT =
" �@�@�@�@�@�@000000"
DISPLAY G2 NO ADVANCING
DISPLAY G3 NO ADVANCING
END-DISPLAY
END-IF.

INITIALIZE N4.
IF N4 NOT = "�@"
DISPLAY N4 NO ADVANCING
END-DISPLAY
END-IF.

INITIALIZE G5.
IF G5 NOT =
" �@�@�@�@0000 �@�@�@�@0000"
DISPLAY G5 NO ADVANCING
END-DISPLAY
END-IF.

MOVE "��������" TO N0.
INITIALIZE N0(1:2).
* NOTE: Partial reference is regarded X items
IF N0 NOT = " ����"
DISPLAY N0 NO ADVANCING
END-DISPLAY
END-IF.

MOVE "XX����99" TO G1.
INITIALIZE N1.
IF G1 NOT = "XX�@�@99"
DISPLAY G1 NO ADVANCING
END-DISPLAY
END-IF.

MOVE "XX����99XX����99XX����99" TO G2.
INITIALIZE N2(2).
IF G2 NOT = "XX����99XX�@�@99XX����99"
DISPLAY G2 NO ADVANCING
END-DISPLAY
END-IF.

MOVE "XXXXXX������������999999" TO G3.
INITIALIZE N3(2).
IF G3 NOT = "XXXXXX�����@�@����999999"
DISPLAY G3 NO ADVANCING
END-DISPLAY
END-IF.

MOVE "XXXX��������9999XXXX��������9999" TO G5.
INITIALIZE N5(2,1).
IF G5 NOT = "XXXX��������9999XXXX�@�@����9999"
DISPLAY G5 NO ADVANCING
END-DISPLAY
END-IF.

INITIALIZE G6.
IF G6 NOT = "�@�@"
DISPLAY G6 NO ADVANCING
END-DISPLAY
END-IF.

INITIALIZE X6.
IF G6 NOT = " "
DISPLAY G6 NO ADVANCING
END-DISPLAY
END-IF.

INITIALIZE G7.
IF G7 NOT = " "
DISPLAY G7 NO ADVANCING
END-DISPLAY
END-IF.

INITIALIZE N7.
IF G7 NOT = "�@�@"
DISPLAY G7 NO ADVANCING
END-DISPLAY
END-IF.

STOP RUN.
_ATEOF


{ set +x
$as_echo "$at_srcdir/run_initialize.at:885: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_initialize.at:885"
$as_echo "$at_srcdir/run_initialize.at:958: \$COMPILE prog.cob"
at_fn_check_prepare_dynamic "$COMPILE prog.cob" "run_initialize.at:958"
( $at_check_trace; $COMPILE prog.cob
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_initialize.at:885"
at_fn_check_status 0 $at_status "$at_srcdir/run_initialize.at:958"
$at_failed && at_fn_log_failure
$at_traceon; }

{ set +x
$as_echo "$at_srcdir/run_initialize.at:886: \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_initialize.at:886"
$as_echo "$at_srcdir/run_initialize.at:959: \$COBCRUN_DIRECT ./prog"
at_fn_check_prepare_dynamic "$COBCRUN_DIRECT ./prog" "run_initialize.at:959"
( $at_check_trace; $COBCRUN_DIRECT ./prog
) >>"$at_stdout" 2>>"$at_stderr" 5>&-
at_status=$? at_failed=false
$at_check_filter
at_fn_diff_devnull "$at_stderr" || at_failed=:
at_fn_diff_devnull "$at_stdout" || at_failed=:
at_fn_check_status 0 $at_status "$at_srcdir/run_initialize.at:886"
at_fn_check_status 0 $at_status "$at_srcdir/run_initialize.at:959"
$at_failed && at_fn_log_failure
$at_traceon; }

Expand Down
75 changes: 74 additions & 1 deletion tests/testsuite.src/run_initialize.at
View file
Original file line number Diff line number Diff line change
Expand Up @@ -839,46 +839,119 @@ AT_DATA([prog.cob], [
03 N3 PIC N(02) OCCURS 3.
03 P93 PIC 9(02) OCCURS 3.
01 N4 PIC N(01).
01 G5.
03 G52 OCCURS 2.
05 X5 PIC X(02) OCCURS 2.
05 N5 PIC N(02) OCCURS 2.
05 P95 PIC 9(02) OCCURS 2.
01 G6.
03 N6 PIC N(02).
03 R6 REDEFINES N6.
05 X6 PIC X(04).
01 G7.
03 X7 PIC X(04).
03 R7 REDEFINES X7.
05 N7 PIC N(02).
PROCEDURE DIVISION.
INITIALIZE N0.
IF N0 NOT = "�@�@�@�@"
DISPLAY N0 NO ADVANCING
END-DISPLAY
END-IF.

INITIALIZE G1.
IF G1 NOT = " �@�@00"
DISPLAY G1 NO ADVANCING
END-DISPLAY
END-IF.

INITIALIZE G2.
IF G2 NOT =
" �@�@00 �@�@00 �@�@00"
DISPLAY G2 NO ADVANCING
END-DISPLAY
END-IF.

INITIALIZE G3.
IF G3 NOT =
" �@�@�@�@�@�@000000"
DISPLAY G2 NO ADVANCING
DISPLAY G3 NO ADVANCING
END-DISPLAY
END-IF.

INITIALIZE N4.
IF N4 NOT = "�@"
DISPLAY N4 NO ADVANCING
END-DISPLAY
END-IF.

INITIALIZE G5.
IF G5 NOT =
" �@�@�@�@0000 �@�@�@�@0000"
DISPLAY G5 NO ADVANCING
END-DISPLAY
END-IF.

MOVE "��������" TO N0.
INITIALIZE N0(1:2).
* NOTE: Partial reference is regarded X items
IF N0 NOT = " ����"
DISPLAY N0 NO ADVANCING
END-DISPLAY
END-IF.

MOVE "XX����99" TO G1.
INITIALIZE N1.
IF G1 NOT = "XX�@�@99"
DISPLAY G1 NO ADVANCING
END-DISPLAY
END-IF.

MOVE "XX����99XX����99XX����99" TO G2.
INITIALIZE N2(2).
IF G2 NOT = "XX����99XX�@�@99XX����99"
DISPLAY G2 NO ADVANCING
END-DISPLAY
END-IF.

MOVE "XXXXXX������������999999" TO G3.
INITIALIZE N3(2).
IF G3 NOT = "XXXXXX�����@�@����999999"
DISPLAY G3 NO ADVANCING
END-DISPLAY
END-IF.

MOVE "XXXX��������9999XXXX��������9999" TO G5.
INITIALIZE N5(2,1).
IF G5 NOT = "XXXX��������9999XXXX�@�@����9999"
DISPLAY G5 NO ADVANCING
END-DISPLAY
END-IF.

INITIALIZE G6.
IF G6 NOT = "�@�@"
DISPLAY G6 NO ADVANCING
END-DISPLAY
END-IF.

INITIALIZE X6.
IF G6 NOT = " "
DISPLAY G6 NO ADVANCING
END-DISPLAY
END-IF.

INITIALIZE G7.
IF G7 NOT = " "
DISPLAY G7 NO ADVANCING
END-DISPLAY
END-IF.

INITIALIZE N7.
IF G7 NOT = "�@�@"
DISPLAY G7 NO ADVANCING
END-DISPLAY
END-IF.

STOP RUN.
])

Expand Down

0 comments on commit 0fb8d16

Please sign in to comment.