Add testcase EXTSM

* Add check FILE STATUS 10 is returned at AT END of SORT RETURN
opensourcecobol · Feb 8, 2024 · 641b04f · 641b04f
1 parent fbc4e71
commit 641b04f
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/tests/testsuite.src/run_misc.at b/tests/testsuite.src/run_misc.at
@@ -3694,6 +3694,10 @@ AT_DATA([prog.cob], [
            CALL "EXTSM" USING OPCODE, FCD.
            DISPLAY EX-RECORD-BUFFER.
 
+      *>   "AT END".
+           CALL "EXTSM" USING OPCODE, FCD.
+           DISPLAY FCD-FILE-STATUS.
+
       *>   "TERM".
            MOVE SD-term TO OPCODE.
            CALL "EXTSM" USING OPCODE, FCD.
@@ -3706,6 +3710,7 @@ AT_CHECK([$COBCRUN_DIRECT ./prog], [0],
 [AAA222
 BBB111
 CCC333
+10
 ], [])
 
 AT_CLEANUP