From 5abc99b291b01ce9619e51cb21a397a5c0c89a72 Mon Sep 17 00:00:00 2001 From: krasimir Date: Tue, 7 Jul 2009 11:40:14 +0000 Subject: added testcases for evaluation with suspension --- testsuite/runtime/eval/eval.gfs | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'testsuite/runtime/eval/eval.gfs') diff --git a/testsuite/runtime/eval/eval.gfs b/testsuite/runtime/eval/eval.gfs index 1ce8cb1b5..dd1cede9c 100644 --- a/testsuite/runtime/eval/eval.gfs +++ b/testsuite/runtime/eval/eval.gfs @@ -27,3 +27,8 @@ pt -compute dec (succ (succ zero)) pt -compute dec (succ ?) pt -compute \x -> dec x pt -compute dec ? +pt -compute (\f -> f 0) (g3 ?) +pt -compute g (g2 ? 0) +pt -compute plus (succ zero) (succ zero) +pt -compute dec2 0 (succ zero) +pt -compute plus err (succ zero) \ No newline at end of file -- cgit v1.2.3