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

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

Revision: 615
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=615&view=rev
Author:   agraef
Date:     2008-08-26 00:05:35 +0000 (Tue, 26 Aug 2008)

Log Message:
-----------
Update test logs.

Modified Paths:
--------------
    pure/trunk/test/test015.log
    pure/trunk/test/test018.log
    pure/trunk/test/test020.log
    pure/trunk/test/test021.log

Modified: pure/trunk/test/test015.log
===================================================================
--- pure/trunk/test/test015.log	2008-08-26 00:01:19 UTC (rev 614)
+++ pure/trunk/test/test015.log	2008-08-26 00:05:35 UTC (rev 615)
@@ -196,36 +196,36 @@
   state 1: #0
 }) (11..20));
 {
-  rule #0: c = hdict$zipwith (=>) (catmap (\i -> [(i,double i,str i)]) (1..10)) (1..10)
+  rule #0: c = hdict (zipwith (=>) (catmap (\i -> [(i,double i,str i)]) (1..10)) (1..10))
   state 0: #0
 	<var> state 1
   state 1: #0
 }
-let c = hdict$zipwith (=>) (catmap (\i/*0:*/ -> [(i/*0:*/,double i/*0:*/,str i/*0:*/)] {
+let c = hdict (zipwith (=>) (catmap (\i/*0:*/ -> [(i/*0:*/,double i/*0:*/,str i/*0:*/)] {
   rule #0: i = [(i,double i,str i)]
   state 0: #0
 	<var> state 1
   state 1: #0
-}) (1..10)) (1..10);
+}) (1..10)) (1..10));
 {
-  rule #0: d = hdict$zipwith (=>) (catmap (\i -> [(i,double i,str i)]) (11..20)) (11..20)
+  rule #0: d = hdict (zipwith (=>) (catmap (\i -> [(i,double i,str i)]) (11..20)) (11..20))
   state 0: #0
 	<var> state 1
   state 1: #0
 }
-let d = hdict$zipwith (=>) (catmap (\i/*0:*/ -> [(i/*0:*/,double i/*0:*/,str i/*0:*/)] {
+let d = hdict (zipwith (=>) (catmap (\i/*0:*/ -> [(i/*0:*/,double i/*0:*/,str i/*0:*/)] {
   rule #0: i = [(i,double i,str i)]
   state 0: #0
 	<var> state 1
   state 1: #0
-}) (11..20)) (11..20);
+}) (11..20)) (11..20));
 {
-  rule #0: e = dict$zipwith (=>) (map str (1..10)) (map str (1..10))
+  rule #0: e = dict (zipwith (=>) (map str (1..10)) (map str (1..10)))
   state 0: #0
 	<var> state 1
   state 1: #0
 }
-let e = dict$zipwith (=>) (map str (1..10)) (map str (1..10));
+let e = dict (zipwith (=>) (map str (1..10)) (map str (1..10)));
 a;
 Dict (bin 4 4.0 (-1) (bin 2 2.0 0 (bin 1 1.0 0 nil nil) (bin 3 3.0 0 nil nil)) (bin 8 8.0 0 (bin 6 6.0 0 (bin 5 5.0 0 nil nil) (bin 7 7.0 0 nil nil)) (bin 9 9.0 (-1) nil (bin 10 10.0 0 nil nil))))
 b;

Modified: pure/trunk/test/test018.log
===================================================================
--- pure/trunk/test/test018.log	2008-08-26 00:01:19 UTC (rev 614)
+++ pure/trunk/test/test018.log	2008-08-26 00:05:35 UTC (rev 615)
@@ -70,15 +70,15 @@
 "80000000"
 sprintf "%x" (-4294967295L);
 "1"
-ord$sprintf "%c" 255;
+ord (sprintf "%c" 255);
 255
-ord$sprintf "%c" 255L;
+ord (sprintf "%c" 255L);
 255
 sscanf "ffffffff" "%x";
 -1
-uint$sscanf "ffffffff" "%x";
+uint (sscanf "ffffffff" "%x");
 4294967295L
 sscanf "4294967295" "%u";
 -1
-uint$sscanf "4294967295" "%u";
+uint (sscanf "4294967295" "%u");
 4294967295L

Modified: pure/trunk/test/test020.log
===================================================================
--- pure/trunk/test/test020.log	2008-08-26 00:01:19 UTC (rev 614)
+++ pure/trunk/test/test020.log	2008-08-26 00:05:35 UTC (rev 615)
@@ -37,8 +37,8 @@
   state 1: #0
 }) x;
 let double_format = "%#0.3g";
