MethodOverrideTests.st
author Jan Vrany <jan.vrany@labware.com>
Wed, 23 Jun 2021 12:50:05 +0100
branchjv
changeset 25430 acd92449dc30
parent 17883 209190914636
permissions -rw-r--r--
`Process`: revert `#interruptWith:` Commit 3b02b0f1f647: Cherry-picked `Semaphore`, `EventSemaphore, `Process` and `ProcessorScheduler` changes `Process >> #interruptWith:` but this - for not yet known reason - breaks stx:libjava tests. This commit reverts the code to version before that commit, fixing tests.

'From Smalltalk/X, Version:6.1.1 on 02-07-2010 at 08:40:49 AM'                  !

"{ Package: 'stx:libbasic' }"

TestCase subclass:#MethodOverrideTests
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'Kernel-Tests'
!


!MethodOverrideTests 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>"
! !

!MethodOverrideTests 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>"
! !

!MethodOverrideTests class methodsFor:'documentation'!

version
    ^'$Id: MethodOverrideTests.st 10717 2011-10-11 15:53:59Z vranyj1 $'
! !