Refactored remembering of TestCaseOutcomes. TestCaseOutcomes are no longer remembered in class instance var of the TestCase but rather in one global dictionary on TestCaseOutcome class. The top-level weak dictionary uses test method as a key and second-level dictionary as value. This ensures that when a test method is changed, sooner or later (now obsolete) remebered outcomes are reclamed by the GC. The second-level dictionary uses test case class as a key and outcome as value. This is used to keep outcomes for inherited test cases. This dictionary is also weak, ensuring that when the class is unloaded or changed, outcomes are reclamed. To reduce a number of weak objects a special TestCaseOutcomeWeakIdentityDictionary is used. It optimizes the most common case when there are no inherited testcases.

     1

"{ Package: 'stx:goodies/sunit' }"

     2

     3

Object subclass:#SUnitNameResolver

     4

	instanceVariableNames:''

     5

	classVariableNames:''

     6

	poolDictionaries:''

     7

	category:'SUnit-Preload'

     8

!

     9

    10

    11

!SUnitNameResolver class methodsFor:'Camp Smalltalk'!

    12

    13

classNamed: aSymbol

    14

    ^Smalltalk at: aSymbol ifAbsent: [nil]

    15

!

    16

    17

defaultLogDevice

    18

    ^Transcript

    19

!

    20

    21

errorObject

    22

    23

    ^Exception

    24

"/  ^Error

    25

    26

    "Modified: / 11-09-2010 / 15:10:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    27

!

    28

    29

mnuExceptionObject

    30

	^MessageNotUnderstood

    31

!

    32

    33

notificationObject

    34

	^Notification

    35

!

    36

    37

weakIdentityDictionaryClass

    38

    "Return an EphemeronDictionary (if available) or Weak(Identity)Dictionary class"

    39

    40

    #(

    41

     #EphemeronDictionary       "VW"

    42

     #WeakIdentityDictionary    "St/X"

    43

     #WeakDictionary            "VW"

    44

     )

    45

            do:[:name | 

    46

                | class |

    47

    48

                class := self classNamed:name.

    49

                class notNil ifTrue:[

    50

                    ^ class.

    51

                ].

    52

            ].

    53

    self error:'No weak-like dictionary class found!!'.

    54

    55

    "Created: / 14-07-2014 / 09:46:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    56

    "Modified (format): / 14-07-2014 / 21:01:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    57

! !

    58

    59

!SUnitNameResolver class methodsFor:'documentation'!

    60

    61

version

    62

    ^ '$Header: /cvs/stx/stx/goodies/sunit/SUnitNameResolver.st,v 1.7 2011-06-29 19:15:49 cg Exp $'

    63

!

    64

    65

version_SVN

    66

    ^ '§Id: SUnitNameResolver.st 204 2010-09-11 15:21:51Z vranyj1 §'

    67

! !

    68