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

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

Revision: 312
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=312&view=rev
Author:   agraef
Date:     2008-06-25 16:02:21 -0700 (Wed, 25 Jun 2008)

Log Message:
-----------
Add regression test for constant definitions.

Added Paths:
-----------
    pure/trunk/test/test013.log
    pure/trunk/test/test013.pure

Added: pure/trunk/test/test013.log
===================================================================
--- pure/trunk/test/test013.log	                        (rev 0)
+++ pure/trunk/test/test013.log	2008-06-25 23:02:21 UTC (rev 312)
@@ -0,0 +1,10 @@
+def pi = 4*atan 1.0;
+foo x/*0:1*/ = 3.14159265358979*x/*0:1*/;
+{
+  rule #0: foo x = 3.14159265358979*x
+  state 0: #0
+	<var> state 1
+  state 1: #0
+}
+foo 2;
+6.28318530717959

Added: pure/trunk/test/test013.pure
===================================================================
--- pure/trunk/test/test013.pure	                        (rev 0)
+++ pure/trunk/test/test013.pure	2008-06-25 23:02:21 UTC (rev 312)
@@ -0,0 +1,9 @@
+
+// constant definition example
+
+extern double atan(double);
+def pi = 4*atan 1.0;
+
+foo x = pi*x;
+
+foo 2;


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