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

oscar at codespeak.net oscar at codespeak.net
Fri Oct 26 11:42:45 CEST 2007


Author: oscar
Date: Fri Oct 26 11:42:45 2007
New Revision: 48029

Modified:
   pypy/dist/pypy/lang/smalltalk/test/test_primitives.py
Log:
(cfbolz, oscar) template for test_become

Modified: pypy/dist/pypy/lang/smalltalk/test/test_primitives.py
==============================================================================
--- pypy/dist/pypy/lang/smalltalk/test/test_primitives.py	(original)
+++ pypy/dist/pypy/lang/smalltalk/test/test_primitives.py	Fri Oct 26 11:42:45 2007
@@ -338,3 +338,25 @@
     # Should not fail :-)
     prim(primitives.FULL_GC, [42]) # Dummy arg
 
+def test_become():
+    py.test.skip("implement me!")
+    """
+    testBecome
+    	| p1 p2 a |
+    	p1 := 1 at 2.
+    	p2 := #(3 4 5).
+    	a := p1 -> p2.
+    	self assert: 1 at 2 = a key.
+    	self assert: #(3 4 5) = a value.
+    	self assert: p1 -> p2 = a.
+    	self assert: p1 == a key.
+    	self assert: p2 == a value.
+    	p1 become: p2.
+    	self assert: 1 at 2 = a value.
+    	self assert: #(3 4 5) = a key.
+    	self assert: p1 -> p2 = a.
+    	self assert: p1 == a key.
+    	self assert: p2 == a value.
+	
+    	self should: [1 become: 2] raise: Error.
+    """



More information about the Pypy-commit mailing list