From cc1b670cf89bbc85ec987316f7c1a73cac6c04e2 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Thu, 30 Apr 2009 11:48:56 -0400 Subject: Subforms type-checks; lists urlified and unurlified --- tests/list.ur | 5 +++++ tests/subforms.ur | 23 +++++++++++++++++++++++ tests/subforms.urp | 3 +++ tests/subforms.urs | 1 + 4 files changed, 32 insertions(+) create mode 100644 tests/subforms.ur create mode 100644 tests/subforms.urp create mode 100644 tests/subforms.urs (limited to 'tests') diff --git a/tests/list.ur b/tests/list.ur index 815c0075..480bdd3e 100644 --- a/tests/list.ur +++ b/tests/list.ur @@ -8,10 +8,15 @@ fun delist (ls : list string) : xbody = Nil => Nil | Cons (h, t) => {[h]} :: {delist t} +fun callback ls = return + {delist ls} + + fun main () = return {[isNil (Nil : list bool)]}, {[isNil (Cons (1, Nil))]}, {[isNil (Cons ("A", Cons ("B", Nil)))]}

{delist (Cons ("X", Cons ("Y", Cons ("Z", Nil))))}

+ Go! diff --git a/tests/subforms.ur b/tests/subforms.ur new file mode 100644 index 00000000..3db55a43 --- /dev/null +++ b/tests/subforms.ur @@ -0,0 +1,23 @@ +fun handler' ls = + case ls of + Nil => + | Cons (r, ls) =>
  • {[r.A]}, {[r.B]}, {[r.Sub]}
    • {handler' ls}     + +fun handler r = return + {[r.A]}, {handler' r.Sub}, {[r.C]} + + +fun main () = return +
    +
    + + +
    +
    +
    +     + +
    + + +
     diff --git a/tests/subforms.urp b/tests/subforms.urp new file mode 100644 index 00000000..f0d5c239 --- /dev/null +++ b/tests/subforms.urp @@ -0,0 +1,3 @@ +debug + +subforms diff --git a/tests/subforms.urs b/tests/subforms.urs new file mode 100644 index 00000000..6ac44e0b --- /dev/null +++ b/tests/subforms.urs @@ -0,0 +1 @@ +val main : unit -> transaction page -- cgit v1.2.3