resin 0.2.1 → 0.2.2

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
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);