15 lines
398 B
Plaintext
15 lines
398 B
Plaintext
general {
|
|
funcon-term: sequential (
|
|
check-true(is-equal(tuple(), tuple first-n(0,1,2,3,4,5)))
|
|
, check-true(is-equal(tuple(1), tuple first-n(1,1,2,3,4,5)))
|
|
, check-true(is-equal(tuple(1,2), tuple first-n(2,1,2,3,4,5)))
|
|
, check-true(is-equal(tuple(1,2,3), tuple first-n(3,1,2,3,4,5)))
|
|
, print "OK"
|
|
);
|
|
}
|
|
|
|
tests {
|
|
result-term : null-value;
|
|
standard-out : ["OK"];
|
|
}
|