equal
deleted
inserted
replaced
80 "/ f inspect. |
80 "/ f inspect. |
81 |
81 |
82 self assert:(f ~~ #Error). |
82 self assert:(f ~~ #Error). |
83 self assert:(f notNil). |
83 self assert:(f notNil). |
84 |
84 |
85 f decompileTo:Transcript. |
85 "/ f decompileTo:Transcript. |
86 |
86 |
87 result := f valueWithReceiver:receiver arguments:arguments. |
87 result := f valueWithReceiver:receiver arguments:arguments. |
88 ^ result |
88 ^ result |
|
89 |
|
90 "Modified: / 09-10-2011 / 11:41:51 / cg" |
89 ! |
91 ! |
90 |
92 |
91 execute:code for:receiver arguments:arguments expect:expectedResult |
93 execute:code for:receiver arguments:arguments expect:expectedResult |
92 |result| |
94 |result| |
93 |
95 |
118 ]. |
120 ]. |
119 |
121 |
120 self assert:(errorEncountered not). |
122 self assert:(errorEncountered not). |
121 self assert:(f notNil). |
123 self assert:(f notNil). |
122 |
124 |
123 f decompileTo:Transcript. |
125 "/ f decompileTo:Transcript. |
124 |
126 |
125 self |
127 self |
126 should:[f valueWithReceiver:receiver arguments:arguments] |
128 should:[f valueWithReceiver:receiver arguments:arguments] |
127 raise:expectedError |
129 raise:expectedError |
|
130 |
|
131 "Modified: / 09-10-2011 / 11:41:57 / cg" |
128 ! |
132 ! |
129 |
133 |
130 setUp |
134 setUp |
131 JavaScriptCompiler isNil ifTrue:[ |
135 JavaScriptCompiler isNil ifTrue:[ |
132 Smalltalk loadPackage:'stx:libjavascript' |
136 Smalltalk loadPackage:'stx:libjavascript' |