39 lines
1.6 KiB
Python
39 lines
1.6 KiB
Python
"""SQLCA 字节序对齐测试（T1）。
|
||
|
||
gixsql 以 native 小端 int 写入 SQLCA.SQLCODE。GnuCOBOL 的 COMP 按大端存储，
|
||
导致非零 SQLCODE 被错读（如 -1555 → -302383105）。必须改用 COMP-5（native），
|
||
否则 `IF SQLCODE = -803` 类具体值判断永远无法匹配。
|
||
"""
|
||
|
||
import sys, os
|
||
sys.path.insert(0, os.path.abspath(os.path.join(os.path.dirname(__file__), "..", "..")))
|
||
from cobol_testgen.read import resolve_sql_includes, _BUILTIN_SQLCA
|
||
from runners.gixsql_runner import GixsqlCobolRunner
|
||
|
||
|
||
def test_builtin_sqlca_uses_comp5_for_numeric_fields():
|
||
"""内置 SQLCA 的 SQLCABC/SQLCODE 必须用 COMP-5（native 字节序）"""
|
||
assert "SQLCABC PIC S9(9) COMP-5" in _BUILTIN_SQLCA
|
||
assert "SQLCODE PIC S9(9) COMP-5" in _BUILTIN_SQLCA
|
||
assert "SQLERRML PIC S9(4) COMP-5" in _BUILTIN_SQLCA
|
||
assert "PIC S9(9) COMP-5" in _BUILTIN_SQLCA
|
||
|
||
|
||
def test_resolve_sql_includes_injects_comp5_sqlca():
|
||
"""EXEC SQL INCLUDE SQLCA 解析后注入的 SQLCA 用 COMP-5"""
|
||
src = " EXEC SQL INCLUDE SQLCA END-EXEC.\n"
|
||
out = resolve_sql_includes(src, ".")
|
||
assert "SQLCODE PIC S9(9) COMP-5" in out
|
||
|
||
|
||
def test_runner_inline_sqlca_uses_comp5():
|
||
"""gixsql_runner 内联 SQLCA 的数值字段用 COMP-5"""
|
||
r = GixsqlCobolRunner(gixpp_path="gixpp", lib_path="lib")
|
||
r._copybook_dirs = []
|
||
# _expand_all_copies 内联 SQLCA 分支（copybook 不存在时）
|
||
text = " COPY SQLCA.\n"
|
||
out = r._expand_all_copies(text, [])
|
||
assert "SQLCODE PIC S9(9) COMP-5" in out
|
||
assert "SQLCABC PIC S9(9) COMP-5" in out
|
||
assert "SQLERRD PIC S9(9) COMP-5 OCCURS 6" in out
|