[pypy-svn] r47880 - pypy/dist/pypy/lang/smalltalk/test

[tverwaes at codespeak.net]

Author: tverwaes
Date: Thu Oct 25 01:57:36 2007
New Revision: 47880

Modified:
   pypy/dist/pypy/lang/smalltalk/test/test_miniimage.py
Log:
TOFIX: failing miniimage test on abs with negative smallints



Modified: pypy/dist/pypy/lang/smalltalk/test/test_miniimage.py
==============================================================================
--- pypy/dist/pypy/lang/smalltalk/test/test_miniimage.py	(original)
+++ pypy/dist/pypy/lang/smalltalk/test/test_miniimage.py	Thu Oct 25 01:57:36 2007
@@ -88,7 +88,7 @@
     assert str(w_float_class.getclass().getclass()) == "Metaclass class"
 
 
-def test_lookup_abs_in_integer():
+def test_lookup_abs_in_integer(int=10):
     image = create_squeakimage()
     amethod = None
 
@@ -99,7 +99,7 @@
     amethod = w_smallint_class.lookup("abs")
                                   # First literal of the abs method is
                                   # a real smalltalk int
-    w_frame = amethod.createFrame(sqm.W_SmallInteger(10), [])
+    w_frame = amethod.createFrame(sqm.W_SmallInteger(int), [])
     interp.activeContext = w_frame
 
     print amethod
@@ -111,3 +111,6 @@
         except sqi.ReturnFromTopLevel, e:
             return e.object
 
+def test_lookup_neg_abs_in_integer():
+    py.test.fail("TOFIX methodlookup 'negated' fails in mirror SmallInteger")
+    test_lookup_abs_in_integer(-3)