some more tests

ravi-tests/pisum.lua

@@ -0,0 +1,14 @@
+function pisum()
+    local sum 
+    for j = 1,500 do
+        sum = 0.0
+        for k = 1,10000 do
+            sum = sum + 1.0/(k*k)
+        end
+    end
+    return sum
+end
+t1 = os.clock()
+assert(math.abs(pisum()-1.644834071848065) < 1e-12)
+t2 = os.clock()
+print("time taken ", t2-t1)

ravi-tests/pisum.ravi

@@ -0,0 +1,16 @@
+function pisum()
+    local sum : double
+    for j = 1,500 do
+        sum = 0.0
+        for k = 1,10000 do
+            sum = sum + 1.0/(k*k)
+        end
+    end
+    return sum
+end
+ravi.dumplua(pisum)
+assert(ravi.compile(pisum))
+t1 = os.clock()
+assert(math.abs(pisum()-1.644834071848065) < 1e-12)
+t2 = os.clock()
+print("time taken ", t2-t1)

ravi-tests/ravi_tests1.ravi

@@ -165,4 +165,23 @@ function tryme()
 end
 -- assert(ravi.compile(tryme)) 
 assert(tryme() == 55.0)
+print("test 12 OK")
+
+-- test 13
+function pisum()
+    local sum : double
+    for j = 1,500 do
+        sum = 0.0
+        for k = 1,10000 do
+            sum = sum + 1.0/(k*k)
+        end
+    end
+    return sum
+end
+assert(ravi.compile(pisum))
+t1 = os.clock()
+assert(math.abs(pisum()-1.644834071848065) < 1e-12)
+t2 = os.clock()
+print("time taken ", t2-t1)
+print("test 13 OK")