diff --git a/tests/testsuite.src/run_file.at b/tests/testsuite.src/run_file.at index df8fee82d..1f9aa0f55 100644 --- 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