refactor: Test a closure conversion bug

vain0x · Oct 4, 2019 · c9dfb98 · c9dfb98
1 parent f022dbb
commit c9dfb98
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/boot/tests/features/let_fun_closure/let_fun_closure.fs b/boot/tests/features/let_fun_closure/let_fun_closure.fs
@@ -18,8 +18,21 @@ let recursiveCase () =
 
   assert (go 0)
 
+let mutuallyRecursiveCase () =
+  assert (f1 () = 1)
+
+let f1 () = f2 ()
+let f2 () = f3 ()
+let f3 () = f4 ()
+let f4 () = f5 ()
+let f5 () = f6 ()
+let f6 () = f7 ()
+let f7 () = a
+let a = 1
+
 let main _ =
   basicCase ()
   transitiveCase ()
   recursiveCase ()
+  mutuallyRecursiveCase ()
   0