resin 0.0.7 → 0.0.8

Sign up to get free protection for your applications and to get access to all the features.
@@ -1,11 +1,46 @@
1
1
  smalltalk.addPackage('Kernel-Tests', {});
2
+ smalltalk.addClass('ArrayTest', smalltalk.TestCase, [], 'Kernel-Tests');
3
+ smalltalk.addMethod(
4
+ unescape('_testFirstN'),
5
+ smalltalk.method({
6
+ selector: unescape('testFirstN'),
7
+ category: 'testing',
8
+ fn: function (){
9
+ var self=this;
10
+ smalltalk.send(self, "_assert_equals_", [[(1),(2),(3)], smalltalk.send([(1),(2),(3),(4),(5)], "_first_", [(3)])]);
11
+ return self;},
12
+ args: [],
13
+ source: unescape('testFirstN%0A%09self%20assert%3A%20%7B1.%202.%203%7D%20equals%3A%20%28%7B1.%202.%A03.%204.%205%7D%20first%3A%203%29.'),
14
+ messageSends: ["assert:equals:", "first:"],
15
+ referencedClasses: []
16
+ }),
17
+ smalltalk.ArrayTest);
18
+
19
+ smalltalk.addMethod(
20
+ unescape('_testIfEmpty'),
21
+ smalltalk.method({
22
+ selector: unescape('testIfEmpty'),
23
+ category: 'testing',
24
+ fn: function (){
25
+ var self=this;
26
+ smalltalk.send(self, "_assert_equals_", ["zork", smalltalk.send("", "_ifEmpty_", [(function(){return "zork";})])]);
27
+ return self;},
28
+ args: [],
29
+ source: unescape('testIfEmpty%0A%09self%20assert%3A%20%27zork%27%20equals%3A%20%28%20%27%27%20ifEmpty%3A%20%5B%27zork%27%5D%20%29'),
30
+ messageSends: ["assert:equals:", "ifEmpty:"],
31
+ referencedClasses: []
32
+ }),
33
+ smalltalk.ArrayTest);
34
+
35
+
36
+
2
37
  smalltalk.addClass('StringTest', smalltalk.TestCase, [], 'Kernel-Tests');
