summaryrefslogtreecommitdiff
path: root/tests/rpcList2.ur
diff options
context:
space:
mode:
Diffstat (limited to 'tests/rpcList2.ur')
-rw-r--r--tests/rpcList2.ur10
1 files changed, 8 insertions, 2 deletions
diff --git a/tests/rpcList2.ur b/tests/rpcList2.ur
index c0739b84..e3ebb456 100644
--- a/tests/rpcList2.ur
+++ b/tests/rpcList2.ur
@@ -1,7 +1,13 @@
-fun rpcFunc l : transaction {} = return ()
+fun showList l = case l of
+ [] => "[]"
+ | h :: t => strcat (strcat (show h) " :: ") (showList t)
+
+fun rpcFunc l : transaction string =
+ case l of h :: _ => return (showList h) | [] => return "[]"
fun main () : transaction page = return <xml><body>
<button onclick={
- rpc (rpcFunc (("" :: []) :: []))
+ s <- rpc (rpcFunc (("foo" :: []) :: []));
+ alert s
}/>
</body></xml>