[pypy-svn] r26375 - pypy/dist/pypy/translator/cl/test

[sanxiyn at codespeak.net]

Author: sanxiyn
Date: Wed Apr 26 17:26:30 2006
New Revision: 26375

Modified:
   pypy/dist/pypy/translator/cl/test/test_cltrans_multi.py
Log:
Add a test (function pointer) failing with HalfConcreteWrapper


Modified: pypy/dist/pypy/translator/cl/test/test_cltrans_multi.py
==============================================================================
--- pypy/dist/pypy/translator/cl/test/test_cltrans_multi.py	(original)
+++ pypy/dist/pypy/translator/cl/test/test_cltrans_multi.py	Wed Apr 26 17:26:30 2006
@@ -1,3 +1,4 @@
+import py
 from pypy.translator.cl.buildcl import make_cl_func
 
 def test_call():
@@ -8,3 +9,23 @@
         return n + 1
     cl_add_one = make_cl_func(add_one, [int])
     assert cl_add_one(1) == 2
+
+def test_indirect_call():
+    py.test.skip("fails with HalfConcreteWrapper")
+    def id(n):
+        return n
+    def square(n):
+        return n * n
+    def map_sum(func, n):
+        sum = 0
+        for i in range(1, n+1):
+            sum += func(i)
+        return sum
+    def sum(n):
+        return map_sum(id, n)
+    def square_sum(n):
+        return map_sum(square, n)
+    cl_sum = make_cl_func(sum, [int])
+    assert cl_sum(5) == 15
+    cl_square_sum = make_cl_func(square_sum, [int])
+    assert cl_square_sum(5) == 55