29 lines
481 B
Plaintext
29 lines
481 B
Plaintext
-- main.mcl --
|
|
import "fmt"
|
|
|
|
# we should only see one copy of $fn
|
|
$fn = func() {
|
|
"hello world"
|
|
}
|
|
|
|
test "greeting1" {
|
|
anotherstr => $fn(),
|
|
}
|
|
test "greeting2" {
|
|
anotherstr => $fn(),
|
|
}
|
|
test "greeting3" {
|
|
anotherstr => $fn(),
|
|
}
|
|
-- OUTPUT --
|
|
Edge: FuncValue -> call # fn
|
|
Edge: FuncValue -> call # fn
|
|
Edge: FuncValue -> call # fn
|
|
Vertex: FuncValue
|
|
Vertex: call
|
|
Vertex: call
|
|
Vertex: call
|
|
Vertex: const: str("greeting1")
|
|
Vertex: const: str("greeting2")
|
|
Vertex: const: str("greeting3")
|