[pure-lang-svn] SF.net SVN: pure-lang:[467] pure/trunk/test

[<ag...@us...>]

Revision: 467
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=467&view=rev
Author:   agraef
Date:     2008-08-11 20:09:26 +0000 (Mon, 11 Aug 2008)

Log Message:
-----------
Fix timex/catch/throw regression test.

Modified Paths:
--------------
    pure/trunk/test/test017.log
    pure/trunk/test/test017.pure

Modified: pure/trunk/test/test017.log
===================================================================
--- pure/trunk/test/test017.log	2008-08-11 20:06:18 UTC (rev 466)
+++ pure/trunk/test/test017.log	2008-08-11 20:09:26 UTC (rev 467)
@@ -34,12 +34,12 @@
   state 0: #0
 	<var> state 1
   state 1: #0
-});
-0.14,0
+})!1;
+0
 timex (\_/*0:*/ -> bar 99 {
   rule #0: _ = bar 99
   state 0: #0
 	<var> state 1
   state 1: #0
-});
-0.0,99
+})!1;
+99

Modified: pure/trunk/test/test017.pure
===================================================================
--- pure/trunk/test/test017.pure	2008-08-11 20:06:18 UTC (rev 466)
+++ pure/trunk/test/test017.pure	2008-08-11 20:09:26 UTC (rev 467)
@@ -6,5 +6,5 @@
 foo n = if n<=0 then n else foo (n-1); // burn some cycles
 bar x = catch id (throw x);
 
-timex (\_->foo 100000);
-timex (\_->bar 99);
+timex (\_->foo 100000)!1;
+timex (\_->bar 99)!1;


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.