MethodOverridesTest.st
branchjv
changeset 17774 479c4d02ad58
parent 17773 762eb3e60c17
child 17775 90a5bae0a710
--- 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$'
-! !