[pypy-svn] r44058 - pypy/dist/pypy/lang/prolog/interpreter/test

[cfbolz at codespeak.net]

Author: cfbolz
Date: Thu Jun  7 00:58:56 2007
New Revision: 44058

Modified:
   pypy/dist/pypy/lang/prolog/interpreter/test/test_builtin.py
Log:
slightly bizarre failing test. should pass, though


Modified: pypy/dist/pypy/lang/prolog/interpreter/test/test_builtin.py
==============================================================================
--- pypy/dist/pypy/lang/prolog/interpreter/test/test_builtin.py	(original)
+++ pypy/dist/pypy/lang/prolog/interpreter/test/test_builtin.py	Thu Jun  7 00:58:56 2007
@@ -195,6 +195,16 @@
     """)
     assert_true("f(20).", e)
 
+def test_call_cut():
+    py.test.skip("cuts don't work properly in the presence of calls right now")
+    e = get_engine("""
+        f(X) :- call(X).
+        f(!).
+    """)
+    heaps = collect_all(e, "f(!).")
+    assert len(heaps) == 1
+
+
 def test_term_construction():
     assert_true("g(a, b, c) =.. [G, A, B, C].")
     assert_true("g(a, b, c) =.. [g, a, b, c].")