resin 0.2.1 → 0.2.2
Sign up to get free protection for your applications and to get access to all the features.
- data/README.markdown +2 -0
- data/amber/bin/nodecompile.js +3 -3
- data/amber/css/amber.css +47 -23
- data/amber/images/off.amber.png +0 -0
- data/amber/images/offHover.amber.png +0 -0
- data/amber/images/sprite.amber.png +0 -0
- data/amber/images/tinylogo.amber.png +0 -0
- data/amber/js/Benchfib.deploy.js +34 -34
- data/amber/js/Benchfib.js +49 -49
- data/amber/js/Canvas.deploy.js +937 -937
- data/amber/js/Canvas.js +1622 -1622
- data/amber/js/Compiler-Tests.deploy.js +97 -0
- data/amber/js/Compiler-Tests.js +137 -0
- data/amber/js/Compiler.deploy.js +1030 -924
- data/amber/js/Compiler.js +1613 -1467
- data/amber/js/Documentation.deploy.js +417 -417
- data/amber/js/Documentation.js +728 -728
- data/amber/js/Examples.deploy.js +24 -13
- data/amber/js/Examples.js +36 -19
- data/amber/js/IDE.deploy.js +1583 -1527
- data/amber/js/IDE.js +2586 -2510
- data/amber/js/Kernel-Announcements.deploy.js +19 -19
- data/amber/js/Kernel-Announcements.js +28 -28
- data/amber/js/Kernel-Classes.deploy.js +332 -229
- data/amber/js/Kernel-Classes.js +532 -384
- data/amber/js/Kernel-Collections.deploy.js +1516 -1712
- data/amber/js/Kernel-Collections.js +2436 -2712
- data/amber/js/Kernel-Exceptions.deploy.js +85 -62
- data/amber/js/Kernel-Exceptions.js +131 -98
- data/amber/js/Kernel-Methods.deploy.js +326 -378
- data/amber/js/Kernel-Methods.js +473 -525
- data/amber/js/Kernel-Objects.deploy.js +1777 -2428
- data/amber/js/Kernel-Objects.js +2599 -3426
- data/amber/js/Kernel-Tests.deploy.js +871 -772
- data/amber/js/Kernel-Tests.js +1207 -1083
- data/amber/js/Kernel-Transcript.deploy.js +57 -57
- data/amber/js/Kernel-Transcript.js +94 -94
- data/amber/js/SUnit.deploy.js +116 -116
- data/amber/js/SUnit.js +211 -211
- data/amber/js/amber.js +10 -11
- data/amber/js/boot.js +132 -156
- data/amber/js/init.js +2 -2
- data/amber/js/parser.js +2095 -3014
- data/amber/js/parser.pegjs +1 -1
- data/amber/st/Benchfib.st +22 -22
- data/amber/st/Canvas.st +471 -471
- data/amber/st/Compiler-Tests.st +471 -0
- data/amber/st/Compiler.st +858 -794
- data/amber/st/Examples.st +22 -5
- data/amber/st/IDE.st +1326 -1291
- data/amber/st/Kernel-Announcements.st +2 -2
- data/amber/st/Kernel-Classes.st +148 -90
- data/amber/st/Kernel-Collections.st +950 -1061
- data/amber/st/Kernel-Exceptions.st +33 -25
- data/amber/st/Kernel-Methods.st +151 -151
- data/amber/st/Kernel-Objects.st +891 -1036
- data/amber/st/Kernel-Tests.st +622 -544
- data/amber/st/Kernel-Transcript.st +38 -38
- data/amber/st/SUnit.st +53 -53
- metadata +27 -20
data/amber/js/SUnit.deploy.js
CHANGED
@@ -1,64 +1,64 @@
|
|
1
1
|
smalltalk.addPackage('SUnit', {});
|
2
2
|
smalltalk.addClass('TestCase', smalltalk.Object, ['testSelector'], 'SUnit');
|
3
3
|
smalltalk.addMethod(
|
4
|
-
|
4
|
+
"_assert_",
|
5
5
|
smalltalk.method({
|
6
|
-
selector:
|
7
|
-
fn: function (
|
6
|
+
selector: "assert:",
|
7
|
+
fn: function (aBoolean){
|
8
8
|
var self=this;
|
9
|
-
(self[
|
9
|
+
smalltalk.send(self, "_assert_description_", [aBoolean, "Assertion failed"]);
|
10
10
|
return self;}
|
11
11
|
}),
|
12
12
|
smalltalk.TestCase);
|
13
13
|
|
14
14
|
smalltalk.addMethod(
|
15
|
-
|
15
|
+
"_assert_description_",
|
16
16
|
smalltalk.method({
|
17
|
-
selector:
|
18
|
-
fn: function (){
|
17
|
+
selector: "assert:description:",
|
18
|
+
fn: function (aBoolean, aString){
|
19
19
|
var self=this;
|
20
|
-
return self[
|
20
|
+
((($receiver = aBoolean).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return smalltalk.send(self, "_signalFailure_", [aString]);})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return smalltalk.send(self, "_signalFailure_", [aString]);})]));
|
21
21
|
return self;}
|
22
22
|
}),
|
23
23
|
smalltalk.TestCase);
|
24
24
|
|
25
25
|
smalltalk.addMethod(
|
26
|
-
|
26
|
+
"_assert_equals_",
|
27
27
|
smalltalk.method({
|
28
|
-
selector:
|
29
|
-
fn: function (
|
28
|
+
selector: "assert:equals:",
|
29
|
+
fn: function (expected, actual){
|
30
30
|
var self=this;
|
31
|
-
|
31
|
+
return smalltalk.send(self, "_assert_description_", [smalltalk.send(expected, "__eq", [actual]), smalltalk.send(smalltalk.send(smalltalk.send("Expected: ", "__comma", [smalltalk.send(expected, "_asString", [])]), "__comma", [" but was: "]), "__comma", [smalltalk.send(actual, "_asString", [])])]);
|
32
32
|
return self;}
|
33
33
|
}),
|
34
34
|
smalltalk.TestCase);
|
35
35
|
|
36
36
|
smalltalk.addMethod(
|
37
|
-
|
37
|
+
"_deny_",
|
38
38
|
smalltalk.method({
|
39
|
-
selector:
|
40
|
-
fn: function (){
|
39
|
+
selector: "deny:",
|
40
|
+
fn: function (aBoolean){
|
41
41
|
var self=this;
|
42
|
-
|
42
|
+
smalltalk.send(self, "_assert_", [smalltalk.send(aBoolean, "_not", [])]);
|
43
43
|
return self;}
|
44
44
|
}),
|
45
45
|
smalltalk.TestCase);
|
46
46
|
|
47
47
|
smalltalk.addMethod(
|
48
|
-
|
48
|
+
"_performTestFor_",
|
49
49
|
smalltalk.method({
|
50
|
-
selector:
|
51
|
-
fn: function (){
|
50
|
+
selector: "performTestFor:",
|
51
|
+
fn: function (aResult){
|
52
52
|
var self=this;
|
53
|
-
|
53
|
+
smalltalk.send((function(){return smalltalk.send((function(){return smalltalk.send(self, "_perform_", [smalltalk.send(self, "_selector", [])]);}), "_on_do_", [(smalltalk.TestFailure || TestFailure), (function(ex){return smalltalk.send(aResult, "_addFailure_", [self]);})]);}), "_on_do_", [(smalltalk.Error || Error), (function(ex){return smalltalk.send(aResult, "_addError_", [self]);})]);
|
54
54
|
return self;}
|
55
55
|
}),
|
56
56
|
smalltalk.TestCase);
|
57
57
|
|
58
58
|
smalltalk.addMethod(
|
59
|
-
|
59
|
+
"_runCaseFor_",
|
60
60
|
smalltalk.method({
|
61
|
-
selector:
|
61
|
+
selector: "runCaseFor:",
|
62
62
|
fn: function (aTestResult){
|
63
63
|
var self=this;
|
64
64
|
smalltalk.send(self, "_setUp", []);
|
@@ -70,109 +70,112 @@ return self;}
|
|
70
70
|
smalltalk.TestCase);
|
71
71
|
|
72
72
|
smalltalk.addMethod(
|
73
|
-
|
73
|
+
"_selector",
|
74
74
|
smalltalk.method({
|
75
|
-
selector:
|
76
|
-
fn: function (
|
75
|
+
selector: "selector",
|
76
|
+
fn: function (){
|
77
77
|
var self=this;
|
78
|
-
|
78
|
+
return self['@testSelector'];
|
79
79
|
return self;}
|
80
80
|
}),
|
81
81
|
smalltalk.TestCase);
|
82
82
|
|
83
83
|
smalltalk.addMethod(
|
84
|
-
|
84
|
+
"_setTestSelector_",
|
85
85
|
smalltalk.method({
|
86
|
-
selector:
|
87
|
-
fn: function (
|
86
|
+
selector: "setTestSelector:",
|
87
|
+
fn: function (aSelector){
|
88
88
|
var self=this;
|
89
|
-
|
89
|
+
(self['@testSelector']=aSelector);
|
90
90
|
return self;}
|
91
91
|
}),
|
92
92
|
smalltalk.TestCase);
|
93
93
|
|
94
94
|
smalltalk.addMethod(
|
95
|
-
|
95
|
+
"_setUp",
|
96
96
|
smalltalk.method({
|
97
|
-
selector:
|
98
|
-
fn: function (
|
97
|
+
selector: "setUp",
|
98
|
+
fn: function (){
|
99
99
|
var self=this;
|
100
|
-
|
100
|
+
|
101
101
|
return self;}
|
102
102
|
}),
|
103
103
|
smalltalk.TestCase);
|
104
104
|
|
105
105
|
smalltalk.addMethod(
|
106
|
-
|
106
|
+
"_should_",
|
107
107
|
smalltalk.method({
|
108
|
-
selector:
|
109
|
-
fn: function (
|
108
|
+
selector: "should:",
|
109
|
+
fn: function (aBlock){
|
110
110
|
var self=this;
|
111
|
-
|
111
|
+
smalltalk.send(self, "_assert_", [smalltalk.send(aBlock, "_value", [])]);
|
112
112
|
return self;}
|
113
113
|
}),
|
114
114
|
smalltalk.TestCase);
|
115
115
|
|
116
116
|
smalltalk.addMethod(
|
117
|
-
|
117
|
+
"_should_raise_",
|
118
118
|
smalltalk.method({
|
119
|
-
selector:
|
120
|
-
fn: function (
|
119
|
+
selector: "should:raise:",
|
120
|
+
fn: function (aBlock, anExceptionClass){
|
121
121
|
var self=this;
|
122
|
-
(
|
122
|
+
smalltalk.send(self, "_assert_", [smalltalk.send((function(){smalltalk.send(aBlock, "_value", []);return false;}), "_on_do_", [anExceptionClass, (function(ex){return true;})])]);
|
123
123
|
return self;}
|
124
124
|
}),
|
125
125
|
smalltalk.TestCase);
|
126
126
|
|
127
127
|
smalltalk.addMethod(
|
128
|
-
|
128
|
+
"_signalFailure_",
|
129
129
|
smalltalk.method({
|
130
|
-
selector:
|
131
|
-
fn: function (
|
130
|
+
selector: "signalFailure:",
|
131
|
+
fn: function (aString){
|
132
132
|
var self=this;
|
133
|
-
smalltalk.send(
|
133
|
+
(function($rec){smalltalk.send($rec, "_messageText_", [aString]);return smalltalk.send($rec, "_signal", []);})(smalltalk.send((smalltalk.TestFailure || TestFailure), "_new", []));
|
134
134
|
return self;}
|
135
135
|
}),
|
136
136
|
smalltalk.TestCase);
|
137
137
|
|
138
138
|
smalltalk.addMethod(
|
139
|
-
|
139
|
+
"_tearDown",
|
140
140
|
smalltalk.method({
|
141
|
-
selector:
|
142
|
-
fn: function (
|
141
|
+
selector: "tearDown",
|
142
|
+
fn: function (){
|
143
143
|
var self=this;
|
144
|
-
|
144
|
+
|
145
145
|
return self;}
|
146
146
|
}),
|
147
147
|
smalltalk.TestCase);
|
148
148
|
|
149
149
|
|
150
150
|
smalltalk.addMethod(
|
151
|
-
|
151
|
+
"_allTestSelectors",
|
152
152
|
smalltalk.method({
|
153
|
-
selector:
|
153
|
+
selector: "allTestSelectors",
|
154
154
|
fn: function (){
|
155
155
|
var self=this;
|
156
|
-
|
156
|
+
var selectors=nil;
|
157
|
+
(selectors=smalltalk.send(self, "_testSelectors", []));
|
158
|
+
((($receiver = smalltalk.send(self, "_shouldInheritSelectors", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(selectors, "_addAll_", [smalltalk.send(smalltalk.send(self, "_superclass", []), "_allTestSelectors", [])]);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return smalltalk.send(selectors, "_addAll_", [smalltalk.send(smalltalk.send(self, "_superclass", []), "_allTestSelectors", [])]);})]));
|
159
|
+
return selectors;
|
157
160
|
return self;}
|
158
161
|
}),
|
159
162
|
smalltalk.TestCase.klass);
|
160
163
|
|
161
164
|
smalltalk.addMethod(
|
162
|
-
|
165
|
+
"_buildSuite",
|
163
166
|
smalltalk.method({
|
164
|
-
selector:
|
165
|
-
fn: function (
|
167
|
+
selector: "buildSuite",
|
168
|
+
fn: function (){
|
166
169
|
var self=this;
|
167
|
-
return (
|
170
|
+
return smalltalk.send(smalltalk.send(self, "_allTestSelectors", []), "_collect_", [(function(each){return smalltalk.send(self, "_selector_", [each]);})]);
|
168
171
|
return self;}
|
169
172
|
}),
|
170
173
|
smalltalk.TestCase.klass);
|
171
174
|
|
172
175
|
smalltalk.addMethod(
|
173
|
-
|
176
|
+
"_lookupHierarchyRoot",
|
174
177
|
smalltalk.method({
|
175
|
-
selector:
|
178
|
+
selector: "lookupHierarchyRoot",
|
176
179
|
fn: function (){
|
177
180
|
var self=this;
|
178
181
|
return (smalltalk.TestCase || TestCase);
|
@@ -181,37 +184,34 @@ return self;}
|
|
181
184
|
smalltalk.TestCase.klass);
|
182
185
|
|
183
186
|
smalltalk.addMethod(
|
184
|
-
|
187
|
+
"_selector_",
|
185
188
|
smalltalk.method({
|
186
|
-
selector:
|
187
|
-
fn: function (){
|
189
|
+
selector: "selector:",
|
190
|
+
fn: function (aSelector){
|
188
191
|
var self=this;
|
189
|
-
|
190
|
-
(selectors=smalltalk.send(self, "_testSelectors", []));
|
191
|
-
((($receiver = smalltalk.send(self, "_shouldInheritSelectors", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return smalltalk.send(selectors, "_addAll_", [smalltalk.send(smalltalk.send(self, "_superclass", []), "_allTestSelectors", [])]);})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return smalltalk.send(selectors, "_addAll_", [smalltalk.send(smalltalk.send(self, "_superclass", []), "_allTestSelectors", [])]);})]));
|
192
|
-
return selectors;
|
192
|
+
return (function($rec){smalltalk.send($rec, "_setTestSelector_", [aSelector]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send(self, "_new", []));
|
193
193
|
return self;}
|
194
194
|
}),
|
195
195
|
smalltalk.TestCase.klass);
|
196
196
|
|
197
197
|
smalltalk.addMethod(
|
198
|
-
|
198
|
+
"_shouldInheritSelectors",
|
199
199
|
smalltalk.method({
|
200
|
-
selector:
|
200
|
+
selector: "shouldInheritSelectors",
|
201
201
|
fn: function (){
|
202
202
|
var self=this;
|
203
|
-
return smalltalk.send(
|
203
|
+
return smalltalk.send(self, "_~_eq", [smalltalk.send(self, "_lookupHierarchyRoot", [])]);
|
204
204
|
return self;}
|
205
205
|
}),
|
206
206
|
smalltalk.TestCase.klass);
|
207
207
|
|
208
208
|
smalltalk.addMethod(
|
209
|
-
|
209
|
+
"_testSelectors",
|
210
210
|
smalltalk.method({
|
211
|
-
selector:
|
211
|
+
selector: "testSelectors",
|
212
212
|
fn: function (){
|
213
213
|
var self=this;
|
214
|
-
return smalltalk.send(self, "
|
214
|
+
return smalltalk.send(smalltalk.send(smalltalk.send(self, "_methodDictionary", []), "_keys", []), "_select_", [(function(each){return smalltalk.send(each, "_match_", ["^test"]);})]);
|
215
215
|
return self;}
|
216
216
|
}),
|
217
217
|
smalltalk.TestCase.klass);
|
@@ -222,127 +222,127 @@ smalltalk.addClass('TestFailure', smalltalk.Error, [], 'SUnit');
|
|
222
222
|
|
223
223
|
smalltalk.addClass('TestResult', smalltalk.Object, ['timestamp', 'runs', 'errors', 'failures', 'total'], 'SUnit');
|
224
224
|
smalltalk.addMethod(
|
225
|
-
|
225
|
+
"_addError_",
|
226
226
|
smalltalk.method({
|
227
|
-
selector:
|
228
|
-
fn: function (){
|
227
|
+
selector: "addError:",
|
228
|
+
fn: function (anError){
|
229
229
|
var self=this;
|
230
|
-
|
230
|
+
smalltalk.send(smalltalk.send(self, "_errors", []), "_add_", [anError]);
|
231
231
|
return self;}
|
232
232
|
}),
|
233
233
|
smalltalk.TestResult);
|
234
234
|
|
235
235
|
smalltalk.addMethod(
|
236
|
-
|
236
|
+
"_addFailure_",
|
237
237
|
smalltalk.method({
|
238
|
-
selector:
|
239
|
-
fn: function (){
|
238
|
+
selector: "addFailure:",
|
239
|
+
fn: function (aFailure){
|
240
240
|
var self=this;
|
241
|
-
|
241
|
+
smalltalk.send(smalltalk.send(self, "_failures", []), "_add_", [aFailure]);
|
242
242
|
return self;}
|
243
243
|
}),
|
244
244
|
smalltalk.TestResult);
|
245
245
|
|
246
246
|
smalltalk.addMethod(
|
247
|
-
|
247
|
+
"_errors",
|
248
248
|
smalltalk.method({
|
249
|
-
selector:
|
249
|
+
selector: "errors",
|
250
250
|
fn: function (){
|
251
251
|
var self=this;
|
252
|
-
return self['@
|
252
|
+
return self['@errors'];
|
253
253
|
return self;}
|
254
254
|
}),
|
255
255
|
smalltalk.TestResult);
|
256
256
|
|
257
257
|
smalltalk.addMethod(
|
258
|
-
|
258
|
+
"_failures",
|
259
259
|
smalltalk.method({
|
260
|
-
selector:
|
260
|
+
selector: "failures",
|
261
261
|
fn: function (){
|
262
262
|
var self=this;
|
263
|
-
return self['@
|
263
|
+
return self['@failures'];
|
264
264
|
return self;}
|
265
265
|
}),
|
266
266
|
smalltalk.TestResult);
|
267
267
|
|
268
268
|
smalltalk.addMethod(
|
269
|
-
|
269
|
+
"_increaseRuns",
|
270
270
|
smalltalk.method({
|
271
|
-
selector:
|
272
|
-
fn: function (
|
271
|
+
selector: "increaseRuns",
|
272
|
+
fn: function (){
|
273
273
|
var self=this;
|
274
|
-
(self['@
|
274
|
+
(self['@runs']=((($receiver = self['@runs']).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)])));
|
275
275
|
return self;}
|
276
276
|
}),
|
277
277
|
smalltalk.TestResult);
|
278
278
|
|
279
279
|
smalltalk.addMethod(
|
280
|
-
|
280
|
+
"_initialize",
|
281
281
|
smalltalk.method({
|
282
|
-
selector:
|
283
|
-
fn: function (
|
282
|
+
selector: "initialize",
|
283
|
+
fn: function (){
|
284
284
|
var self=this;
|
285
|
-
smalltalk.send(
|
285
|
+
smalltalk.send(self, "_initialize", [], smalltalk.TestResult.superclass || nil);
|
286
|
+
(self['@timestamp']=smalltalk.send((smalltalk.Date || Date), "_now", []));
|
287
|
+
(self['@runs']=(0));
|
288
|
+
(self['@errors']=smalltalk.send((smalltalk.Array || Array), "_new", []));
|
289
|
+
(self['@failures']=smalltalk.send((smalltalk.Array || Array), "_new", []));
|
290
|
+
(self['@total']=(0));
|
286
291
|
return self;}
|
287
292
|
}),
|
288
293
|
smalltalk.TestResult);
|
289
294
|
|
290
295
|
smalltalk.addMethod(
|
291
|
-
|
296
|
+
"_runs",
|
292
297
|
smalltalk.method({
|
293
|
-
selector:
|
294
|
-
fn: function (
|
298
|
+
selector: "runs",
|
299
|
+
fn: function (){
|
295
300
|
var self=this;
|
296
|
-
|
301
|
+
return self['@runs'];
|
297
302
|
return self;}
|
298
303
|
}),
|
299
304
|
smalltalk.TestResult);
|
300
305
|
|
301
306
|
smalltalk.addMethod(
|
302
|
-
|
307
|
+
"_status",
|
303
308
|
smalltalk.method({
|
304
|
-
selector:
|
309
|
+
selector: "status",
|
305
310
|
fn: function (){
|
306
311
|
var self=this;
|
307
|
-
return self[
|
312
|
+
return ((($receiver = smalltalk.send(smalltalk.send(self, "_errors", []), "_isEmpty", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return ((($receiver = smalltalk.send(smalltalk.send(self, "_failures", []), "_isEmpty", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return "success";})() : (function(){return "failure";})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return "success";}), (function(){return "failure";})]));})() : (function(){return "error";})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return ((($receiver = smalltalk.send(smalltalk.send(self, "_failures", []), "_isEmpty", [])).klass === smalltalk.Boolean) ? ($receiver ? (function(){return "success";})() : (function(){return "failure";})()) : smalltalk.send($receiver, "_ifTrue_ifFalse_", [(function(){return "success";}), (function(){return "failure";})]));}), (function(){return "error";})]));
|
308
313
|
return self;}
|
309
314
|
}),
|
310
315
|
smalltalk.TestResult);
|
311
316
|
|
312
317
|
smalltalk.addMethod(
|
313
|
-
|
318
|
+
"_timestamp",
|
314
319
|
smalltalk.method({
|
315
|
-
selector:
|
320
|
+
selector: "timestamp",
|
316
321
|
fn: function (){
|
317
322
|
var self=this;
|
318
|
-
|
323
|
+
return self['@timestamp'];
|
319
324
|
return self;}
|
320
325
|
}),
|
321
326
|
smalltalk.TestResult);
|
322
327
|
|
323
328
|
smalltalk.addMethod(
|
324
|
-
|
329
|
+
"_total",
|
325
330
|
smalltalk.method({
|
326
|
-
selector:
|
331
|
+
selector: "total",
|
327
332
|
fn: function (){
|
328
333
|
var self=this;
|
329
|
-
return
|
334
|
+
return self['@total'];
|
330
335
|
return self;}
|
331
336
|
}),
|
332
337
|
smalltalk.TestResult);
|
333
338
|
|
334
339
|
smalltalk.addMethod(
|
335
|
-
|
340
|
+
"_total_",
|
336
341
|
smalltalk.method({
|
337
|
-
selector:
|
338
|
-
fn: function (){
|
342
|
+
selector: "total:",
|
343
|
+
fn: function (aNumber){
|
339
344
|
var self=this;
|
340
|
-
|
341
|
-
(self['@timestamp']=smalltalk.send((smalltalk.Date || Date), "_now", []));
|
342
|
-
(self['@runs']=(0));
|
343
|
-
(self['@errors']=smalltalk.send((smalltalk.Array || Array), "_new", []));
|
344
|
-
(self['@failures']=smalltalk.send((smalltalk.Array || Array), "_new", []));
|
345
|
-
(self['@total']=(0));
|
345
|
+
(self['@total']=aNumber);
|
346
346
|
return self;}
|
347
347
|
}),
|
348
348
|
smalltalk.TestResult);
|