mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-15 17:33:38 +00:00
f3bc84fdfa
tests/general/environment.m:
Catch the exception that is thrown if io.set_environment_var/4 cannot
modify the environment -- this is always the case for Java -- and print
out what the exception is. This avoids the stack trace that would otherwise
be printed.
Update the coding style in this test.
tests/general/environment.exp2:
Add an alternative expected output for systems that do not support
modifying the environment.
tests/general/Mmakefile:
Shift the 'environment' test case to the list of those that
require catching exceptions to be supported.
tests/general/float_roundtrip.exp2:
tests/hard_coded/deep_copy.exp4:
Add new expected outputs to account for differences in the way floats are
printed.
tests/hard_coded/dir_test.exp4:
tests/warnings/singleton_test.exp3:
Update these expected outputs.
114 lines
2.2 KiB
Plaintext
114 lines
2.2 KiB
Plaintext
TESTING DISCRIMINATED UNIONS
|
|
two
|
|
two
|
|
two
|
|
one
|
|
one
|
|
one
|
|
three
|
|
three
|
|
three
|
|
apple([9, 5, 1])
|
|
apple([9, 5, 1])
|
|
apple([9, 5, 1])
|
|
banana([three, one, two])
|
|
banana([three, one, two])
|
|
banana([three, one, two])
|
|
zop(3.3, 2.03)
|
|
zop(3.3, 2.03)
|
|
zop(3.3, 2.03)
|
|
zip(3, 2)
|
|
zip(3, 2)
|
|
zip(3, 2)
|
|
zap(3, -2.111)
|
|
zap(3, -2.111)
|
|
zap(3, -2.111)
|
|
wombat
|
|
wombat
|
|
wombat
|
|
foo
|
|
foo
|
|
foo
|
|
tuple_a(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, ["a", "b", "c"], 16, 17)
|
|
tuple_a(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, ["a", "b", "c"], 16, 17)
|
|
tuple_a(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, ["a", "b", "c"], 16, 17)
|
|
tuple_b(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, ["a", "b", "c"], 16, ["x", "y", "z"])
|
|
tuple_b(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, ["a", "b", "c"], 16, ["x", "y", "z"])
|
|
tuple_b(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, ["a", "b", "c"], 16, ["x", "y", "z"])
|
|
tuple_c(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, ["p", "q"], 17)
|
|
tuple_c(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, ["p", "q"], 17)
|
|
tuple_c(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, ["p", "q"], 17)
|
|
tuple_d(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, ["d", "e", "f"], 15, ["u", "v", "w"], 17)
|
|
tuple_d(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, ["d", "e", "f"], 15, ["u", "v", "w"], 17)
|
|
tuple_d(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, ["d", "e", "f"], 15, ["u", "v", "w"], 17)
|
|
|
|
TESTING POLYMORPHISM
|
|
poly_three(3.33, 4, poly_one(9.11))
|
|
poly_three(3.33, 4, poly_one(9.11))
|
|
poly_three(3.33, 4, poly_one(9.11))
|
|
poly_two(3)
|
|
poly_two(3)
|
|
poly_two(3)
|
|
poly_one([2399.3])
|
|
poly_one([2399.3])
|
|
poly_one([2399.3])
|
|
|
|
TESTING BUILTINS
|
|
""
|
|
""
|
|
""
|
|
"Hello, world\n"
|
|
"Hello, world\n"
|
|
"Hello, world\n"
|
|
"Foo%sFoo"
|
|
"Foo%sFoo"
|
|
"Foo%sFoo"
|
|
"\""
|
|
"\""
|
|
"\""
|
|
'a'
|
|
'a'
|
|
'a'
|
|
'&'
|
|
'&'
|
|
'&'
|
|
3.14159
|
|
3.14159
|
|
3.14159
|
|
1.128324983E-21
|
|
1.128324983E-21
|
|
1.128324983E-21
|
|
2.23954899E23
|
|
2.23954899E23
|
|
2.23954899E23
|
|
-65
|
|
-65
|
|
-65
|
|
4
|
|
4
|
|
4
|
|
univ_cons(["hi! I\'m a univ!"])
|
|
univ_cons(["hi! I\'m a univ!"])
|
|
univ_cons(["hi! I\'m a univ!"])
|
|
{1, "two", '3', {4, '5', "6"}}
|
|
{1, "two", '3', {4, '5', "6"}}
|
|
{1, "two", '3', {4, '5', "6"}}
|
|
|
|
TESTING OTHER TYPES
|
|
var(1)
|
|
var(1)
|
|
var(1)
|
|
var_supply(0)
|
|
var_supply(0)
|
|
var_supply(0)
|
|
var_supply(1)
|
|
var_supply(1)
|
|
var_supply(1)
|
|
empty
|
|
empty
|
|
empty
|
|
qwerty(4)
|
|
qwerty(4)
|
|
qwerty(4)
|
|
|