--- a/MethodOverridesTest.st Thu Jul 01 20:50:00 2010 +0100
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,59 +0,0 @@
-"{ Package: 'stx:libbasic' }"
-
-TestCase subclass:#MethodOverridesTest
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'Kernel-Tests'
-!
-
-
-!MethodOverridesTest methodsFor:'initialization & release'!
-
-tearDown
-
- #(methodToBeOverriden_1) do:
- [:sel|
- (self respondsTo: sel) ifTrue:
- [self class removeSelector: sel]].
-
- "Created: / 17-06-2009 / 19:36:10 / Jan Vrany <vranyj1@fel.cvut.cz>"
-! !
-
-!MethodOverridesTest methodsFor:'tests'!
-
-test_01
-
- | oldMethod newMethod |
- '"{ Package: ''stx:libbasic'' }"
- !!
- !!MethodOverridesTest methodsFor:''mock methods''!!
-
- methodToBeOverriden_1
- ^0
- !! !!' readStream fileIn.
- oldMethod := self class compiledMethodAt:#methodToBeOverriden_1.
- self assert: self methodToBeOverriden_1 = 0.
-
-
- '"{ Package: ''stx:goodies/sunit'' }"
- !!
- !!MethodOverridesTest methodsFor:''mock methods''!!
-
- methodToBeOverriden_1
- ^1
- !! !!' readStream fileIn.
-
- self assert: self methodToBeOverriden_1 = 1.
- newMethod := self class compiledMethodAt:#methodToBeOverriden_1.
-
- self assert: newMethod overridenMethod == oldMethod.
-
- "Created: / 17-06-2009 / 19:27:23 / Jan Vrany <vranyj1@fel.cvut.cz>"
-! !
-
-!MethodOverridesTest class methodsFor:'documentation'!
-
-version
- ^'$Id$'
-! !