resin 0.2.1 → 0.2.2

Sign up to get free protection for your applications and to get access to all the features.
Files changed (60) hide show
  1. data/README.markdown +2 -0
  2. data/amber/bin/nodecompile.js +3 -3
  3. data/amber/css/amber.css +47 -23
  4. data/amber/images/off.amber.png +0 -0
  5. data/amber/images/offHover.amber.png +0 -0
  6. data/amber/images/sprite.amber.png +0 -0
  7. data/amber/images/tinylogo.amber.png +0 -0
  8. data/amber/js/Benchfib.deploy.js +34 -34
  9. data/amber/js/Benchfib.js +49 -49
  10. data/amber/js/Canvas.deploy.js +937 -937
  11. data/amber/js/Canvas.js +1622 -1622
  12. data/amber/js/Compiler-Tests.deploy.js +97 -0
  13. data/amber/js/Compiler-Tests.js +137 -0
  14. data/amber/js/Compiler.deploy.js +1030 -924
  15. data/amber/js/Compiler.js +1613 -1467
  16. data/amber/js/Documentation.deploy.js +417 -417
  17. data/amber/js/Documentation.js +728 -728
  18. data/amber/js/Examples.deploy.js +24 -13
  19. data/amber/js/Examples.js +36 -19
  20. data/amber/js/IDE.deploy.js +1583 -1527
  21. data/amber/js/IDE.js +2586 -2510
  22. data/amber/js/Kernel-Announcements.deploy.js +19 -19
  23. data/amber/js/Kernel-Announcements.js +28 -28
  24. data/amber/js/Kernel-Classes.deploy.js +332 -229
  25. data/amber/js/Kernel-Classes.js +532 -384
  26. data/amber/js/Kernel-Collections.deploy.js +1516 -1712
  27. data/amber/js/Kernel-Collections.js +2436 -2712
  28. data/amber/js/Kernel-Exceptions.deploy.js +85 -62
  29. data/amber/js/Kernel-Exceptions.js +131 -98
  30. data/amber/js/Kernel-Methods.deploy.js +326 -378
  31. data/amber/js/Kernel-Methods.js +473 -525
  32. data/amber/js/Kernel-Objects.deploy.js +1777 -2428
  33. data/amber/js/Kernel-Objects.js +2599 -3426
  34. data/amber/js/Kernel-Tests.deploy.js +871 -772
  35. data/amber/js/Kernel-Tests.js +1207 -1083
  36. data/amber/js/Kernel-Transcript.deploy.js +57 -57
  37. data/amber/js/Kernel-Transcript.js +94 -94
  38. data/amber/js/SUnit.deploy.js +116 -116
  39. data/amber/js/SUnit.js +211 -211
  40. data/amber/js/amber.js +10 -11
  41. data/amber/js/boot.js +132 -156
  42. data/amber/js/init.js +2 -2
  43. data/amber/js/parser.js +2095 -3014
  44. data/amber/js/parser.pegjs +1 -1
  45. data/amber/st/Benchfib.st +22 -22
  46. data/amber/st/Canvas.st +471 -471
  47. data/amber/st/Compiler-Tests.st +471 -0
  48. data/amber/st/Compiler.st +858 -794
  49. data/amber/st/Examples.st +22 -5
  50. data/amber/st/IDE.st +1326 -1291
  51. data/amber/st/Kernel-Announcements.st +2 -2
  52. data/amber/st/Kernel-Classes.st +148 -90
  53. data/amber/st/Kernel-Collections.st +950 -1061
  54. data/amber/st/Kernel-Exceptions.st +33 -25
  55. data/amber/st/Kernel-Methods.st +151 -151
  56. data/amber/st/Kernel-Objects.st +891 -1036
  57. data/amber/st/Kernel-Tests.st +622 -544
  58. data/amber/st/Kernel-Transcript.st +38 -38
  59. data/amber/st/SUnit.st +53 -53
  60. metadata +27 -20
