mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-21 12:23:44 +00:00
91e5b8aac2
Estimated hours taken: 0.25 tests/hard_coded/tim_qual1.m: Fix a bug in the test case (it wasn't printing newlines at the end of its output, so the output didn't match the expected output).
34 lines
768 B
Mathematica
34 lines
768 B
Mathematica
% Tests module qualification of types, insts and modes.
|
|
% Should get syntax errors if the qualified types, insts and modes are
|
|
% not correctly parsed, module qualification errors if the correct match
|
|
% cannot be determined or type or determinism errors if the wrong type
|
|
% or mode is chosen.
|
|
:- module tim_qual1.
|
|
|
|
:- import_module io.
|
|
|
|
:- interface.
|
|
|
|
:- import_module tim_qual2, tim_qual3.
|
|
|
|
:- pred main(io__state::di, io__state::uo) is det.
|
|
|
|
:- pred test(tim_qual2:test_type::tim_qual3:test_mode) is det.
|
|
|
|
:- pred test2(tim_qual2:test_type::test_mode2) is det.
|
|
|
|
:- mode test_mode2 :: tim_qual2:inst1 -> tim_qual3:inst1.
|
|
|
|
:- implementation.
|
|
|
|
main -->
|
|
( { test(ok), test2(ok) } ->
|
|
io__write_string("ok\n")
|
|
;
|
|
io__write_string("error\n")
|
|
).
|
|
|
|
test2(ok).
|
|
|
|
test(ok).
|