JavaRuntimeConstantPoolTests.st
branchdevelopment
changeset 1829 991172ecd928
parent 1818 2e5ed72e7dfd
child 1835 764f75cfd4d0
--- a/JavaRuntimeConstantPoolTests.st	Sat Nov 17 20:41:00 2012 +0000
+++ b/JavaRuntimeConstantPoolTests.st	Sat Nov 17 20:43:46 2012 +0000
@@ -91,6 +91,17 @@
     "Created: / 12-04-2012 / 10:16:41 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
 !
 
+_testInvalidateAll
+    | cp |
+    cp := self getPrettyBigConstantPool.
+    cp do: [:each | each isJavaRef ifTrue: [ each resolve ] ].
+    cp do: [:each | each isJavaRef ifTrue: [ self assertTrue: (each isResolved) ] ].
+    cp invalidateAll.
+    cp do: [:each | each isJavaRef ifTrue: [ self assertTrue: (each isResolved not) ] ].
+
+    "Created: / 17-11-2012 / 21:44:20 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
+!
+
 _testInvalidateForClass
 "will be enabled when caching and invalidation is implemented"
     | cp |