29 lines
732 B
Plaintext
29 lines
732 B
Plaintext
general {
|
|
funcon-term:
|
|
initialise-giving initialise-generating finalise-failing
|
|
sequential (
|
|
print object-single-inheritance-feature-map
|
|
object(fresh-atom,"A",{"a"|->"A"}),
|
|
print object-single-inheritance-feature-map
|
|
object(fresh-atom,"B",{"a"|->"B"},
|
|
object(fresh-atom,"C",{"a"|->"C"})),
|
|
else(
|
|
is-value object-single-inheritance-feature-map
|
|
object(fresh-atom,"D",map(),
|
|
object(fresh-atom,"E",map(),
|
|
object(fresh-atom,"F",map())),
|
|
object(fresh-atom,"G",map())),
|
|
print "OK")
|
|
)
|
|
;
|
|
}
|
|
|
|
tests {
|
|
result-term: null-value;
|
|
standard-out: [
|
|
{"a"|->"A"},
|
|
{"a"|->"B"},
|
|
"OK"
|
|
];
|
|
}
|