-test (f/*0:101*/,x/*0:1101*/,y/*0:111*/) = puts$format (f/*0:101*/,x/*0:1101*/,y/*0:111*/,check (f/*0:101*/,x/*0:1101*/,y/*0:111*/) (catch __error__ (f/*1:101*/ x/*1:1101*/ y/*1:111*/)));
-test (f/*0:101*/,x/*0:11*/) = puts$format (f/*0:101*/,x/*0:11*/,check (f/*0:101*/,x/*0:11*/) (catch __error__ (f/*1:101*/ x/*1:11*/)));
+test (f/*0:101*/,x/*0:1101*/,y/*0:111*/) = puts (format (f/*0:101*/,x/*0:1101*/,y/*0:111*/,check (f/*0:101*/,x/*0:1101*/,y/*0:111*/) (catch __error__ (f/*1:101*/ x/*1:1101*/ y/*1:111*/))));
+test (f/*0:101*/,x/*0:11*/) = puts (format (f/*0:101*/,x/*0:11*/,check (f/*0:101*/,x/*0:11*/) (catch __error__ (f/*1:101*/ x/*1:11*/))));
 check _/*0:01*/ z/*0:1*/ = z/*0:1*/ if numberp z/*0:1*/;
 check (f/*0:0101*/,x/*0:01101*/,y/*0:0111*/) (g@_/*0:100*/ u/*0:101*/ v/*0:11*/) = __failed__ if f/*0:0101*/===g/*0:100*/&&x/*0:01101*/===u/*0:101*/&&y/*0:0111*/===v/*0:11*/;
 check (f/*0:0101*/,x/*0:011*/) (g@_/*0:10*/ u/*0:11*/) = __failed__ if f/*0:0101*/===g/*0:10*/&&x/*0:011*/===u/*0:11*/;
@@ -211,8 +211,8 @@
   state 19: #0 #1
 }
 {
-  rule #0: test (f,x,y) = puts$format (f,x,y,check (f,x,y) (catch __error__ (f x y)))
-  rule #1: test (f,x) = puts$format (f,x,check (f,x) (catch __error__ (f x)))
+  rule #0: test (f,x,y) = puts (format (f,x,y,check (f,x,y) (catch __error__ (f x y))))
+  rule #1: test (f,x) = puts (format (f,x,check (f,x) (catch __error__ (f x))))
   state 0: #0 #1
 	<app> state 1
   state 1: #0 #1

Modified: pure/trunk/test/test021.log
===================================================================
--- pure/trunk/test/test021.log	2008-08-26 00:01:19 UTC (rev 614)
+++ pure/trunk/test/test021.log	2008-08-26 00:05:35 UTC (rev 615)
@@ -1,6 +1,6 @@
 let double_format = "%#0.3g";
-test (f/*0:101*/,x/*0:1101*/,y/*0:111*/) = puts$format (f/*0:101*/,x/*0:1101*/,y/*0:111*/,check (f/*0:101*/,x/*0:1101*/,y/*0:111*/) (catch __error__ (f/*1:101*/ x/*1:1101*/ y/*1:111*/)));
-test (f/*0:101*/,x/*0:11*/) = puts$format (f/*0:101*/,x/*0:11*/,check (f/*0:101*/,x/*0:11*/) (catch __error__ (f/*1:101*/ x/*1:11*/)));
+test (f/*0:101*/,x/*0:1101*/,y/*0:111*/) = puts (format (f/*0:101*/,x/*0:1101*/,y/*0:111*/,check (f/*0:101*/,x/*0:1101*/,y/*0:111*/) (catch __error__ (f/*1:101*/ x/*1:1101*/ y/*1:111*/))));
+test (f/*0:101*/,x/*0:11*/) = puts (format (f/*0:101*/,x/*0:11*/,check (f/*0:101*/,x/*0:11*/) (catch __error__ (f/*1:101*/ x/*1:11*/))));
 check _/*0:01*/ z/*0:1*/ = z/*0:1*/ if numberp z/*0:1*/;
 check (f/*0:0101*/,x/*0:01101*/,y/*0:0111*/) (g@_/*0:100*/ u/*0:101*/ v/*0:11*/) = __failed__ if f/*0:0101*/===g/*0:100*/&&x/*0:01101*/===u/*0:101*/&&y/*0:0111*/===v/*0:11*/;
 check (f/*0:0101*/,x/*0:011*/) (g@_/*0:10*/ u/*0:11*/) = __failed__ if f/*0:0101*/===g/*0:10*/&&x/*0:011*/===u/*0:11*/;
@@ -193,8 +193,8 @@
   state 19: #0 #1
 }
 {
-  rule #0: test (f,x,y) = puts$format (f,x,y,check (f,x,y) (catch __error__ (f x y)))
-  rule #1: test (f,x) = puts$format (f,x,check (f,x) (catch __error__ (f x)))
+  rule #0: test (f,x,y) = puts (format (f,x,y,check (f,x,y) (catch __error__ (f x y))))
+  rule #1: test (f,x) = puts (format (f,x,check (f,x) (catch __error__ (f x))))
   state 0: #0 #1
 	<app> state 1
   state 1: #0 #1


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