This ports TestAstFunc2 from our home-grown content storage system to the txtar package. Since a single file can be used to represent the entire folder hierarchy, this makes it much easier to see and edit tests.
22 lines
302 B
Plaintext
22 lines
302 B
Plaintext
-- main.mcl --
|
|
# this can return changing functions, and could be optimized, too
|
|
$funcgen = func() {
|
|
func($b) {
|
|
if $b {
|
|
"hello"
|
|
} else {
|
|
"world"
|
|
}
|
|
}
|
|
}
|
|
|
|
$fn = $funcgen()
|
|
$out1 = $fn(true)
|
|
$out2 = $fn(false)
|
|
|
|
test $out1 {}
|
|
test $out2 {}
|
|
-- OUTPUT --
|
|
Vertex: test[hello]
|
|
Vertex: test[world]
|