65 ! ! |
65 ! ! |
66 |
66 |
67 !PPCSetUpBeforeTearDownAfterResource class methodsFor:'subclass creation'! |
67 !PPCSetUpBeforeTearDownAfterResource class methodsFor:'subclass creation'! |
68 |
68 |
69 for: aClass |
69 for: aClass |
70 ^ CachedResources at: aClass ifAbsentPut:[ |
70 ^ CachedResources at: aClass ifAbsentPut:[ |
71 | resourceMeta resourceClass | |
71 | resourceMeta resourceClass | |
72 |
72 |
73 resourceMeta := Metaclass new. |
73 ((Smalltalk respondsTo: #isSmalltalkX) and:[Smalltalk isSmalltalkX]) ifTrue:[ |
74 resourceMeta setSuperclass: self class. |
74 resourceMeta := Metaclass new. |
75 resourceMeta instSize: self class instSize. |
75 resourceMeta setSuperclass: self class. |
76 resourceClass := resourceMeta new. |
76 resourceMeta instSize: self class instSize. |
77 resourceClass setSuperclass: self. |
77 resourceClass := resourceMeta new. |
78 resourceClass instSize: self instSize. |
78 resourceClass setSuperclass: self. |
79 resourceClass testCaseClass: aClass. |
79 resourceClass instSize: self instSize. |
80 resourceClass |
80 ] ifFalse:[ |
81 ] |
81 " Assumes Pharo 5.0" |
|
82 resourceMeta := Metaclass new. |
|
83 resourceMeta |
|
84 superclass: self class |
|
85 withLayoutType: FixedLayout |
|
86 slots: #(). |
|
87 resourceClass := resourceMeta new. |
|
88 resourceClass superclass: self |
|
89 withLayoutType: FixedLayout |
|
90 slots: #(). |
|
91 ]. |
|
92 resourceClass testCaseClass: aClass. |
|
93 resourceClass |
|
94 ] |
82 |
95 |
83 "Created: / 29-07-2015 / 16:17:34 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
96 "Created: / 29-07-2015 / 16:17:34 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
84 "Modified (format): / 30-07-2015 / 07:48:30 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
97 "Modified (format): / 30-07-2015 / 07:48:30 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
98 |
85 ! ! |
99 ! ! |
|
100 |
86 |
101 |
87 !PPCSetUpBeforeTearDownAfterResource methodsFor:'setup & teardown'! |
102 !PPCSetUpBeforeTearDownAfterResource methodsFor:'setup & teardown'! |
88 |
103 |
89 setUp |
104 setUp |
90 | testCaseClass | |
105 | testCaseClass | |