Merge SVN 3896

OCamlPro · May 27, 2024 · 62249f9 · 62249f9
1 parent d2abca2
commit 62249f9
Showing 1 changed file with 12 additions and 2 deletions.
diff --git a/tests/testsuite.src/run_file.at b/tests/testsuite.src/run_file.at
@@ -7621,6 +7621,11 @@ AT_KEYWORDS([runfile])
 
 AT_SKIP_IF([test "$COB_HAS_ISAM" = "no"])
 
+# real ISAM has the key information and will "fail" one part,
+# BDB hasn't and will "pass" this one but fail the other
+# -> skip as 4.x feature
+#AT_SKIP_IF([true])
+
 AT_DATA([prog.cob], [
        IDENTIFICATION DIVISION.
        PROGRAM-ID. prog.
@@ -7774,8 +7779,13 @@ AT_DATA([prog.cob], [
 ])
 
 AT_CHECK([$COMPILE prog.cob], [0], [], [])
-AT_CHECK([export IX_OPTIONS='keycheck=off'
-$COBCRUN_DIRECT ./prog], [0], [], [])
+
+#AT_CHECK([export IX_OPTIONS='keycheck=off'
+#$COBCRUN_DIRECT ./prog], [0], [], [])
+AT_CHECK([$COBCRUN_DIRECT ./prog], [1], [],
+[libcob: prog.cob:82: error: unknown file error (status = 39) for file file2 ('./fileX') on OPEN
+])
+AT_CHECK([COB_KEYCHECK=OFF $COBCRUN_DIRECT ./prog], [0], [], [])
 
 AT_CLEANUP