32 lines
650 B
Plaintext
32 lines
650 B
Plaintext
general {
|
|
funcon-term:
|
|
initialise-giving finalise-failing
|
|
sequential (
|
|
print map-unite({1 |-> 2},map()),
|
|
print map-unite(map(),{1 |-> 2}),
|
|
print map-unite({1 |-> 2},{3 |-> 4}),
|
|
print map-unite({1 |-> 2}),
|
|
print map-unite(map()),
|
|
print map-unite(),
|
|
else(
|
|
effect checked map-unite({1 |-> 2},{1 |-> 4}),
|
|
effect checked map-unite({1 |-> 2, 3 |-> 4},{5 |-> 6, 1 |-> 7}),
|
|
print "OK"
|
|
)
|
|
)
|
|
;
|
|
}
|
|
|
|
tests {
|
|
result-term: null-value;
|
|
standard-out: [
|
|
{1 |-> 2},
|
|
{1 |-> 2},
|
|
{1 |-> 2, 3 |-> 4},
|
|
{1 |-> 2},
|
|
map(),
|
|
map(),
|
|
"OK"
|
|
];
|
|
}
|