@@ -1,64 +1,64 @@
1
1
  smalltalk.addPackage('SUnit', {});
2
2
  smalltalk.addClass('TestCase', smalltalk.Object, ['testSelector'], 'SUnit');
3
3
  smalltalk.addMethod(
4
- unescape('_setTestSelector_'),
4
+ "_assert_",
5
5
  smalltalk.method({
6
- selector: unescape('setTestSelector%3A'),
7
- fn: function (aSelector){
6
+ selector: "assert:",
7
+ fn: function (aBoolean){
8
8
  var self=this;
9
- (self['@testSelector']=aSelector);
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
- unescape('_selector'),
15
+ "_assert_description_",
16
16
  smalltalk.method({
17
- selector: unescape('selector'),
18
- fn: function (){
17
+ selector: "assert:description:",
18
+ fn: function (aBoolean, aString){
19
19
  var self=this;
20
- return self['@testSelector'];
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
- unescape('_signalFailure_'),
26
+ "_assert_equals_",
27
27
  smalltalk.method({
28
- selector: unescape('signalFailure%3A'),
29
- fn: function (aString){
28
+ selector: "assert:equals:",
29
+ fn: function (expected, actual){
30
30
  var self=this;
31
- (function($rec){smalltalk.send($rec, "_messageText_", [aString]);return smalltalk.send($rec, "_signal", []);})(smalltalk.send((smalltalk.TestFailure || TestFailure), "_new", []));
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
- unescape('_setUp'),
37
+ "_deny_",
38
38
  smalltalk.method({
39
- selector: unescape('setUp'),
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
- unescape('_tearDown'),
48
+ "_performTestFor_",
49
49
  smalltalk.method({
50
- selector: unescape('tearDown'),
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
- unescape('_runCaseFor_'),
59
+ "_runCaseFor_",
60
60
  smalltalk.method({
61
- selector: unescape('runCaseFor%3A'),
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
- unescape('_performTestFor_'),
73
+ "_selector",
74
74
  smalltalk.method({
75
- selector: unescape('performTestFor%3A'),
76
- fn: function (aResult){
75
+ selector: "selector",
76
+ fn: function (){
77
77
  var self=this;
78
- 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]);})]);
78
+ return self['@testSelector'];
79
79
  return self;}
80
80
  }),
81
81
  smalltalk.TestCase);
82
82
 
83
83
  smalltalk.addMethod(
84
- unescape('_assert_'),
84
+ "_setTestSelector_",
85
85
  smalltalk.method({
86
- selector: unescape('assert%3A'),
87
- fn: function (aBoolean){
86
+ selector: "setTestSelector:",
87
+ fn: function (aSelector){
88
88
  var self=this;
89
- smalltalk.send(self, "_assert_description_", [aBoolean, "Assertion failed"]);
89
+ (self['@testSelector']=aSelector);
90
90
  return self;}
91
91
  }),
92
92
  smalltalk.TestCase);
93
93
 
94
94
  smalltalk.addMethod(
95
- unescape('_deny_'),
95
+ "_setUp",
96
96
  smalltalk.method({
97
- selector: unescape('deny%3A'),
98
- fn: function (aBoolean){
97
+ selector: "setUp",
98
+ fn: function (){
99
99
  var self=this;
100
- smalltalk.send(self, "_assert_", [smalltalk.send(aBoolean, "_not", [])]);
100
+
101
101
  return self;}
102
102
  }),
103
103
  smalltalk.TestCase);
104
104
 
105
105
  smalltalk.addMethod(
106
- unescape('_assert_equals_'),
106
+ "_should_",
107
107
  smalltalk.method({
108
- selector: unescape('assert%3Aequals%3A'),
109
- fn: function (expected, actual){
108
+ selector: "should:",
109
+ fn: function (aBlock){
110
110
  var self=this;
111
- 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", [])])]);
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
- unescape('_assert_description_'),
117
+ "_should_raise_",
118
118
  smalltalk.method({
119
- selector: unescape('assert%3Adescription%3A'),
120
- fn: function (aBoolean, aString){
119
+ selector: "should:raise:",
120
+ fn: function (aBlock, anExceptionClass){
121
121
  var self=this;
122
- ((($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]);})]));
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
- unescape('_should_'),
128
+ "_signalFailure_",
129
129
  smalltalk.method({
130
- selector: unescape('should%3A'),
131
- fn: function (aBlock){
130
+ selector: "signalFailure:",
131
+ fn: function (aString){
132
132
  var self=this;
133
- smalltalk.send(self, "_assert_", [smalltalk.send(aBlock, "_value", [])]);
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
- unescape('_should_raise_'),
139
+ "_tearDown",
140
140
  smalltalk.method({
141
- selector: unescape('should%3Araise%3A'),
142
- fn: function (aBlock, anExceptionClass){
141
+ selector: "tearDown",
142
+ fn: function (){
143
143
  var self=this;
144
- smalltalk.send(self, "_assert_", [smalltalk.send((function(){smalltalk.send(aBlock, "_value", []);return false;}), "_on_do_", [anExceptionClass, (function(ex){return true;})])]);
144
+
145
145
  return self;}
146
146
  }),
147
147
  smalltalk.TestCase);
148
148
 
149
149
 
150
150
  smalltalk.addMethod(
151
- unescape('_testSelectors'),
151
+ "_allTestSelectors",
152
152
  smalltalk.method({
153
- selector: unescape('testSelectors'),
153
+ selector: "allTestSelectors",
154
154
  fn: function (){
155
155
  var self=this;
156
- return smalltalk.send(smalltalk.send(smalltalk.send(self, "_methodDictionary", []), "_keys", []), "_select_", [(function(each){return smalltalk.send(each, "_match_", [unescape("%5Etest")]);})]);
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
- unescape('_selector_'),
165
+ "_buildSuite",
163
166
  smalltalk.method({
164
- selector: unescape('selector%3A'),
165
- fn: function (aSelector){
167
+ selector: "buildSuite",
168
+ fn: function (){
166
169
  var self=this;
167
- return (function($rec){smalltalk.send($rec, "_setTestSelector_", [aSelector]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send(self, "_new", []));
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
- unescape('_lookupHierarchyRoot'),
176
+ "_lookupHierarchyRoot",
174
177
  smalltalk.method({
175
- selector: unescape('lookupHierarchyRoot'),
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
- unescape('_allTestSelectors'),
187
+ "_selector_",
185
188
  smalltalk.method({
186
- selector: unescape('allTestSelectors'),
187
- fn: function (){
189
+ selector: "selector:",
190
+ fn: function (aSelector){
188
191
  var self=this;
189
- var selectors=nil;
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
- unescape('_buildSuite'),
198
+ "_shouldInheritSelectors",
199
199
  smalltalk.method({
200
- selector: unescape('buildSuite'),
200
+ selector: "shouldInheritSelectors",
201
201
  fn: function (){
202
202
  var self=this;
203
- return smalltalk.send(smalltalk.send(self, "_allTestSelectors", []), "_collect_", [(function(each){return smalltalk.send(self, "_selector_", [each]);})]);
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
- unescape('_shouldInheritSelectors'),
209
+ "_testSelectors",
210
210
  smalltalk.method({
211
- selector: unescape('shouldInheritSelectors'),
211
+ selector: "testSelectors",
212
212
  fn: function (){
213
213
  var self=this;
214
- return smalltalk.send(self, "_~_eq", [smalltalk.send(self, "_lookupHierarchyRoot", [])]);
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
- unescape('_timestamp'),
225
+ "_addError_",
226
226
  smalltalk.method({
227
- selector: unescape('timestamp'),
228
- fn: function (){
227
+ selector: "addError:",
228
+ fn: function (anError){
229
229
  var self=this;
230
- return self['@timestamp'];
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
- unescape('_errors'),
236
+ "_addFailure_",
237
237
  smalltalk.method({
238
- selector: unescape('errors'),
239
- fn: function (){
238
+ selector: "addFailure:",
239
+ fn: function (aFailure){
240
240
  var self=this;
241
- return self['@errors'];
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
- unescape('_failures'),
247
+ "_errors",
248
248
  smalltalk.method({
249
- selector: unescape('failures'),
249
+ selector: "errors",
250
250
  fn: function (){
251
251
  var self=this;
252
- return self['@failures'];
252
+ return self['@errors'];
253
253
  return self;}
254
254
  }),
255
255
  smalltalk.TestResult);
256
256
 
257
257
  smalltalk.addMethod(
258
- unescape('_total'),
258
+ "_failures",
259
259
  smalltalk.method({
260
- selector: unescape('total'),
260
+ selector: "failures",
261
261
  fn: function (){
262
262
  var self=this;
263
- return self['@total'];
263
+ return self['@failures'];
264
264
  return self;}
265
265
  }),
266
266
  smalltalk.TestResult);
267
267
 
268
268
  smalltalk.addMethod(
269
- unescape('_total_'),
269
+ "_increaseRuns",
270
270
  smalltalk.method({
271
- selector: unescape('total%3A'),
272
- fn: function (aNumber){
271
+ selector: "increaseRuns",
272
+ fn: function (){
273
273
  var self=this;
274
- (self['@total']=aNumber);
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
- unescape('_addError_'),
280
+ "_initialize",
281
281
  smalltalk.method({
282
- selector: unescape('addError%3A'),
283
- fn: function (anError){
282
+ selector: "initialize",
283
+ fn: function (){
284
284
  var self=this;
285
- smalltalk.send(smalltalk.send(self, "_errors", []), "_add_", [anError]);
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
- unescape('_addFailure_'),
296
+ "_runs",
292
297
  smalltalk.method({
293
- selector: unescape('addFailure%3A'),
294
- fn: function (aFailure){
298
+ selector: "runs",
299
+ fn: function (){
295
300
  var self=this;
296
- smalltalk.send(smalltalk.send(self, "_failures", []), "_add_", [aFailure]);
301
+ return self['@runs'];
297
302
  return self;}
298
303
  }),
299
304
  smalltalk.TestResult);
300
305
 
301
306
  smalltalk.addMethod(
302
- unescape('_runs'),
307
+ "_status",
303
308
  smalltalk.method({
304
- selector: unescape('runs'),
309
+ selector: "status",
305
310
  fn: function (){
306
311
  var self=this;
307
- return self['@runs'];
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
- unescape('_increaseRuns'),
318
+ "_timestamp",
314
319
  smalltalk.method({
315
- selector: unescape('increaseRuns'),
320
+ selector: "timestamp",
316
321
  fn: function (){
317
322
  var self=this;
318
- (self['@runs']=((($receiver = self['@runs']).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)])));
323
+ return self['@timestamp'];
319
324
  return self;}
320
325
  }),
321
326
  smalltalk.TestResult);
322
327
 
323
328
  smalltalk.addMethod(
324
- unescape('_status'),
329
+ "_total",
325
330
  smalltalk.method({
326
- selector: unescape('status'),
331
+ selector: "total",
327
332
  fn: function (){
328
333
  var self=this;
329
- 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";})]));
334
+ return self['@total'];
330
335
  return self;}
331
336
  }),
332
337
  smalltalk.TestResult);
333
338
 
334
339
  smalltalk.addMethod(
335
- unescape('_initialize'),
340
+ "_total_",
336
341
  smalltalk.method({
337
- selector: unescape('initialize'),
338
- fn: function (){
342
+ selector: "total:",
343
+ fn: function (aNumber){
339
344
  var self=this;
340
- smalltalk.send(self, "_initialize", [], smalltalk.Object);
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);