mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-23 13:23:47 +00:00
7f1fe01b9a
Estimated hours taken: 0.1 tests/hard_coded/deep_copy.exp: Add this file, I forgot to cvs add it earlier.
99 lines
1.4 KiB
Plaintext
99 lines
1.4 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.30000000000000, 2.03000000000000)
|
|
zop(3.30000000000000, 2.03000000000000)
|
|
zop(3.30000000000000, 2.03000000000000)
|
|
zip(3, 2)
|
|
zip(3, 2)
|
|
zip(3, 2)
|
|
zap(3, -2.11100000000000)
|
|
zap(3, -2.11100000000000)
|
|
zap(3, -2.11100000000000)
|
|
wombat
|
|
wombat
|
|
wombat
|
|
foo
|
|
foo
|
|
foo
|
|
|
|
TESTING POLYMORPHISM
|
|
poly_three(3.33000000000000, 4, poly_one(9.11000000000000))
|
|
poly_three(3.33000000000000, 4, poly_one(9.11000000000000))
|
|
poly_three(3.33000000000000, 4, poly_one(9.11000000000000))
|
|
poly_two(3)
|
|
poly_two(3)
|
|
poly_two(3)
|
|
poly_one([2399.30000000000])
|
|
poly_one([2399.30000000000])
|
|
poly_one([2399.30000000000])
|
|
|
|
TESTING BUILTINS
|
|
""
|
|
""
|
|
""
|
|
"Hello, world\n"
|
|
"Hello, world\n"
|
|
"Hello, world\n"
|
|
"Foo%sFoo"
|
|
"Foo%sFoo"
|
|
"Foo%sFoo"
|
|
"\""
|
|
"\""
|
|
"\""
|
|
'a'
|
|
'a'
|
|
'a'
|
|
'&'
|
|
'&'
|
|
'&'
|
|
3.14159000000000
|
|
3.14159000000000
|
|
3.14159000000000
|
|
1.12832498300000e-21
|
|
1.12832498300000e-21
|
|
1.12832498300000e-21
|
|
2.23954899000000e+23
|
|
2.23954899000000e+23
|
|
2.23954899000000e+23
|
|
-65
|
|
-65
|
|
-65
|
|
4
|
|
4
|
|
4
|
|
univ(["hi! I\'m a univ!"] : list:list(string))
|
|
univ(["hi! I\'m a univ!"] : list:list(string))
|
|
univ(["hi! I\'m a univ!"] : list:list(string))
|
|
|
|
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)
|
|
|