From e5e7bbaaae9cde0981c77e488a29e730876964ba Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Tue, 16 Mar 2010 10:09:01 -0400 Subject: Undo an Especialize change that turned out to be unecessary --- tests/unpoly.ur | 28 ++++++++++++++++++++++++++++ tests/unpoly.urp | 2 ++ tests/unpoly.urs | 1 + 3 files changed, 31 insertions(+) create mode 100644 tests/unpoly.ur create mode 100644 tests/unpoly.urp create mode 100644 tests/unpoly.urs (limited to 'tests') diff --git a/tests/unpoly.ur b/tests/unpoly.ur new file mode 100644 index 00000000..706f3653 --- /dev/null +++ b/tests/unpoly.ur @@ -0,0 +1,28 @@ +val current = return (Some "1") +fun resolve (_ : string) = return (Some "2") + +fun checkDeps deps = + u <- current; + List.foldlM (fn s (good, errs) => + v' <- resolve s; + case v' of + None => + return (False, + {errs} + Unknown library path {[s]}.
+ ) + | Some v' => + b <- return True; + if b then + return (good, errs) + else + return (False, + {errs} + Access denied to {[s]}.
+ )) (True, ) deps + +fun main () = + p <- checkDeps ("a" :: "b" :: []); + return + {p.2} + diff --git a/tests/unpoly.urp b/tests/unpoly.urp new file mode 100644 index 00000000..106bd20d --- /dev/null +++ b/tests/unpoly.urp @@ -0,0 +1,2 @@ +$/list +unpoly diff --git a/tests/unpoly.urs b/tests/unpoly.urs new file mode 100644 index 00000000..6ac44e0b --- /dev/null +++ b/tests/unpoly.urs @@ -0,0 +1 @@ +val main : unit -> transaction page -- cgit v1.2.3