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.
36 lines
490 B
Plaintext
36 lines
490 B
Plaintext
-- main.mcl --
|
|
$funcgen = func() {
|
|
func($b) {
|
|
"hello" + " " + "world"
|
|
}
|
|
}
|
|
|
|
$some_bool = false
|
|
$fn = if $some_bool {
|
|
$funcgen()
|
|
} else {
|
|
func($bb) {
|
|
if $bb == "james" {
|
|
"hello purpleidea"
|
|
} else {
|
|
if $bb == "" {
|
|
"who is there?"
|
|
} else {
|
|
"hello " + $bb
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
$out1 = $fn("user")
|
|
$out2 = $fn("james")
|
|
$out3 = $fn("")
|
|
|
|
test $out1 {}
|
|
test $out2 {}
|
|
test $out3 {}
|
|
-- OUTPUT --
|
|
Vertex: test[hello purpleidea]
|
|
Vertex: test[hello user]
|
|
Vertex: test[who is there?]
|