mercury/tests/hard_coded/expand.exp4

TESTING DISCRIMINATED UNIONS
one/0
0/0
no arguments
expand: functor one arity 0 arguments []
expand: functor 0 arity 0 arguments []

two/0
2/0
no arguments
expand: functor two arity 0 arguments []
expand: functor 2 arity 0 arguments []

three/0
1/0
no arguments
expand: functor three arity 0 arguments []
expand: functor 1 arity 0 arguments []

apple/1
0/1
argument 1 of functor apple was:[9, 5, 1]
expand: functor apple arity 1 arguments [[9, 5, 1]]
expand: functor 0 arity 1 arguments [[9, 5, 1]]

banana/1
1/1
argument 1 of functor banana was:[three, one, two]
expand: functor banana arity 1 arguments [[three, one, two]]
expand: functor 1 arity 1 arguments [[three, one, two]]

zop/2
10/2
argument 2 of functor zop was:2.03
expand: functor zop arity 2 arguments [3.3, 2.03]
expand: functor 10 arity 2 arguments [3.3, 2.03]

zip/2
8/2
argument 2 of functor zip was:2
expand: functor zip arity 2 arguments [3, 2]
expand: functor 8 arity 2 arguments [3, 2]

zap/2
7/2
argument 2 of functor zap was:-2.111
expand: functor zap arity 2 arguments [3, -2.111]
expand: functor 7 arity 2 arguments [3, -2.111]

wombat/0
6/0
no arguments
expand: functor wombat arity 0 arguments []
expand: functor 6 arity 0 arguments []

foo/0
2/0
no arguments
expand: functor foo arity 0 arguments []
expand: functor 2 arity 0 arguments []


TESTING POLYMORPHISM
poly_two/1
2/1
argument 1 of functor poly_two was:3
expand: functor poly_two arity 1 arguments [3]
expand: functor 2 arity 1 arguments [3]

poly_three/3
1/3
argument 3 of functor poly_three was:poly_one(9.11)
expand: functor poly_three arity 3 arguments [3.33, 4, poly_one(9.11)]
expand: functor 1 arity 3 arguments [3.33, 4, poly_one(9.11)]

poly_one/1
0/1
argument 1 of functor poly_one was:[2399.3]
expand: functor poly_one arity 1 arguments [[2399.3]]
expand: functor 0 arity 1 arguments [[2399.3]]


TESTING BUILTINS
""/0
functor_number_cc failed
no arguments
expand: functor "" arity 0 arguments []
deconstruct_du failed

"Hello, world\n"/0
functor_number_cc failed
no arguments
expand: functor "Hello, world\n" arity 0 arguments []
deconstruct_du failed

"Foo%sFoo"/0
functor_number_cc failed
no arguments
expand: functor "Foo%sFoo" arity 0 arguments []
deconstruct_du failed

"\""/0
functor_number_cc failed
no arguments
expand: functor "\"" arity 0 arguments []
deconstruct_du failed

'a'/0
functor_number_cc failed
no arguments
expand: functor 'a' arity 0 arguments []
deconstruct_du failed

'&'/0
functor_number_cc failed
no arguments
expand: functor '&' arity 0 arguments []
deconstruct_du failed

3.14159/0
functor_number_cc failed
no arguments
expand: functor 3.14159 arity 0 arguments []
deconstruct_du failed

1.128324983E-21/0
functor_number_cc failed
no arguments
expand: functor 1.128324983E-21 arity 0 arguments []
deconstruct_du failed

2.23954899E23/0
functor_number_cc failed
no arguments
expand: functor 2.23954899E23 arity 0 arguments []
deconstruct_du failed

-65/0
functor_number_cc failed
no arguments
expand: functor -65 arity 0 arguments []
deconstruct_du failed

4/0
functor_number_cc failed
no arguments
expand: functor 4 arity 0 arguments []
deconstruct_du failed

univ_cons/1
0/1
argument 1 of functor univ_cons was:["hi! I\'m a univ!"]
expand: functor univ_cons arity 1 arguments [["hi! I\'m a univ!"]]
expand: functor 0 arity 1 arguments [["hi! I\'m a univ!"]]

<<predicate>>/0
functor_number_cc failed
no arguments
expand: functor <<predicate>> arity 0 arguments []
deconstruct_du failed

{}/4
0/4
argument 4 of functor {} was:{1, 2, 3, 4}
expand: functor {} arity 4 arguments [1, 'b', "third", {1, 2, 3, 4}]
expand: functor 0 arity 4 arguments [1, 'b', "third", {1, 2, 3, 4}]


TESTING OTHER TYPES
var/1
0/1
argument 1 of functor var was:1
expand: functor var arity 1 arguments [1]
expand: functor 0 arity 1 arguments [1]

var_supply/1
0/1
argument 1 of functor var_supply was:0
expand: functor var_supply arity 1 arguments [0]
expand: functor 0 arity 1 arguments [0]

var_supply/1
0/1
argument 1 of functor var_supply was:1
expand: functor var_supply arity 1 arguments [1]
expand: functor 0 arity 1 arguments [1]

empty/0
0/0
no arguments
expand: functor empty arity 0 arguments []
expand: functor 0 arity 0 arguments []

qwerty/1
0/1
argument 1 of functor qwerty was:4
expand: functor qwerty arity 1 arguments [4]
expand: functor 0 arity 1 arguments [4]