test: improve test for I/O buffers

Author: yutaro-sakamoto

tests/misc.src/seq-buffer.at

@@ -230,6 +230,111 @@ CCCC
 AT_CLEANUP
 
 
+AT_SETUP([COB_FILE_SEQ_BUFFER_SIZE: SEQUENTIAL I-O interleaved read and rewrite])
+
+AT_DATA([prog.cbl], [
+       IDENTIFICATION   DIVISION.
+       PROGRAM-ID.      prog.
+       ENVIRONMENT      DIVISION.
+       INPUT-OUTPUT     SECTION.
+       FILE-CONTROL.
+       SELECT TEST-FILE ASSIGN "TESTREWR"
+           ORGANIZATION SEQUENTIAL.
+       DATA             DIVISION.
+       FILE             SECTION.
+       FD TEST-FILE.
+       01 TEST-REC      PIC X(4).
+       PROCEDURE        DIVISION.
+           OPEN OUTPUT TEST-FILE.
+           MOVE "REC1" TO TEST-REC.
+           WRITE TEST-REC.
+           MOVE "REC2" TO TEST-REC.
+           WRITE TEST-REC.
+           MOVE "REC3" TO TEST-REC.
+           WRITE TEST-REC.
+           MOVE "REC4" TO TEST-REC.
+           WRITE TEST-REC.
+           MOVE "REC5" TO TEST-REC.
+           WRITE TEST-REC.
+           MOVE "REC6" TO TEST-REC.
+           WRITE TEST-REC.
+           MOVE "REC7" TO TEST-REC.
+           WRITE TEST-REC.
+           MOVE "REC8" TO TEST-REC.
+           WRITE TEST-REC.
+           CLOSE TEST-FILE.
+
+           OPEN I-O TEST-FILE.
+           READ TEST-FILE.
+           DISPLAY TEST-REC.
+           MOVE "UPD1" TO TEST-REC.
+           REWRITE TEST-REC.
+           READ TEST-FILE.
+           DISPLAY TEST-REC.
+           READ TEST-FILE.
+           DISPLAY TEST-REC.
+           MOVE "UPD3" TO TEST-REC.
+           REWRITE TEST-REC.
+           READ TEST-FILE.
+           DISPLAY TEST-REC.
+           MOVE "UPD4" TO TEST-REC.
+           REWRITE TEST-REC.
+           READ TEST-FILE.
+           DISPLAY TEST-REC.
+           READ TEST-FILE.
+           DISPLAY TEST-REC.
+           MOVE "UPD6" TO TEST-REC.
+           REWRITE TEST-REC.
+           READ TEST-FILE.
+           DISPLAY TEST-REC.
+           READ TEST-FILE.
+           DISPLAY TEST-REC.
+           CLOSE TEST-FILE.
+
+           OPEN INPUT TEST-FILE.
+           READ TEST-FILE.
+           DISPLAY TEST-REC.
+           READ TEST-FILE.
+           DISPLAY TEST-REC.
+           READ TEST-FILE.
+           DISPLAY TEST-REC.
+           READ TEST-FILE.
+           DISPLAY TEST-REC.
+           READ TEST-FILE.
+           DISPLAY TEST-REC.
+           READ TEST-FILE.
+           DISPLAY TEST-REC.
+           READ TEST-FILE.
+           DISPLAY TEST-REC.
+           READ TEST-FILE.
+           DISPLAY TEST-REC.
+           CLOSE TEST-FILE.
+           STOP RUN.
+])
+
+AT_CHECK([${COMPILE} prog.cbl])
+AT_CHECK([COB_FILE_SEQ_BUFFER_SIZE=2 ${RUN_MODULE} prog], [0],
+[REC1
+REC2
+REC3
+REC4
+REC5
+REC6
+REC7
+REC8
+UPD1
+REC2
+UPD3
+UPD4
+REC5
+UPD6
+REC7
+REC8
+])
+
+AT_CLEANUP
+
+
 AT_SETUP([COB_FILE_SEQ_BUFFER_SIZE: SEQUENTIAL many records])
 
 AT_DATA([prog.cbl], [
@@ -435,6 +540,93 @@ CCCC
 AT_CLEANUP
 
 
+AT_SETUP([COB_FILE_SEQ_BUFFER_SIZE: SEQUENTIAL I-O repeated mode transitions])
+
+AT_DATA([prog.cbl], [
+       IDENTIFICATION   DIVISION.
+       PROGRAM-ID.      prog.
+       ENVIRONMENT      DIVISION.
+       INPUT-OUTPUT     SECTION.
+       FILE-CONTROL.
+       SELECT TEST-FILE ASSIGN "TESTRW"
+           ORGANIZATION SEQUENTIAL.
+       DATA             DIVISION.
+       FILE             SECTION.
+       FD TEST-FILE.
+       01 TEST-REC      PIC X(2).
+       PROCEDURE        DIVISION.
+           OPEN OUTPUT TEST-FILE.
+           MOVE "AA" TO TEST-REC.
+           WRITE TEST-REC.
+           MOVE "BB" TO TEST-REC.
+           WRITE TEST-REC.
+           MOVE "CC" TO TEST-REC.
+           WRITE TEST-REC.
+           MOVE "DD" TO TEST-REC.
+           WRITE TEST-REC.
+           MOVE "EE" TO TEST-REC.
+           WRITE TEST-REC.
+           MOVE "FF" TO TEST-REC.
+           WRITE TEST-REC.
+           CLOSE TEST-FILE.
+
+           OPEN I-O TEST-FILE.
+           READ TEST-FILE.
+           DISPLAY TEST-REC.
+           MOVE "XX" TO TEST-REC.
+           REWRITE TEST-REC.
+           READ TEST-FILE.
+           DISPLAY TEST-REC.
+           MOVE "YY" TO TEST-REC.
+           REWRITE TEST-REC.
+           READ TEST-FILE.
+           DISPLAY TEST-REC.
+           READ TEST-FILE.
+           DISPLAY TEST-REC.
+           READ TEST-FILE.
+           DISPLAY TEST-REC.
+           MOVE "ZZ" TO TEST-REC.
+           REWRITE TEST-REC.
+           READ TEST-FILE.
+           DISPLAY TEST-REC.
+           CLOSE TEST-FILE.
+
+           OPEN INPUT TEST-FILE.
+           READ TEST-FILE.
+           DISPLAY TEST-REC.
+           READ TEST-FILE.
+           DISPLAY TEST-REC.
+           READ TEST-FILE.
+           DISPLAY TEST-REC.
+           READ TEST-FILE.
+           DISPLAY TEST-REC.
+           READ TEST-FILE.
+           DISPLAY TEST-REC.
+           READ TEST-FILE.
+           DISPLAY TEST-REC.
+           CLOSE TEST-FILE.
+           STOP RUN.
+])
+
+AT_CHECK([${COMPILE} prog.cbl])
+AT_CHECK([COB_FILE_SEQ_BUFFER_SIZE=1 ${RUN_MODULE} prog], [0],
+[AA
+BB
+CC
+DD
+EE
+FF
+XX
+YY
+CC
+DD
+ZZ
+FF
+])
+
+AT_CLEANUP
+
+
 AT_SETUP([COB_FILE_SEQ_BUFFER_SIZE: LINE SEQUENTIAL read with short records])
 
 AT_DATA([prog.cbl], [