lang: Add more tests for class and include

lang/interpret_test/TestAstFunc2/class-capture1.output

@@ -0,0 +1 @@
+Vertex: test[t1]

lang/interpret_test/TestAstFunc2/class-capture1/main.mcl

@@ -0,0 +1,5 @@
+$x1 = "t1"
+class foo {
+	test $x1 {}
+}
+include foo

lang/interpret_test/TestAstFunc2/class-capture2.output

@@ -0,0 +1 @@
+Vertex: test[t1]

lang/interpret_test/TestAstFunc2/class-capture2/main.mcl

@@ -0,0 +1,5 @@
+include foo
+class foo {
+	test $x1 {}
+}
+$x1 = "t1"

lang/interpret_test/TestAstFunc2/class-capture3.output

@@ -0,0 +1 @@
+Vertex: test[t1]

lang/interpret_test/TestAstFunc2/class-capture3/main.mcl

@@ -0,0 +1,5 @@
+$x1 = "bad1"
+class foo($x1) {
+	test $x1 {}
+}
+include foo("t1")

lang/interpret_test/TestAstFunc2/class-capture4.output

@@ -0,0 +1,2 @@
+Vertex: test[t1]
+Vertex: test[t2]

lang/interpret_test/TestAstFunc2/class-capture4/main.mcl

@@ -0,0 +1,7 @@
+$x1 = "t1"
+class foo {
+	test $x1 {}
+	test $x2 {}
+}
+include foo
+$x2 = "t2"

lang/interpret_test/TestAstFunc2/class-capture5.output

@@ -0,0 +1,2 @@
+Vertex: test[t1: t1]
+Vertex: test[t2: t2]

lang/interpret_test/TestAstFunc2/class-capture5/main.mcl

@@ -0,0 +1,7 @@
+$x1 = "bad1"
+class foo($x1, $x2) {
+	test "t1: " + $x2 {} # swapped
+	test "t2: " + $x1 {}
+}
+include foo($x2, "t1")
+$x2 = "t2"

lang/interpret_test/TestAstFunc2/class-capture6.output

@@ -0,0 +1,3 @@
+Vertex: test[t0: t0]
+Vertex: test[t1: t1]
+Vertex: test[t2: t2]

lang/interpret_test/TestAstFunc2/class-capture6/main.mcl

@@ -0,0 +1,12 @@
+$x1 = "bad1"
+class foo($x1, $x2) {
+	include bar
+	test "t1: " + $x1 {}
+	test "t2: " + $x2 {}
+	class bar {
+		test "t0: " + $x0 {}
+	}
+}
+include foo("t1", $x2)
+$x2 = "t2"
+$x0 = "t0"

lang/interpret_test/TestAstFunc2/class-capture7.output

@@ -0,0 +1 @@
+# err: err2: class `bar` does not exist in this scope

lang/interpret_test/TestAstFunc2/class-capture7/main.mcl

@@ -0,0 +1,9 @@
+class foo {
+	test "t1" {}
+	class bar { # unused definition
+		test "t0" {}
+	}
+}
+include foo
+# This sort of thing is not currently supported, and not sure if it ever will.
+include bar # nope!

lang/interpret_test/TestAstFunc2/class-capture8.output

@@ -0,0 +1 @@
+Vertex: test[t1]

lang/interpret_test/TestAstFunc2/class-capture8/defs.mcl

@@ -0,0 +1,4 @@
+class foo {
+	test $x1 {} # capture the var
+}
+$x1 = "t1"

lang/interpret_test/TestAstFunc2/class-capture8/main.mcl

@@ -0,0 +1,4 @@
+$x1 = "bad1"
+include defs.foo
+
+import "defs.mcl" # out of order for fun

lang/interpret_test/TestAstFunc2/class-recursion1.output

@@ -0,0 +1 @@
+# err: err2: recursive reference while setting scope: not a dag

lang/interpret_test/TestAstFunc2/class-recursion1/main.mcl

@@ -0,0 +1,6 @@
+class c1 {
+	include c2
+}
+class c2 {
+	include c1
+}

lang/interpret_test/TestAstFunc2/class-recursion2.output

@@ -0,0 +1 @@
+# err: err2: recursive reference while setting scope: not a dag

lang/interpret_test/TestAstFunc2/class-recursion2/main.mcl

@@ -0,0 +1,9 @@
+class c1($cond) {
+	test "nope" {}
+	if $cond {
+		include c1(false)
+	} else {
+		test "done" {}
+	}
+}
+include c1(true)

lang/interpret_test/TestAstFunc2/class-shadowing1.output

@@ -0,0 +1 @@
+Vertex: test[d]

lang/interpret_test/TestAstFunc2/class-shadowing1/main.mcl

@@ -0,0 +1,10 @@
+$msg = "a"
+class shadowme($msg) {
+	$msg = "c"
+	if true {
+		$msg = "d" # this is used!
+		test $msg {}
+	}
+}
+
+include shadowme("b")

lang/interpret_test/TestAstFunc2/class-shadowing2.output

@@ -0,0 +1 @@
+Vertex: test[c]

lang/interpret_test/TestAstFunc2/class-shadowing2/main.mcl

@@ -0,0 +1,10 @@
+$msg = "a"
+class shadowme($msg) {
+	$msg = "c"
+	if true {
+		$msg = "d"
+	}
+	test $msg {}
+}
+
+include shadowme("b")

lang/interpret_test/TestAstFunc2/class-shadowing3.output

@@ -0,0 +1,2 @@
+Vertex: test[a]
+Vertex: test[hello]

lang/interpret_test/TestAstFunc2/class-shadowing3/main.mcl

@@ -0,0 +1,17 @@
+$foo = "a"
+
+class c1($cond) {
+	$foo = "b" # this var is NOT exported into the parent scope on include
+	if $cond {
+		$foo = "c"
+	}
+	test "hello" {}
+}
+include c1(true)
+
+# If the $foo did get exported from the `c1` scope, then the binding could
+# change over time as `$cond` alternated between true and false. This would be
+# error prone, and also require a higher-order FRP, which would add complexity
+# but little value.
+
+test $foo {}