3
38
  smalltalk.addMethod(
4
39
  unescape('_testJoin'),
5
40
  smalltalk.method({
6
41
  selector: unescape('testJoin'),
7
42
  category: 'tests',
8
- fn: function (){
43
+ fn: function () {
9
44
  var self=this;
10
45
  smalltalk.send(self, "_assert_equals_", [unescape("hello%2Cworld"), smalltalk.send(unescape("%2C"), "_join_", [["hello", "world"]])]);
11
46
  return self;},
@@ -21,7 +56,7 @@ unescape('_testStreamContents'),
21
56
  smalltalk.method({
22
57
  selector: unescape('testStreamContents'),
23
58
  category: 'tests',
24
- fn: function (){
59
+ fn: function () {
25
60
  var self=this;
26
61
  smalltalk.send(self, "_assert_equals_", ["hello world", smalltalk.send((smalltalk.String || String), "_streamContents_", [(function(aStream){return (function($rec){smalltalk.send($rec, "_nextPutAll_", ["hello"]);smalltalk.send($rec, "_space", []);return smalltalk.send($rec, "_nextPutAll_", ["world"]);})(aStream);})])]);
27
62
  return self;},
@@ -37,7 +72,7 @@ unescape('_testIncludesSubString'),
37
72
  smalltalk.method({
38
73
  selector: unescape('testIncludesSubString'),
39
74
  category: 'tests',
40
- fn: function (){
75
+ fn: function () {
41
76
  var self=this;
42
77
  smalltalk.send(self, "_assert_", [smalltalk.send("amber", "_includesSubString_", ["ber"])]);
43
78
  smalltalk.send(self, "_deny_", [smalltalk.send("amber", "_includesSubString_", ["zork"])]);
@@ -54,7 +89,7 @@ unescape('_testEquality'),
54
89
  smalltalk.method({
55
90
  selector: unescape('testEquality'),
56
91
  category: 'tests',
57
- fn: function (){
92
+ fn: function () {
58
93
  var self=this;
59
94
  smalltalk.send(self, "_assert_", [smalltalk.send("hello", "__eq", ["hello"])]);
60
95
  smalltalk.send(self, "_deny_", [smalltalk.send("hello", "__eq", ["world"])]);
@@ -74,7 +109,7 @@ unescape('_testCopyWithoutAll'),
74
109
  smalltalk.method({
75
110
  selector: unescape('testCopyWithoutAll'),
76
111
  category: 'tests',
77
- fn: function (){
112
+ fn: function () {
78
113
  var self=this;
79
114
  smalltalk.send(self, "_assert_equals_", ["hello world", smalltalk.send(unescape("*hello*%20*world*"), "_copyWithoutAll_", [unescape("*")])]);
80
115
  return self;},
@@ -90,7 +125,7 @@ unescape('_testAt'),
90
125
  smalltalk.method({
91
126
  selector: unescape('testAt'),
92
127
  category: 'tests',
93
- fn: function (){
128
+ fn: function () {
94
129
  var self=this;
95
130
  smalltalk.send(self, "_assert_", [smalltalk.send(smalltalk.send("hello", "_at_", [(1)]), "__eq", ["h"])]);
96
131
  smalltalk.send(self, "_assert_", [smalltalk.send(smalltalk.send("hello", "_at_", [(5)]), "__eq", ["o"])]);
@@ -108,7 +143,7 @@ unescape('_testAtPut'),
108
143
  smalltalk.method({
109
144
  selector: unescape('testAtPut'),
110
145
  category: 'tests',
111
- fn: function (){
146
+ fn: function () {
112
147
  var self=this;
113
148
  smalltalk.send(self, "_should_raise_", [(function(){return smalltalk.send("hello", "_at_put_", [(1), "a"]);}), (smalltalk.Error || Error)]);
114
149
  return self;},
@@ -124,7 +159,7 @@ unescape('_testSize'),
124
159
  smalltalk.method({
125
160
  selector: unescape('testSize'),
126
161
  category: 'tests',
127
- fn: function (){
162
+ fn: function () {
128
163
  var self=this;
129
164
  smalltalk.send(self, "_assert_equals_", [smalltalk.send("smalltalk", "_size", []), (9)]);
130
165
  smalltalk.send(self, "_assert_equals_", [smalltalk.send("", "_size", []), (0)]);
@@ -141,7 +176,7 @@ unescape('_testAddRemove'),
141
176
  smalltalk.method({
142
177
  selector: unescape('testAddRemove'),
143
178
  category: 'tests',
144
- fn: function (){
179
+ fn: function () {
145
180
  var self=this;
146
181
  smalltalk.send(self, "_should_raise_", [(function(){return smalltalk.send("hello", "_add_", ["a"]);}), (smalltalk.Error || Error)]);
147
182
  smalltalk.send(self, "_should_raise_", [(function(){return smalltalk.send("hello", "_remove_", ["h"]);}), (smalltalk.Error || Error)]);
@@ -153,6 +188,22 @@ referencedClasses: ["Error"]
153
188
  }),
154
189
  smalltalk.StringTest);
155
190
 
191
+ smalltalk.addMethod(
192
+ unescape('_testAsArray'),
193
+ smalltalk.method({
194
+ selector: unescape('testAsArray'),
195
+ category: 'tests',
196
+ fn: function () {
197
+ var self=this;
198
+ smalltalk.send(self, "_assert_", [smalltalk.send(smalltalk.send("hello", "_asArray", []), "__eq", [["h", "e", "l", "l", "o"]])]);
199
+ return self;},
200
+ args: [],
201
+ source: unescape('testAsArray%0A%09self%20assert%3A%20%27hello%27%20asArray%20%3D%20%23%28%27h%27%20%27e%27%20%27l%27%20%27l%27%20%27o%27%29.'),
202
+ messageSends: ["assert:", unescape("%3D"), "asArray"],
203
+ referencedClasses: []
204
+ }),
205
+ smalltalk.StringTest);
206
+
156
207
 
157
208
 
158
209
  smalltalk.addClass('DictionaryTest', smalltalk.TestCase, [], 'Kernel-Tests');
@@ -161,7 +212,7 @@ unescape('_testPrintString'),
161
212
  smalltalk.method({
162
213
  selector: unescape('testPrintString'),
163
214
  category: 'tests',
164
- fn: function (){
215
+ fn: function () {
165
216
  var self=this;
166
217
  smalltalk.send(self, "_assert_equals_", [unescape("a%20Dictionary%28%27firstname%27%20-%3E%20%27James%27%20%2C%20%27lastname%27%20-%3E%20%27Bond%27%29"), (function($rec){smalltalk.send($rec, "_at_put_", ["firstname", "James"]);smalltalk.send($rec, "_at_put_", ["lastname", "Bond"]);return smalltalk.send($rec, "_printString", []);})(smalltalk.send((smalltalk.Dictionary || Dictionary), "_new", []))]);
167
218
  return self;},
@@ -177,7 +228,7 @@ unescape('_testEquality'),
177
228
  smalltalk.method({
178
229
  selector: unescape('testEquality'),
179
230
  category: 'tests',
180
- fn: function (){
231
+ fn: function () {
181
232
  var self=this;
182
233
  var d1=nil;
183
234
  var d2=nil;
@@ -204,7 +255,7 @@ unescape('_testDynamicDictionaries'),
204
255
  smalltalk.method({
205
256
  selector: unescape('testDynamicDictionaries'),
206
257
  category: 'tests',
207
- fn: function (){
258
+ fn: function () {
208
259
  var self=this;
209
260
  smalltalk.send(self, "_assert_", [smalltalk.send(smalltalk.send(smalltalk.HashedCollection._fromPairs_([smalltalk.send("hello", "__minus_gt", [(1)])]), "_asDictionary", []), "__eq", [smalltalk.send((smalltalk.Dictionary || Dictionary), "_with_", [smalltalk.send("hello", "__minus_gt", [(1)])])])]);
210
261
  return self;},
@@ -220,7 +271,7 @@ unescape('_testAccessing'),
220
271
  smalltalk.method({
221
272
  selector: unescape('testAccessing'),
222
273
  category: 'tests',
223
- fn: function (){
274
+ fn: function () {
224
275
  var self=this;
225
276
  var d=nil;
226
277
  (d=smalltalk.send((smalltalk.Dictionary || Dictionary), "_new", []));
@@ -245,7 +296,7 @@ unescape('_testSize'),
245
296
  smalltalk.method({
246
297
  selector: unescape('testSize'),
247
298
  category: 'tests',
248
- fn: function (){
299
+ fn: function () {
249
300
  var self=this;
250
301
  var d=nil;
251
302
  (d=smalltalk.send((smalltalk.Dictionary || Dictionary), "_new", []));
@@ -267,7 +318,7 @@ unescape('_testValues'),
267
318
  smalltalk.method({
268
319
  selector: unescape('testValues'),
269
320
  category: 'tests',
270
- fn: function (){
321
+ fn: function () {
271
322
  var self=this;
272
323
  var d=nil;
273
324
  (d=smalltalk.send((smalltalk.Dictionary || Dictionary), "_new", []));
@@ -288,7 +339,7 @@ unescape('_testKeys'),
288
339
  smalltalk.method({
289
340
  selector: unescape('testKeys'),
290
341
  category: 'tests',
291
- fn: function (){
342
+ fn: function () {
292
343
  var self=this;
293
344
  var d=nil;
294
345
  (d=smalltalk.send((smalltalk.Dictionary || Dictionary), "_new", []));
@@ -312,7 +363,7 @@ unescape('_testLogic'),
312
363
  smalltalk.method({
313
364
  selector: unescape('testLogic'),
314
365
  category: 'tests',
315
- fn: function (){
366
+ fn: function () {
316
367
  var self=this;
317
368
  (function($rec){smalltalk.send($rec, "_assert_", [smalltalk.send(true, "_&", [true])]);smalltalk.send($rec, "_deny_", [smalltalk.send(true, "_&", [false])]);smalltalk.send($rec, "_deny_", [smalltalk.send(false, "_&", [true])]);return smalltalk.send($rec, "_deny_", [smalltalk.send(false, "_&", [false])]);})(self);
318
369
  (function($rec){smalltalk.send($rec, "_assert_", [smalltalk.send(true, "_|", [true])]);smalltalk.send($rec, "_assert_", [smalltalk.send(true, "_|", [false])]);smalltalk.send($rec, "_assert_", [smalltalk.send(false, "_|", [true])]);return smalltalk.send($rec, "_deny_", [smalltalk.send(false, "_|", [false])]);})(self);
@@ -331,7 +382,7 @@ unescape('_testEquality'),
331
382
  smalltalk.method({
332
383
  selector: unescape('testEquality'),
333
384
  category: 'tests',
334
- fn: function (){
385
+ fn: function () {
335
386
  var self=this;
336
387
  smalltalk.send(self, "_deny_", [smalltalk.send((0), "__eq", [false])]);
337
388
  smalltalk.send(self, "_deny_", [smalltalk.send(false, "__eq", [(0)])]);
@@ -356,7 +407,7 @@ unescape('_testLogicKeywords'),
356
407
  smalltalk.method({
357
408
  selector: unescape('testLogicKeywords'),
358
409
  category: 'tests',
359
- fn: function (){
410
+ fn: function () {
360
411
  var self=this;
361
412
  (function($rec){smalltalk.send($rec, "_assert_", [smalltalk.send(true, "_and_", [(function(){return true;})])]);smalltalk.send($rec, "_deny_", [smalltalk.send(true, "_and_", [(function(){return false;})])]);smalltalk.send($rec, "_deny_", [smalltalk.send(false, "_and_", [(function(){return true;})])]);return smalltalk.send($rec, "_deny_", [smalltalk.send(false, "_and_", [(function(){return false;})])]);})(self);
362
413
  (function($rec){smalltalk.send($rec, "_assert_", [smalltalk.send(true, "_or_", [(function(){return true;})])]);smalltalk.send($rec, "_assert_", [smalltalk.send(true, "_or_", [(function(){return false;})])]);smalltalk.send($rec, "_assert_", [smalltalk.send(false, "_or_", [(function(){return true;})])]);return smalltalk.send($rec, "_deny_", [smalltalk.send(false, "_or_", [(function(){return false;})])]);})(self);
@@ -375,7 +426,7 @@ unescape('_testIfTrueIfFalse'),
375
426
  smalltalk.method({
376
427
  selector: unescape('testIfTrueIfFalse'),
377
428
  category: 'tests',
378
- fn: function (){
429
+ fn: function () {
379
430
  var self=this;
380
431
  smalltalk.send(self, "_assert_", [smalltalk.send(((($receiver = true).klass === smalltalk.Boolean) ? ($receiver ? (function(){return "alternative block";})() : nil) : smalltalk.send($receiver, "_ifTrue_", [(function(){return "alternative block";})])), "__eq", ["alternative block"])]);
381
432
  smalltalk.send(self, "_assert_", [smalltalk.send(((($receiver = true).klass === smalltalk.Boolean) ? (! $receiver ? (function(){return "alternative block";})() : nil) : smalltalk.send($receiver, "_ifFalse_", [(function(){return "alternative block";})])), "__eq", [nil])]);
@@ -401,7 +452,7 @@ unescape('_testPrintShowingDecimalPlaces'),
401
452
  smalltalk.method({
402
453
  selector: unescape('testPrintShowingDecimalPlaces'),
403
454
  category: 'tests',
404
- fn: function (){
455
+ fn: function () {
405
456
  var self=this;
406
457
  smalltalk.send(self, "_assert_equals_", ["23.00", smalltalk.send((23), "_printShowingDecimalPlaces_", [(2)])]);
407
458
  smalltalk.send(self, "_assert_equals_", ["23.57", smalltalk.send((23.5698), "_printShowingDecimalPlaces_", [(2)])]);
@@ -429,7 +480,7 @@ unescape('_testEquality'),
429
480
  smalltalk.method({
430
481
  selector: unescape('testEquality'),
431
482
  category: 'tests',
432
- fn: function (){
483
+ fn: function () {
433
484
  var self=this;
434
485
  smalltalk.send(self, "_assert_", [smalltalk.send((1), "__eq", [(1)])]);
435
486
  smalltalk.send(self, "_assert_", [smalltalk.send((0), "__eq", [(0)])]);
@@ -454,7 +505,7 @@ unescape('_testArithmetic'),
454
505
  smalltalk.method({
455
506
  selector: unescape('testArithmetic'),
456
507
  category: 'tests',
457
- fn: function (){
508
+ fn: function () {
458
509
  var self=this;
459
510
  smalltalk.send(self, "_assert_", [smalltalk.send((1.5) + (1), "__eq", [(2.5)])]);
460
511
  smalltalk.send(self, "_assert_", [smalltalk.send((2) - (1), "__eq", [(1)])]);
@@ -476,7 +527,7 @@ unescape('_testRounded'),
476
527
  smalltalk.method({
477
528
  selector: unescape('testRounded'),
478
529
  category: 'tests',
479
- fn: function (){
530
+ fn: function () {
480
531
  var self=this;
481
532
  smalltalk.send(self, "_assert_", [smalltalk.send(smalltalk.send((3), "_rounded", []), "__eq", [(3)])]);
482
533
  smalltalk.send(self, "_assert_", [smalltalk.send(smalltalk.send((3.212), "_rounded", []), "__eq", [(3)])]);
@@ -494,7 +545,7 @@ unescape('_testNegated'),
494
545
  smalltalk.method({
495
546
  selector: unescape('testNegated'),
496
547
  category: 'tests',
497
- fn: function (){
548
+ fn: function () {
498
549
  var self=this;
499
550
  smalltalk.send(self, "_assert_", [smalltalk.send(smalltalk.send((3), "_negated", []), "__eq", [(-3)])]);
500
551
  smalltalk.send(self, "_assert_", [smalltalk.send(smalltalk.send((-3), "_negated", []), "__eq", [(3)])]);
@@ -511,7 +562,7 @@ unescape('_testComparison'),
511
562
  smalltalk.method({
512
563
  selector: unescape('testComparison'),
513
564
  category: 'tests',
514
- fn: function (){
565
+ fn: function () {
515
566
  var self=this;
516
567
  smalltalk.send(self, "_assert_", [(3) > (2)]);
517
568
  smalltalk.send(self, "_assert_", [(2) < (3)]);
@@ -534,7 +585,7 @@ unescape('_testTruncated'),
534
585
  smalltalk.method({
535
586
  selector: unescape('testTruncated'),
536
587
  category: 'tests',
537
- fn: function (){
588
+ fn: function () {
538
589
  var self=this;
539
590
  smalltalk.send(self, "_assert_", [smalltalk.send(smalltalk.send((3), "_truncated", []), "__eq", [(3)])]);
540
591
  smalltalk.send(self, "_assert_", [smalltalk.send(smalltalk.send((3.212), "_truncated", []), "__eq", [(3)])]);
@@ -552,7 +603,7 @@ unescape('_testCopying'),
552
603
  smalltalk.method({
553
604
  selector: unescape('testCopying'),
554
605
  category: 'tests',
555
- fn: function (){
606
+ fn: function () {
556
607
  var self=this;
557
608
  smalltalk.send(self, "_assert_", [smalltalk.send(smalltalk.send((1), "_copy", []), "__eq_eq", [(1)])]);
558
609
  smalltalk.send(self, "_assert_", [smalltalk.send(smalltalk.send((1), "_deepCopy", []), "__eq_eq", [(1)])]);
@@ -569,7 +620,7 @@ unescape('_testMinMax'),
569
620
  smalltalk.method({
570
621
  selector: unescape('testMinMax'),
571
622
  category: 'tests',
572
- fn: function (){
623
+ fn: function () {
573
624
  var self=this;
574
625
  smalltalk.send(self, "_assert_equals_", [smalltalk.send((2), "_max_", [(5)]), (5)]);
575
626
  smalltalk.send(self, "_assert_equals_", [smalltalk.send((2), "_min_", [(5)]), (2)]);
@@ -586,7 +637,7 @@ unescape('_testIdentity'),
586
637
  smalltalk.method({
587
638
  selector: unescape('testIdentity'),
588
639
  category: 'tests',
589
- fn: function (){
640
+ fn: function () {
590
641
  var self=this;
591
642
  smalltalk.send(self, "_assert_", [smalltalk.send((1), "__eq_eq", [(1)])]);
592
643
  smalltalk.send(self, "_assert_", [smalltalk.send((0), "__eq_eq", [(0)])]);
@@ -608,7 +659,7 @@ unescape('_testSqrt'),
608
659
  smalltalk.method({
609
660
  selector: unescape('testSqrt'),
610
661
  category: 'tests',
611
- fn: function (){
662
+ fn: function () {
612
663
  var self=this;
613
664
  smalltalk.send(self, "_assert_", [smalltalk.send(smalltalk.send((4), "_sqrt", []), "__eq", [(2)])]);
614
665
  smalltalk.send(self, "_assert_", [smalltalk.send(smalltalk.send((16), "_sqrt", []), "__eq", [(4)])]);
@@ -625,7 +676,7 @@ unescape('_testSquared'),
625
676
  smalltalk.method({
626
677
  selector: unescape('testSquared'),
627
678
  category: 'tests',
628
- fn: function (){
679
+ fn: function () {
629
680
  var self=this;
630
681
  smalltalk.send(self, "_assert_", [smalltalk.send(smalltalk.send((4), "_squared", []), "__eq", [(16)])]);
631
682
  return self;},
@@ -641,7 +692,7 @@ unescape('_testTimesRepeat'),
641
692
  smalltalk.method({
642
693
  selector: unescape('testTimesRepeat'),
643
694
  category: 'tests',
644
- fn: function (){
695
+ fn: function () {
645
696
  var self=this;
646
697
  var i=nil;
647
698
  (i=(0));
@@ -662,7 +713,7 @@ unescape('_testTo'),
662
713
  smalltalk.method({
663
714
  selector: unescape('testTo'),
664
715
  category: 'tests',
665
- fn: function (){
716
+ fn: function () {
666
717
  var self=this;
667
718
  smalltalk.send(self, "_assert_equals_", [smalltalk.send((1), "_to_", [(5)]), [(1), (2), (3), (4), (5)]]);
668
719
  return self;},
@@ -678,7 +729,7 @@ unescape('_testToBy'),
678
729
  smalltalk.method({
679
730
  selector: unescape('testToBy'),
680
731
  category: 'tests',
681
- fn: function (){
732
+ fn: function () {
682
733
  var self=this;
683
734
  smalltalk.send(self, "_assert_equals_", [smalltalk.send((0), "_to_by_", [(6), (2)]), [(0), (2), (4), (6)]]);
684
735
  smalltalk.send(self, "_should_raise_", [(function(){return smalltalk.send((1), "_to_by_", [(4), (0)]);}), (smalltalk.Error || Error)]);
@@ -698,7 +749,7 @@ unescape('_jsObject'),
698
749
  smalltalk.method({
699
750
  selector: unescape('jsObject'),
700
751
  category: 'accessing',
701
- fn: function (){
752
+ fn: function () {
702
753
  var self=this;
703
754
  return jsObject = {a: 1, b: function() {return 2;}, c: function(object) {return object;}};
704
755
  return self;},
@@ -714,7 +765,7 @@ unescape('_testMethodWithArguments'),
714
765
  smalltalk.method({
715
766
  selector: unescape('testMethodWithArguments'),
716
767
  category: 'tests',
717
- fn: function (){
768
+ fn: function () {
718
769
  var self=this;
719
770
  smalltalk.send(self, "_deny_", [smalltalk.send(smalltalk.send("body", "_asJQuery", []), "_hasClass_", ["amber"])]);
720
771
  smalltalk.send(smalltalk.send("body", "_asJQuery", []), "_addClass_", ["amber"]);
@@ -734,7 +785,7 @@ unescape('_testYourself'),
734
785
  smalltalk.method({
735
786
  selector: unescape('testYourself'),
736
787
  category: 'tests',
737
- fn: function (){
788
+ fn: function () {
738
789
  var self=this;
739
790
  var body=nil;
740
791
  (body=(function($rec){smalltalk.send($rec, "_addClass_", ["amber"]);return smalltalk.send($rec, "_yourself", []);})(smalltalk.send("body", "_asJQuery", [])));
@@ -754,7 +805,7 @@ unescape('_testPropertyThatReturnsEmptyString'),
754
805
  smalltalk.method({
755
806
  selector: unescape('testPropertyThatReturnsEmptyString'),
756
807
  category: 'tests',
757
- fn: function (){
808
+ fn: function () {
758
809
  var self=this;
759
810
  document.location.hash = '';
760
811
  smalltalk.send(self, "_assert_equals_", ["", smalltalk.send(smalltalk.send((typeof document == 'undefined' ? nil : document), "_location", []), "_hash", [])]);
@@ -773,7 +824,7 @@ unescape('_testDNU'),
773
824
  smalltalk.method({
774
825
  selector: unescape('testDNU'),
775
826
  category: 'tests',
776
- fn: function (){
827
+ fn: function () {
777
828
  var self=this;
778
829
  smalltalk.send(self, "_should_raise_", [(function(){return smalltalk.send(smalltalk.send(self, "_jsObject", []), "_foo", []);}), (smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
779
830
  return self;},
@@ -789,7 +840,7 @@ unescape('_testMessageSend'),
789
840
  smalltalk.method({
790
841
  selector: unescape('testMessageSend'),
791
842
  category: 'tests',
792
- fn: function (){
843
+ fn: function () {
793
844
  var self=this;
794
845
  smalltalk.send(self, "_assert_equals_", [smalltalk.send(smalltalk.send(self, "_jsObject", []), "_a", []), (1)]);
795
846
  smalltalk.send(self, "_assert_equals_", [smalltalk.send(smalltalk.send(self, "_jsObject", []), "_b", []), (2)]);
@@ -807,7 +858,7 @@ unescape('_testPrinting'),
807
858
  smalltalk.method({
808
859
  selector: unescape('testPrinting'),
809
860
  category: 'tests',
810
- fn: function (){
861
+ fn: function () {
811
862
  var self=this;
812
863
  smalltalk.send(self, "_assert_", [smalltalk.send(smalltalk.send(smalltalk.send(self, "_jsObject", []), "_printString", []), "__eq", [unescape("%5Bobject%20Object%5D")])]);
813
864
  return self;},
@@ -826,7 +877,7 @@ unescape('_setUp'),
826
877
  smalltalk.method({
827
878
  selector: unescape('setUp'),
828
879
  category: 'running',
829
- fn: function (){
880
+ fn: function () {
830
881
  var self=this;
831
882
  (self['@backUpCommitPathJs']=smalltalk.send((smalltalk.Package || Package), "_defaultCommitPathJs", []));
832
883
  (self['@backUpCommitPathSt']=smalltalk.send((smalltalk.Package || Package), "_defaultCommitPathSt", []));
@@ -846,7 +897,7 @@ unescape('_tearDown'),
846
897
  smalltalk.method({
847
898
  selector: unescape('tearDown'),
848
899
  category: 'running',
849
- fn: function (){
900
+ fn: function () {
850
901
  var self=this;
851
902
  (function($rec){smalltalk.send($rec, "_defaultCommitPathJs_", [self['@backUpCommitPathJs']]);return smalltalk.send($rec, "_defaultCommitPathSt_", [self['@backUpCommitPathSt']]);})((smalltalk.Package || Package));
852
903
  return self;},
@@ -862,7 +913,7 @@ unescape('_testGrulCommitPathStShouldBeGrulSt'),
862
913
  smalltalk.method({
863
914
  selector: unescape('testGrulCommitPathStShouldBeGrulSt'),
864
915
  category: 'tests',
865
- fn: function (){
916
+ fn: function () {
866
917
  var self=this;
867
918
  smalltalk.send(self, "_assert_equals_", [unescape("grul/st"), smalltalk.send(self['@grulPackage'], "_commitPathSt", [])]);
868
919
  return self;},
@@ -878,7 +929,7 @@ unescape('_testZorkCommitPathStShouldBeSt'),
878
929
  smalltalk.method({
879
930
  selector: unescape('testZorkCommitPathStShouldBeSt'),
880
931
  category: 'tests',
881
- fn: function (){
932
+ fn: function () {
882
933
  var self=this;
883
934
  smalltalk.send(self, "_assert_equals_", ["st", smalltalk.send(self['@zorkPackage'], "_commitPathSt", [])]);
884
935
  return self;},
@@ -894,7 +945,7 @@ unescape('_testZorkCommitPathJsShouldBeJs'),
894
945
  smalltalk.method({
895
946
  selector: unescape('testZorkCommitPathJsShouldBeJs'),
896
947
  category: 'tests',
897
- fn: function (){
948
+ fn: function () {
898
949
  var self=this;
899
950
  smalltalk.send(self, "_assert_equals_", ["js", smalltalk.send(self['@zorkPackage'], "_commitPathJs", [])]);
900
951
  return self;},
@@ -910,7 +961,7 @@ unescape('_testGrulCommitPathJsShouldBeServerGrulJs'),
910
961
  smalltalk.method({
911
962
  selector: unescape('testGrulCommitPathJsShouldBeServerGrulJs'),
912
963
  category: 'tests',
913
- fn: function (){
964
+ fn: function () {
914
965
  var self=this;
915
966
  smalltalk.send(self, "_assert_equals_", [unescape("server/grul/js"), smalltalk.send(self['@grulPackage'], "_commitPathJs", [])]);
916
967
  return self;},
@@ -923,113 +974,13 @@ smalltalk.PackageTest);
923
974
 
924
975
 
925
976
 
926
- smalltalk.addClass('PackageWithDefaultCommitPathChangedTest', smalltalk.PackageTest, [], 'Kernel-Tests');
927
- smalltalk.addMethod(
928
- unescape('_setUp'),
929
- smalltalk.method({
930
- selector: unescape('setUp'),
931
- category: 'running',
932
- fn: function (){
933
- var self=this;
934
- smalltalk.send(self, "_setUp", [], smalltalk.PackageTest);
935
- (function($rec){smalltalk.send($rec, "_defaultCommitPathJs_", [unescape("javascripts/")]);return smalltalk.send($rec, "_defaultCommitPathSt_", [unescape("smalltalk/")]);})((smalltalk.Package || Package));
936
- return self;},
937
- args: [],
938
- source: unescape('setUp%0A%09super%20setUp.%0A%0A%09Package%0A%09%09defaultCommitPathJs%3A%20%27javascripts/%27%3B%0A%09%09defaultCommitPathSt%3A%20%27smalltalk/%27.'),
939
- messageSends: ["setUp", "defaultCommitPathJs:", "defaultCommitPathSt:"],
940
- referencedClasses: ["Package"]
941
- }),
942
- smalltalk.PackageWithDefaultCommitPathChangedTest);
943
-
944
- smalltalk.addMethod(
945
- unescape('_testGrulCommitPathJsShouldBeServerGrulJs'),
946
- smalltalk.method({
947
- selector: unescape('testGrulCommitPathJsShouldBeServerGrulJs'),
948
- category: 'tests',
949
- fn: function (){
950
- var self=this;
951
- smalltalk.send(self, "_assert_equals_", [unescape("server/grul/js"), smalltalk.send(self['@grulPackage'], "_commitPathJs", [])]);
952
- return self;},
953
- args: [],
954
- source: unescape('testGrulCommitPathJsShouldBeServerGrulJs%0A%09self%20assert%3A%20%27server/grul/js%27%20equals%3A%20grulPackage%20commitPathJs'),
955
- messageSends: ["assert:equals:", "commitPathJs"],
956
- referencedClasses: []
957
- }),
958
- smalltalk.PackageWithDefaultCommitPathChangedTest);
959
-
960
- smalltalk.addMethod(
961
- unescape('_testGrulCommitPathStShouldBeGrulSt'),
962
- smalltalk.method({
963
- selector: unescape('testGrulCommitPathStShouldBeGrulSt'),
964
- category: 'tests',
965
- fn: function (){
966
- var self=this;
967
- smalltalk.send(self, "_assert_equals_", [unescape("grul/st"), smalltalk.send(self['@grulPackage'], "_commitPathSt", [])]);
968
- return self;},
969
- args: [],
970
- source: unescape('testGrulCommitPathStShouldBeGrulSt%0A%09self%20assert%3A%20%27grul/st%27%20equals%3A%20grulPackage%20commitPathSt'),
971
- messageSends: ["assert:equals:", "commitPathSt"],
972
- referencedClasses: []
973
- }),
974
- smalltalk.PackageWithDefaultCommitPathChangedTest);
975
-
976
- smalltalk.addMethod(
977
- unescape('_testZorkCommitPathJsShouldBeJavascript'),
978
- smalltalk.method({
979
- selector: unescape('testZorkCommitPathJsShouldBeJavascript'),
980
- category: 'tests',
981
- fn: function (){
982
- var self=this;
983
- smalltalk.send(self, "_assert_equals_", [unescape("javascripts/"), smalltalk.send(self['@zorkPackage'], "_commitPathJs", [])]);
984
- return self;},
985
- args: [],
986
- source: unescape('testZorkCommitPathJsShouldBeJavascript%0A%09self%20assert%3A%20%27javascripts/%27%20equals%3A%20zorkPackage%20commitPathJs'),
987
- messageSends: ["assert:equals:", "commitPathJs"],
988
- referencedClasses: []
989
- }),
990
- smalltalk.PackageWithDefaultCommitPathChangedTest);
991
-
992
- smalltalk.addMethod(
993
- unescape('_testZorkCommitPathStShouldBeSmalltalk'),
994
- smalltalk.method({
995
- selector: unescape('testZorkCommitPathStShouldBeSmalltalk'),
996
- category: 'tests',
997
- fn: function (){
998
- var self=this;
999
- smalltalk.send(self, "_assert_equals_", [unescape("smalltalk/"), smalltalk.send(self['@zorkPackage'], "_commitPathSt", [])]);
1000
- return self;},
1001
- args: [],
1002
- source: unescape('testZorkCommitPathStShouldBeSmalltalk%0A%09self%20assert%3A%20%27smalltalk/%27%20equals%3A%20zorkPackage%20commitPathSt'),
1003
- messageSends: ["assert:equals:", "commitPathSt"],
1004
- referencedClasses: []
1005
- }),
1006
- smalltalk.PackageWithDefaultCommitPathChangedTest);
1007
-
1008
-
1009
- smalltalk.addMethod(
1010
- unescape('_shouldInheritSelectors'),
1011
- smalltalk.method({
1012
- selector: unescape('shouldInheritSelectors'),
1013
- category: 'accessing',
1014
- fn: function (){
1015
- var self=this;
1016
- return false;
1017
- return self;},
1018
- args: [],
1019
- source: unescape('shouldInheritSelectors%0A%09%5E%20false'),
1020
- messageSends: [],
1021
- referencedClasses: []
1022
- }),
1023
- smalltalk.PackageWithDefaultCommitPathChangedTest.klass);
1024
-
1025
-
1026
977
  smalltalk.addClass('BlockClosureTest', smalltalk.TestCase, [], 'Kernel-Tests');
1027
978
  smalltalk.addMethod(
1028
979
  unescape('_testValue'),
1029
980
  smalltalk.method({
1030
981
  selector: unescape('testValue'),
1031
982
  category: 'tests',
1032
- fn: function (){
983
+ fn: function () {
1033
984
  var self=this;
1034
985
  smalltalk.send(self, "_assert_equals_", [smalltalk.send((function(){return (1) + (1);}), "_value", []), (2)]);
1035
986
  smalltalk.send(self, "_assert_equals_", [smalltalk.send((function(x){return ((($receiver = x).klass === smalltalk.Number) ? $receiver +(1) : smalltalk.send($receiver, "__plus", [(1)]));}), "_value_", [(2)]), (3)]);
@@ -1048,7 +999,7 @@ unescape('_testOnDo'),
1048
999
  smalltalk.method({
1049
1000
  selector: unescape('testOnDo'),
1050
1001
  category: 'tests',
1051
- fn: function (){
1002
+ fn: function () {
1052
1003
  var self=this;
1053
1004
  smalltalk.send(self, "_assert_", [smalltalk.send((function(){return smalltalk.send(smalltalk.send((smalltalk.Error || Error), "_new", []), "_signal", []);}), "_on_do_", [(smalltalk.Error || Error), (function(ex){return true;})])]);
1054
1005
  return self;},
@@ -1064,7 +1015,7 @@ unescape('_testEnsure'),
1064
1015
  smalltalk.method({
1065
1016
  selector: unescape('testEnsure'),
1066
1017
  category: 'tests',
1067
- fn: function (){
1018
+ fn: function () {
1068
1019
  var self=this;
1069
1020
  smalltalk.send(self, "_assert_", [smalltalk.send((function(){return smalltalk.send((smalltalk.Error || Error), "_new", []);}), "_ensure_", [(function(){return true;})])]);
1070
1021
  return self;},
@@ -1080,7 +1031,7 @@ unescape('_testNumArgs'),
1080
1031
  smalltalk.method({
1081
1032
  selector: unescape('testNumArgs'),
1082
1033
  category: 'tests',
1083
- fn: function (){
1034
+ fn: function () {
1084
1035
  var self=this;
1085
1036
  smalltalk.send(self, "_assert_equals_", [smalltalk.send((function(){return nil;}), "_numArgs", []), (0)]);
1086
1037
  smalltalk.send(self, "_assert_equals_", [smalltalk.send((function(a, b){return nil;}), "_numArgs", []), (2)]);
@@ -1097,7 +1048,7 @@ unescape('_testValueWithPossibleArguments'),
1097
1048
  smalltalk.method({
1098
1049
  selector: unescape('testValueWithPossibleArguments'),
1099
1050
  category: 'tests',
1100
- fn: function (){
1051
+ fn: function () {
1101
1052
  var self=this;
1102
1053
  smalltalk.send(self, "_assert_equals_", [smalltalk.send((function(){return (1);}), "_valueWithPossibleArguments_", [[(3), (4)]]), (1)]);
1103
1054
  smalltalk.send(self, "_assert_equals_", [smalltalk.send((function(a){return ((($receiver = a).klass === smalltalk.Number) ? $receiver +(4) : smalltalk.send($receiver, "__plus", [(4)]));}), "_valueWithPossibleArguments_", [[(3), (4)]]), (7)]);
@@ -1115,7 +1066,7 @@ unescape('_testWhileTrue'),
1115
1066
  smalltalk.method({
1116
1067
  selector: unescape('testWhileTrue'),
1117
1068
  category: 'tests',
1118
- fn: function (){
1069
+ fn: function () {
1119
1070
  var self=this;
1120
1071
  var i=nil;
1121
1072
  (i=(0));
@@ -1137,7 +1088,7 @@ unescape('_testWhileFalse'),
1137
1088
  smalltalk.method({
1138
1089
  selector: unescape('testWhileFalse'),
1139
1090
  category: 'tests',
1140
- fn: function (){
1091
+ fn: function () {
1141
1092
  var self=this;
1142
1093
  var i=nil;
1143
1094
  (i=(0));
@@ -1159,7 +1110,7 @@ unescape('_testCompiledSource'),
1159
1110
  smalltalk.method({
1160
1111
  selector: unescape('testCompiledSource'),
1161
1112
  category: 'tests',
1162
- fn: function (){
1113
+ fn: function () {
1163
1114
  var self=this;
1164
1115
  smalltalk.send(self, "_assert_", [smalltalk.send(smalltalk.send((function(){return (1) + (1);}), "_compiledSource", []), "_includesSubString_", ["function"])]);
1165
1116
  return self;},
@@ -1178,7 +1129,7 @@ unescape('_testEquality'),
1178
1129
  smalltalk.method({
1179
1130
  selector: unescape('testEquality'),
1180
1131
  category: 'tests',
1181
- fn: function (){
1132
+ fn: function () {
1182
1133
  var self=this;
1183
1134
  var o=nil;
1184
1135
  (o=smalltalk.send((smalltalk.Object || Object), "_new", []));
@@ -1199,7 +1150,7 @@ unescape('_testIdentity'),
1199
1150
  smalltalk.method({
1200
1151
  selector: unescape('testIdentity'),
1201
1152
  category: 'tests',
1202
- fn: function (){
1153
+ fn: function () {
1203
1154
  var self=this;
1204
1155
  var o=nil;
1205
1156
  (o=smalltalk.send((smalltalk.Object || Object), "_new", []));
@@ -1218,7 +1169,7 @@ unescape('_testHalt'),
1218
1169
  smalltalk.method({
1219
1170
  selector: unescape('testHalt'),
1220
1171
  category: 'tests',
1221
- fn: function (){
1172
+ fn: function () {
1222
1173
  var self=this;
1223
1174
  smalltalk.send(self, "_should_raise_", [(function(){return smalltalk.send(smalltalk.send((smalltalk.Object || Object), "_new", []), "_halt", []);}), (smalltalk.Error || Error)]);
1224
1175
  return self;},
@@ -1234,7 +1185,7 @@ unescape('_testBasicAccess'),
1234
1185
  smalltalk.method({
1235
1186
  selector: unescape('testBasicAccess'),
1236
1187
  category: 'tests',
1237
- fn: function (){
1188
+ fn: function () {
1238
1189
  var self=this;
1239
1190
  var o=nil;
1240
1191
  (o=smalltalk.send((smalltalk.Object || Object), "_new", []));
@@ -1254,7 +1205,7 @@ unescape('_testNilUndefined'),
1254
1205
  smalltalk.method({
1255
1206
  selector: unescape('testNilUndefined'),
1256
1207
  category: 'tests',
1257
- fn: function (){
1208
+ fn: function () {
1258
1209
  var self=this;
1259
1210
  smalltalk.send(self, "_assert_", [smalltalk.send(nil, "__eq", [(typeof undefined == 'undefined' ? nil : undefined)])]);
1260
1211
  return self;},
@@ -1270,7 +1221,7 @@ unescape('_testidentityHash'),
1270
1221
  smalltalk.method({
1271
1222
  selector: unescape('testidentityHash'),
1272
1223
  category: 'tests',
1273
- fn: function (){
1224
+ fn: function () {
1274
1225
  var self=this;
1275
1226
  var o1=nil;
1276
1227
  var o2=nil;
@@ -1291,7 +1242,7 @@ unescape('_testBasicPerform'),
1291
1242
  smalltalk.method({
1292
1243
  selector: unescape('testBasicPerform'),
1293
1244
  category: 'tests',
1294
- fn: function (){
1245
+ fn: function () {
1295
1246
  var self=this;
1296
1247
  var o=nil;
1297
1248
  (o=smalltalk.send((smalltalk.Object || Object), "_new", []));
@@ -1312,7 +1263,7 @@ unescape('_testIfNil'),
1312
1263
  smalltalk.method({
1313
1264
  selector: unescape('testIfNil'),
1314
1265
  category: 'tests',
1315
- fn: function (){
1266
+ fn: function () {
1316
1267
  var self=this;
1317
1268
  smalltalk.send(self, "_deny_", [smalltalk.send(smalltalk.send((smalltalk.Object || Object), "_new", []), "_isNil", [])]);
1318
1269
  smalltalk.send(self, "_deny_", [smalltalk.send((($receiver = smalltalk.send((smalltalk.Object || Object), "_new", [])) == nil || $receiver == undefined) ? (function(){return true;})() : $receiver, "__eq", [true])]);
@@ -1332,7 +1283,7 @@ unescape('_testInstVars'),
1332
1283
  smalltalk.method({
1333
1284
  selector: unescape('testInstVars'),
1334
1285
  category: 'tests',
1335
- fn: function (){
1286
+ fn: function () {
1336
1287
  var self=this;
1337
1288
  var o=nil;
1338
1289
  (o=smalltalk.send((smalltalk.ObjectMock || ObjectMock), "_new", []));
@@ -1353,7 +1304,7 @@ unescape('_testYourself'),
1353
1304
  smalltalk.method({
1354
1305
  selector: unescape('testYourself'),
1355
1306
  category: 'tests',
1356
- fn: function (){
1307
+ fn: function () {
1357
1308
  var self=this;
1358
1309
  var o=nil;
1359
1310
  (o=smalltalk.send((smalltalk.ObjectMock || ObjectMock), "_new", []));
@@ -1371,7 +1322,7 @@ unescape('_testDNU'),
1371
1322
  smalltalk.method({
1372
1323
  selector: unescape('testDNU'),
1373
1324
  category: 'tests',
1374
- fn: function (){
1325
+ fn: function () {
1375
1326
  var self=this;
1376
1327
  smalltalk.send(self, "_should_raise_", [(function(){return smalltalk.send(smalltalk.send((smalltalk.Object || Object), "_new", []), "_foo", []);}), (smalltalk.MessageNotUnderstood || MessageNotUnderstood)]);
1377
1328
  return self;},
@@ -1390,7 +1341,7 @@ unescape('_testEquality'),
1390
1341
  smalltalk.method({
1391
1342
  selector: unescape('testEquality'),
1392
1343
  category: 'tests',
1393
- fn: function (){
1344
+ fn: function () {
1394
1345
  var self=this;
1395
1346
  smalltalk.send(self, "_assert_", [smalltalk.send(smalltalk.symbolFor("hello"), "__eq", [smalltalk.symbolFor("hello")])]);
1396
1347
  smalltalk.send(self, "_deny_", [smalltalk.send(smalltalk.symbolFor("hello"), "__eq", [smalltalk.symbolFor("world")])]);
@@ -1411,7 +1362,7 @@ unescape('_testAt'),
1411
1362
  smalltalk.method({
1412
1363
  selector: unescape('testAt'),
1413
1364
  category: 'tests',
1414
- fn: function (){
1365
+ fn: function () {
1415
1366
  var self=this;
1416
1367
  smalltalk.send(self, "_assert_", [smalltalk.send(smalltalk.send(smalltalk.symbolFor("hello"), "_at_", [(1)]), "__eq", ["h"])]);
1417
1368
  smalltalk.send(self, "_assert_", [smalltalk.send(smalltalk.send(smalltalk.symbolFor("hello"), "_at_", [(5)]), "__eq", ["o"])]);
@@ -1429,7 +1380,7 @@ unescape('_testAtPut'),
1429
1380
  smalltalk.method({
1430
1381
  selector: unescape('testAtPut'),
1431
1382
  category: 'tests',
1432
- fn: function (){
1383
+ fn: function () {
1433
1384
  var self=this;
1434
1385
  smalltalk.send(self, "_should_raise_", [(function(){return smalltalk.send("hello", "_at_put_", [(1), "a"]);}), (smalltalk.Error || Error)]);
1435
1386
  return self;},
@@ -1445,7 +1396,7 @@ unescape('_testIdentity'),
1445
1396
  smalltalk.method({
1446
1397
  selector: unescape('testIdentity'),
1447
1398
  category: 'tests',
1448
- fn: function (){
1399
+ fn: function () {
1449
1400
  var self=this;
1450
1401
  smalltalk.send(self, "_assert_", [smalltalk.send(smalltalk.symbolFor("hello"), "__eq_eq", [smalltalk.symbolFor("hello")])]);
1451
1402
  smalltalk.send(self, "_deny_", [smalltalk.send(smalltalk.symbolFor("hello"), "__eq_eq", [smalltalk.symbolFor("world")])]);
@@ -1464,7 +1415,7 @@ unescape('_testComparing'),
1464
1415
  smalltalk.method({
1465
1416
  selector: unescape('testComparing'),
1466
1417
  category: 'tests',
1467
- fn: function (){
1418
+ fn: function () {
1468
1419
  var self=this;
1469
1420
  smalltalk.send(self, "_assert_", [((($receiver = smalltalk.symbolFor("ab")).klass === smalltalk.Number) ? $receiver >smalltalk.symbolFor("aa") : smalltalk.send($receiver, "__gt", [smalltalk.symbolFor("aa")]))]);
1470
1421
  smalltalk.send(self, "_deny_", [((($receiver = smalltalk.symbolFor("ab")).klass === smalltalk.Number) ? $receiver >smalltalk.symbolFor("ba") : smalltalk.send($receiver, "__gt", [smalltalk.symbolFor("ba")]))]);
@@ -1487,7 +1438,7 @@ unescape('_testSize'),
1487
1438
  smalltalk.method({
1488
1439
  selector: unescape('testSize'),
1489
1440
  category: 'tests',
1490
- fn: function (){
1441
+ fn: function () {
1491
1442
  var self=this;
1492
1443
  smalltalk.send(self, "_assert_equals_", [smalltalk.send(smalltalk.symbolFor("a"), "_size", []), (1)]);
1493
1444
  smalltalk.send(self, "_assert_equals_", [smalltalk.send(smalltalk.symbolFor("aaaaa"), "_size", []), (5)]);
@@ -1504,7 +1455,7 @@ unescape('_testAsString'),
1504
1455
  smalltalk.method({
1505
1456
  selector: unescape('testAsString'),
1506
1457
  category: 'tests',
1507
- fn: function (){
1458
+ fn: function () {
1508
1459
  var self=this;
1509
1460
  smalltalk.send(self, "_assert_equals_", [smalltalk.send(smalltalk.symbolFor("hello"), "_asString", []), "hello"]);
1510
1461
  return self;},
@@ -1520,7 +1471,7 @@ unescape('_testAsSymbol'),
1520
1471
  smalltalk.method({
1521
1472
  selector: unescape('testAsSymbol'),
1522
1473
  category: 'tests',
1523
- fn: function (){
1474
+ fn: function () {
1524
1475
  var self=this;
1525
1476
  smalltalk.send(self, "_assert_", [smalltalk.send(smalltalk.symbolFor("hello"), "__eq_eq", [smalltalk.send(smalltalk.symbolFor("hello"), "_asSymbol", [])])]);
1526
1477
  return self;},
@@ -1536,7 +1487,7 @@ unescape('_testCopying'),
1536
1487
  smalltalk.method({
1537
1488
  selector: unescape('testCopying'),
1538
1489
  category: 'tests',
1539
- fn: function (){
1490
+ fn: function () {
1540
1491
  var self=this;
1541
1492
  smalltalk.send(self, "_assert_", [smalltalk.send(smalltalk.send(smalltalk.symbolFor("hello"), "_copy", []), "__eq_eq", [smalltalk.symbolFor("hello")])]);
1542
1493
  smalltalk.send(self, "_assert_", [smalltalk.send(smalltalk.send(smalltalk.symbolFor("hello"), "_deepCopy", []), "__eq_eq", [smalltalk.symbolFor("hello")])]);
@@ -1553,7 +1504,7 @@ unescape('_testIsSymbolIsString'),
1553
1504
  smalltalk.method({
1554
1505
  selector: unescape('testIsSymbolIsString'),
1555
1506
  category: 'tests',
1556
- fn: function (){
1507
+ fn: function () {
1557
1508
  var self=this;
1558
1509
  smalltalk.send(self, "_assert_", [smalltalk.send(smalltalk.symbolFor("hello"), "_isSymbol", [])]);
1559
1510
  smalltalk.send(self, "_deny_", [smalltalk.send("hello", "_isSymbol", [])]);
@@ -1575,7 +1526,7 @@ unescape('_foo'),
1575
1526
  smalltalk.method({
1576
1527
  selector: unescape('foo'),
1577
1528
  category: 'not yet classified',
1578
- fn: function (){
1529
+ fn: function () {
1579
1530
  var self=this;
1580
1531
  return self['@foo'];
1581
1532
  return self;},
@@ -1591,7 +1542,7 @@ unescape('_foo_'),
1591
1542
  smalltalk.method({
1592
1543
  selector: unescape('foo%3A'),
1593
1544
  category: 'not yet classified',
1594
- fn: function (anObject){
1545
+ fn: function (anObject) {
1595
1546
  var self=this;
1596
1547
  (self['@foo']=anObject);
1597
1548
  return self;},
@@ -1610,7 +1561,7 @@ unescape('_testIsNil'),
1610
1561
  smalltalk.method({
1611
1562
  selector: unescape('testIsNil'),
1612
1563
  category: 'tests',
1613
- fn: function (){
1564
+ fn: function () {
1614
1565
  var self=this;
1615
1566
  smalltalk.send(self, "_assert_", [smalltalk.send(nil, "_isNil", [])]);
1616
1567
  smalltalk.send(self, "_deny_", [smalltalk.send(nil, "_notNil", [])]);
@@ -1627,7 +1578,7 @@ unescape('_testIfNil'),
1627
1578
  smalltalk.method({
1628
1579
  selector: unescape('testIfNil'),
1629
1580
  category: 'tests',
1630
- fn: function (){
1581
+ fn: function () {
1631
1582
  var self=this;
1632
1583
  smalltalk.send(self, "_assert_equals_", [(($receiver = nil) == nil || $receiver == undefined) ? (function(){return true;})() : $receiver, true]);
1633
1584
  smalltalk.send(self, "_deny_", [smalltalk.send((($receiver = nil) != nil && $receiver != undefined) ? (function(){return true;})() : nil, "__eq", [true])]);
@@ -1646,7 +1597,7 @@ unescape('_testCopying'),
1646
1597
  smalltalk.method({
1647
1598
  selector: unescape('testCopying'),
1648
1599
  category: 'tests',
1649
- fn: function (){
1600
+ fn: function () {
1650
1601
  var self=this;
1651
1602
  smalltalk.send(self, "_assert_equals_", [smalltalk.send(nil, "_copy", []), nil]);
1652
1603
  return self;},
@@ -1662,7 +1613,7 @@ unescape('_testDeepCopy'),
1662
1613
  smalltalk.method({
1663
1614
  selector: unescape('testDeepCopy'),
1664
1615
  category: 'tests',
1665
- fn: function (){
1616
+ fn: function () {
1666
1617
  var self=this;
1667
1618
  smalltalk.send(self, "_assert_", [smalltalk.send(smalltalk.send(nil, "_deepCopy", []), "__eq", [nil])]);
1668
1619
  return self;},
@@ -1681,7 +1632,7 @@ unescape('_testAccessing'),
1681
1632
  smalltalk.method({
1682
1633
  selector: unescape('testAccessing'),
1683
1634
  category: 'tests',
1684
- fn: function (){
1635
+ fn: function () {
1685
1636
  var self=this;
1686
1637
  smalltalk.send(self, "_assert_equals_", [smalltalk.send(smalltalk.send((smalltalk.Point || Point), "_x_y_", [(3), (4)]), "_x", []), (3)]);
1687
1638
  smalltalk.send(self, "_assert_equals_", [smalltalk.send(smalltalk.send((smalltalk.Point || Point), "_x_y_", [(3), (4)]), "_y", []), (4)]);
@@ -1700,7 +1651,7 @@ unescape('_testAt'),
1700
1651
  smalltalk.method({
1701
1652
  selector: unescape('testAt'),
1702
1653
  category: 'tests',
1703
- fn: function (){
1654
+ fn: function () {
1704
1655
  var self=this;
1705
1656
  smalltalk.send(self, "_assert_equals_", [smalltalk.send((3), "__at", [(4)]), smalltalk.send((smalltalk.Point || Point), "_x_y_", [(3), (4)])]);
1706
1657
  return self;},
@@ -1716,7 +1667,7 @@ unescape('_testEgality'),
1716
1667
  smalltalk.method({
1717
1668
  selector: unescape('testEgality'),
1718
1669
  category: 'tests',
1719
- fn: function (){
1670
+ fn: function () {
1720
1671
  var self=this;
1721
1672
  smalltalk.send(self, "_assert_", [smalltalk.send(smalltalk.send((3), "__at", [(4)]), "__eq", [smalltalk.send((3), "__at", [(4)])])]);
1722
1673
  smalltalk.send(self, "_deny_", [smalltalk.send(smalltalk.send((3), "__at", [(5)]), "__eq", [smalltalk.send((3), "__at", [(6)])])]);
@@ -1733,7 +1684,7 @@ unescape('_testArithmetic'),
1733
1684
  smalltalk.method({
1734
1685
  selector: unescape('testArithmetic'),
1735
1686
  category: 'tests',
1736
- fn: function (){
1687
+ fn: function () {
1737
1688
  var self=this;
1738
1689
  smalltalk.send(self, "_assert_equals_", [((($receiver = smalltalk.send((3), "__at", [(4)])).klass === smalltalk.Number) ? $receiver *smalltalk.send((3), "__at", [(4)]) : smalltalk.send($receiver, "__star", [smalltalk.send((3), "__at", [(4)])])), smalltalk.send((smalltalk.Point || Point), "_x_y_", [(9), (16)])]);
1739
1690
  smalltalk.send(self, "_assert_equals_", [((($receiver = smalltalk.send((3), "__at", [(4)])).klass === smalltalk.Number) ? $receiver +smalltalk.send((3), "__at", [(4)]) : smalltalk.send($receiver, "__plus", [smalltalk.send((3), "__at", [(4)])])), smalltalk.send((smalltalk.Point || Point), "_x_y_", [(6), (8)])]);
@@ -1747,6 +1698,25 @@ referencedClasses: ["Point"]
1747
1698
  }),
1748
1699
  smalltalk.PointTest);
1749
1700
 
1701
+ smalltalk.addMethod(
1702
+ unescape('_testTranslateBy'),
1703
+ smalltalk.method({
1704
+ selector: unescape('testTranslateBy'),
1705
+ category: 'tests',
1706
+ fn: function (){
1707
+ var self=this;
1708
+ smalltalk.send(self, "_assert_equals_", [smalltalk.send((3), "__at", [(4)]), smalltalk.send(smalltalk.send((3), "__at", [(3)]), "_translateBy_", [smalltalk.send((0), "__at", [(1)])])]);
1709
+ smalltalk.send(self, "_assert_equals_", [smalltalk.send((3), "__at", [(2)]), smalltalk.send(smalltalk.send((3), "__at", [(3)]), "_translateBy_", [smalltalk.send((0), "__at", [smalltalk.send((1), "_negated", [])])])]);
1710
+ smalltalk.send(self, "_assert_equals_", [smalltalk.send((5), "__at", [(6)]), smalltalk.send(smalltalk.send((3), "__at", [(3)]), "_translateBy_", [smalltalk.send((2), "__at", [(3)])])]);
1711
+ smalltalk.send(self, "_assert_equals_", [smalltalk.send((0), "__at", [(3)]), smalltalk.send(smalltalk.send((3), "__at", [(3)]), "_translateBy_", [smalltalk.send(smalltalk.send((3), "_negated", []), "__at", [(0)])])]);
1712
+ return self;},
1713
+ args: [],
1714
+ source: unescape('testTranslateBy%0A%09self%20assert%3A%203@4%20equals%3A%20%283@3%20translateBy%3A%200@1%29.%0A%09self%20assert%3A%203@2%20equals%3A%20%283@3%20translateBy%3A%200@1%20negated%29.%0A%09self%20assert%3A%205@6%20equals%3A%20%283@3%20translateBy%3A%202@3%29.%0A%09self%20assert%3A%200@3%20equals%3A%20%283@3%20translateBy%3A%203%20negated%20@0%29.'),
1715
+ messageSends: ["assert:equals:", unescape("@"), "translateBy:", "negated"],
1716
+ referencedClasses: []
1717
+ }),
1718
+ smalltalk.PointTest);
1719
+
1750
1720
 
1751
1721
 
1752
1722
  smalltalk.addClass('RandomTest', smalltalk.TestCase, [], 'Kernel-Tests');
@@ -1755,7 +1725,7 @@ unescape('_textNext'),
1755
1725
  smalltalk.method({
1756
1726
  selector: unescape('textNext'),
1757
1727
  category: 'tests',
1758
- fn: function (){
1728
+ fn: function () {
1759
1729
  var self=this;
1760
1730
  smalltalk.send((10000), "_timesRepeat_", [(function(){var current=nil;
1761
1731
  var next=nil;
@@ -1776,7 +1746,7 @@ unescape('_setUp'),
1776
1746
  smalltalk.method({
1777
1747
  selector: unescape('setUp'),
1778
1748
  category: 'running',
1779
- fn: function (){
1749
+ fn: function () {
1780
1750
  var self=this;
1781
1751
  (self['@builder']=smalltalk.send((smalltalk.ClassBuilder || ClassBuilder), "_new", []));
1782
1752
  return self;},
@@ -1792,7 +1762,7 @@ unescape('_tearDown'),
1792
1762
  smalltalk.method({
1793
1763
  selector: unescape('tearDown'),
1794
1764
  category: 'running',
1795
- fn: function (){
1765
+ fn: function () {
1796
1766
  var self=this;
1797
1767
  (($receiver = self['@theClass']) != nil && $receiver != undefined) ? (function(){smalltalk.send(smalltalk.send((smalltalk.Smalltalk || Smalltalk), "_current", []), "_removeClass_", [self['@theClass']]);return (self['@theClass']=nil);})() : nil;
1798
1768
  return self;},
@@ -1808,7 +1778,7 @@ unescape('_testClassCopy'),
1808
1778
  smalltalk.method({
1809
1779
  selector: unescape('testClassCopy'),
1810
1780
  category: 'running',
1811
- fn: function (){
1781
+ fn: function () {
1812
1782
  var self=this;
1813
1783
  (self['@theClass']=smalltalk.send(self['@builder'], "_copyClass_named_", [(smalltalk.ObjectMock || ObjectMock), "ObjectMock2"]));
1814
1784
  smalltalk.send(self, "_assert_", [smalltalk.send(smalltalk.send(self['@theClass'], "_superclass", []), "__eq_eq", [smalltalk.send((smalltalk.ObjectMock || ObjectMock), "_superclass", [])])]);
@@ -1829,7 +1799,7 @@ unescape('_testInstanceVariableNames'),
1829
1799
  smalltalk.method({
1830
1800
  selector: unescape('testInstanceVariableNames'),
1831
1801
  category: 'running',
1832
- fn: function (){
1802
+ fn: function () {
1833
1803
  var self=this;
1834
1804
  smalltalk.send(self, "_assert_equals_", [smalltalk.send(self['@builder'], "_instanceVariableNamesFor_", [" hello world "]), ["hello", "world"]]);
1835
1805
  return self;},
@@ -1848,7 +1818,7 @@ unescape('_testUnicity'),
1848
1818
  smalltalk.method({
1849
1819
  selector: unescape('testUnicity'),
1850
1820
  category: 'tests',
1851
- fn: function (){
1821
+ fn: function () {
1852
1822
  var self=this;
1853
1823
  var set=nil;
1854
1824
  (set=smalltalk.send((smalltalk.Set || Set), "_new", []));
@@ -1872,7 +1842,7 @@ unescape('_testAt'),
1872
1842
  smalltalk.method({
1873
1843
  selector: unescape('testAt'),
1874
1844
  category: 'tests',
1875
- fn: function (){
1845
+ fn: function () {
1876
1846
  var self=this;
1877
1847
  smalltalk.send(self, "_should_raise_", [(function(){return smalltalk.send(smalltalk.send((smalltalk.Set || Set), "_new", []), "_at_put_", [(1), (2)]);}), (smalltalk.Error || Error)]);
1878
1848
  return self;},
@@ -1888,7 +1858,7 @@ unescape('_testAddRemove'),
1888
1858
  smalltalk.method({
1889
1859
  selector: unescape('testAddRemove'),
1890
1860
  category: 'tests',
1891
- fn: function (){
1861
+ fn: function () {
1892
1862
  var self=this;
1893
1863
  var set=nil;
1894
1864
  (set=smalltalk.send((smalltalk.Set || Set), "_new", []));
@@ -1912,7 +1882,7 @@ unescape('_testSize'),
1912
1882
  smalltalk.method({
1913
1883
  selector: unescape('testSize'),
1914
1884
  category: 'tests',
1915
- fn: function (){
1885
+ fn: function () {
1916
1886
  var self=this;
1917
1887
  smalltalk.send(self, "_assert_equals_", [smalltalk.send(smalltalk.send((smalltalk.Set || Set), "_new", []), "_size", []), (0)]);
1918
1888
  smalltalk.send(self, "_assert_equals_", [smalltalk.send(smalltalk.send((smalltalk.Set || Set), "_withAll_", [[(1), (2), (3), (4)]]), "_size", []), (4)]);
@@ -1927,3 +1897,103 @@ smalltalk.SetTest);
1927
1897
 
1928
1898
 
1929
1899
 
1900
+ smalltalk.addClass('PackageWithDefaultCommitPathChangedTest', smalltalk.PackageTest, [], 'Kernel-Tests');
1901
+ smalltalk.addMethod(
1902
+ unescape('_setUp'),
1903
+ smalltalk.method({
1904
+ selector: unescape('setUp'),
1905
+ category: 'running',
1906
+ fn: function () {
1907
+ var self=this;
1908
+ smalltalk.send(self, "_setUp", [], smalltalk.PackageTest);
1909
+ (function($rec){smalltalk.send($rec, "_defaultCommitPathJs_", [unescape("javascripts/")]);return smalltalk.send($rec, "_defaultCommitPathSt_", [unescape("smalltalk/")]);})((smalltalk.Package || Package));
1910
+ return self;},
1911
+ args: [],
1912
+ source: unescape('setUp%0A%09super%20setUp.%0A%0A%09Package%0A%09%09defaultCommitPathJs%3A%20%27javascripts/%27%3B%0A%09%09defaultCommitPathSt%3A%20%27smalltalk/%27.'),
1913
+ messageSends: ["setUp", "defaultCommitPathJs:", "defaultCommitPathSt:"],
1914
+ referencedClasses: ["Package"]
1915
+ }),
1916
+ smalltalk.PackageWithDefaultCommitPathChangedTest);
1917
+
1918
+ smalltalk.addMethod(
1919
+ unescape('_testGrulCommitPathJsShouldBeServerGrulJs'),
1920
+ smalltalk.method({
1921
+ selector: unescape('testGrulCommitPathJsShouldBeServerGrulJs'),
1922
+ category: 'tests',
1923
+ fn: function () {
1924
+ var self=this;
1925
+ smalltalk.send(self, "_assert_equals_", [unescape("server/grul/js"), smalltalk.send(self['@grulPackage'], "_commitPathJs", [])]);
1926
+ return self;},
1927
+ args: [],
1928
+ source: unescape('testGrulCommitPathJsShouldBeServerGrulJs%0A%09self%20assert%3A%20%27server/grul/js%27%20equals%3A%20grulPackage%20commitPathJs'),
1929
+ messageSends: ["assert:equals:", "commitPathJs"],
1930
+ referencedClasses: []
1931
+ }),
1932
+ smalltalk.PackageWithDefaultCommitPathChangedTest);
1933
+
1934
+ smalltalk.addMethod(
1935
+ unescape('_testGrulCommitPathStShouldBeGrulSt'),
1936
+ smalltalk.method({
1937
+ selector: unescape('testGrulCommitPathStShouldBeGrulSt'),
1938
+ category: 'tests',
1939
+ fn: function () {
1940
+ var self=this;
1941
+ smalltalk.send(self, "_assert_equals_", [unescape("grul/st"), smalltalk.send(self['@grulPackage'], "_commitPathSt", [])]);
1942
+ return self;},
1943
+ args: [],
1944
+ source: unescape('testGrulCommitPathStShouldBeGrulSt%0A%09self%20assert%3A%20%27grul/st%27%20equals%3A%20grulPackage%20commitPathSt'),
1945
+ messageSends: ["assert:equals:", "commitPathSt"],
1946
+ referencedClasses: []
1947
+ }),
1948
+ smalltalk.PackageWithDefaultCommitPathChangedTest);
1949
+
1950
+ smalltalk.addMethod(
1951
+ unescape('_testZorkCommitPathJsShouldBeJavascript'),
1952
+ smalltalk.method({
1953
+ selector: unescape('testZorkCommitPathJsShouldBeJavascript'),
1954
+ category: 'tests',
1955
+ fn: function () {
1956
+ var self=this;
1957
+ smalltalk.send(self, "_assert_equals_", [unescape("javascripts/"), smalltalk.send(self['@zorkPackage'], "_commitPathJs", [])]);
1958
+ return self;},
1959
+ args: [],
1960
+ source: unescape('testZorkCommitPathJsShouldBeJavascript%0A%09self%20assert%3A%20%27javascripts/%27%20equals%3A%20zorkPackage%20commitPathJs'),
1961
+ messageSends: ["assert:equals:", "commitPathJs"],
1962
+ referencedClasses: []
1963
+ }),
1964
+ smalltalk.PackageWithDefaultCommitPathChangedTest);
1965
+
1966
+ smalltalk.addMethod(
1967
+ unescape('_testZorkCommitPathStShouldBeSmalltalk'),
1968
+ smalltalk.method({
1969
+ selector: unescape('testZorkCommitPathStShouldBeSmalltalk'),
1970
+ category: 'tests',
1971
+ fn: function () {
1972
+ var self=this;
1973
+ smalltalk.send(self, "_assert_equals_", [unescape("smalltalk/"), smalltalk.send(self['@zorkPackage'], "_commitPathSt", [])]);
1974
+ return self;},
1975
+ args: [],
1976
+ source: unescape('testZorkCommitPathStShouldBeSmalltalk%0A%09self%20assert%3A%20%27smalltalk/%27%20equals%3A%20zorkPackage%20commitPathSt'),
1977
+ messageSends: ["assert:equals:", "commitPathSt"],
1978
+ referencedClasses: []
1979
+ }),
1980
+ smalltalk.PackageWithDefaultCommitPathChangedTest);
1981
+
1982
+
1983
+ smalltalk.addMethod(
1984
+ unescape('_shouldInheritSelectors'),
1985
+ smalltalk.method({
1986
+ selector: unescape('shouldInheritSelectors'),
1987
+ category: 'accessing',
1988
+ fn: function () {
1989
+ var self=this;
1990
+ return false;
1991
+ return self;},
1992
+ args: [],
1993
+ source: unescape('shouldInheritSelectors%0A%09%5E%20false'),
1994
+ messageSends: [],
1995
+ referencedClasses: []
1996
+ }),
1997
+ smalltalk.PackageWithDefaultCommitPathChangedTest.klass);
1998
+
1999
+