From cc976780af60258fff922e669cad07453701c20b Mon Sep 17 00:00:00 2001 From: mzp Date: Thu, 30 Jul 2009 08:42:16 +0900 Subject: [PATCH] add testcase for binding --- scm/test/filter/bindingTest.ml | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/scm/test/filter/bindingTest.ml b/scm/test/filter/bindingTest.ml index 587facc..fc7977b 100644 --- a/scm/test/filter/bindingTest.ml +++ b/scm/test/filter/bindingTest.ml @@ -50,6 +50,9 @@ let ng_s exn s = let ng_e exn xs = ng_s exn [`Expr xs] +let unbound_f = + Unbound_var (qname ["std"] "f") + let unbound_x = Unbound_var (qname [] "x") @@ -66,6 +69,10 @@ let _ = (fun () -> ok_e @@ invoke (var ["std"] "obj") "f" []); + "unbound function f" >:: + (fun () -> + ng_e unbound_f @@ + call [var ["std"] "f"]); ]; "var" >::: [ "unbound" >:: @@ -84,7 +91,7 @@ let _ = (fun () -> ok_e @@ let_ ["x", int 42] @@ var [] "x"; ok_e @@ let_ ["x", int 42] @@ call [var [] "x"]); - "cloud nest" >:: + "nest" >:: (fun () -> ok_e @@ let_ ["x", int 42] @@ -- 2.11.0