首頁 探索 說明
註冊 登入
raisch
/
amber
派生自 amber/amber
1
0
複刻 0
檔案
目錄樹: 7b89883182
分支列表 標籤列表
amber
/
js
/
Kernel-Tests.js

Kernel-Tests.js 9.5 KB
文件歷史 原始文件

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124 
  1. smalltalk.addClass('StringTest', smalltalk.TestCase, [], 'Kernel-Tests');
    2. 

  2. smalltalk.addMethod(
    3. 

  3. '_testJoin',
    4. 

  4. smalltalk.method({
    5. 

  5. selector: 'testJoin',
    6. 

  6. category: 'tests',
    7. 

  7. fn: function (){
    8. 

  8. var self=this;
    9. 

  9. smalltalk.send(self, "_assert_equals_", [unescape("hello%2Cworld"), smalltalk.send(unescape("%2C"), "_join_", [["hello", "world"]])]);
    10. 

  10. return self;},
    11. 

  11. args: [],
    12. 

  12. source: unescape('testJoin%0A%09self%20assert%3A%20%27hello%2Cworld%27%20equals%3A%20%28%27%2C%27%20join%3A%20%23%28%27hello%27%20%27world%27%29%29'),
    13. 

  13. messageSends: ["assert:equals:", "join:"],
    14. 

  14. referencedClasses: []
    15. 

  15. }),
    16. 

  16. smalltalk.StringTest);
    17. 

  17. 

  18. smalltalk.addMethod(
    19. 

  19. '_testStreamContents',
    20. 

  20. smalltalk.method({
    21. 

  21. selector: 'testStreamContents',
    22. 

  22. category: 'tests',
    23. 

  23. fn: function (){
    24. 

  24. var self=this;
    25. 

  25. 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);})])]);
    26. 

  26. return self;},
    27. 

  27. args: [],
    28. 

  28. source: unescape('testStreamContents%0A%09self%20%0A%09%09assert%3A%20%27hello%20world%27%20%0A%09%09equals%3A%20%28String%20streamContents%3A%20%5B%3AaStream%7C%20aStream%20%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09%09%09%09%09nextPutAll%3A%20%27hello%27%3B%20space%3B%20%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09%09%09%09%09nextPutAll%3A%20%27world%27%5D%29'),
    29. 

  29. messageSends: ["assert:equals:", "streamContents:", "nextPutAll:", "space"],
    30. 

  30. referencedClasses: [smalltalk.String]
    31. 

  31. }),
    32. 

  32. smalltalk.StringTest);
    33. 

  33. 

  34. smalltalk.addMethod(
    35. 

  35. '_testIncludesSubString',
    36. 

  36. smalltalk.method({
    37. 

  37. selector: 'testIncludesSubString',
    38. 

  38. category: 'tests',
    39. 

  39. fn: function (){
    40. 

  40. var self=this;
    41. 

  41. smalltalk.send(self, "_assert_", [smalltalk.send("jtalk", "_includesSubString_", ["alk"])]);
    42. 

  42. smalltalk.send(self, "_deny_", [smalltalk.send("jtalk", "_includesSubString_", ["zork"])]);
    43. 

  43. return self;},
    44. 

  44. args: [],
    45. 

  45. source: unescape('testIncludesSubString%0A%09self%20assert%3A%20%28%27jtalk%27%20includesSubString%3A%20%27alk%27%29.%0A%09self%20deny%3A%20%28%27jtalk%27%20includesSubString%3A%20%27zork%27%29.'),
    46. 

  46. messageSends: ["assert:", "includesSubString:", "deny:"],
    47. 

  47. referencedClasses: []
    48. 

  48. }),
    49. 

  49. smalltalk.StringTest);
    50. 

  50. 

  51. 

  52. 

  53. smalltalk.addClass('DictionaryTest', smalltalk.TestCase, [], 'Kernel-Tests');
    54. 

  54. smalltalk.addMethod(
    55. 

  55. '_testPrintString',
    56. 

  56. smalltalk.method({
    57. 

  57. selector: 'testPrintString',
    58. 

  58. category: 'tests',
    59. 

  59. fn: function (){
    60. 

  60. var self=this;
    61. 

  61. 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", []))]);
    62. 

  62. return self;},
    63. 

  63. args: [],
    64. 

  64. source: unescape('testPrintString%0A%09self%20%0A%09%09assert%3A%20%27a%20Dictionary%28%27%27firstname%27%27%20-%3E%20%27%27James%27%27%20%2C%20%27%27lastname%27%27%20-%3E%20%27%27Bond%27%27%29%27%20%0A%09%09equals%3A%20%28Dictionary%20new%20%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09at%3A%27firstname%27%20put%3A%20%27James%27%3B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09at%3A%27lastname%27%20put%3A%20%27Bond%27%3B%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%09printString%29'),
    65. 

  65. messageSends: ["assert:equals:", "at:put:", "printString", "new"],
    66. 

  66. referencedClasses: [smalltalk.Dictionary]
    67. 

  67. }),
    68. 

  68. smalltalk.DictionaryTest);
    69. 

  69. 

  70. 

  71. 

  72. smalltalk.addClass('BooleanTest', smalltalk.TestCase, [], 'Kernel-Tests');
    73. 

  73. smalltalk.addMethod(
    74. 

  74. '_testLogic',
    75. 

  75. smalltalk.method({
    76. 

  76. selector: 'testLogic',
    77. 

  77. category: 'not yet classified',
    78. 

  78. fn: function (){
    79. 

  79. var self=this;
    80. 

  80. (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);
    81. 

  81. (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);
    82. 

  82. (function($rec){smalltalk.send($rec, "_assert_", [smalltalk.send(true, "_&", [(1) > (0)])]);smalltalk.send($rec, "_deny_", [smalltalk.send((1) > (0), "_&", [false])]);return smalltalk.send($rec, "_deny_", [smalltalk.send((1) > (0), "_&", [(1) > (2)])]);})(self);
    83. 

  83. (function($rec){smalltalk.send($rec, "_assert_", [smalltalk.send(false, "_|", [(1) > (0)])]);smalltalk.send($rec, "_assert_", [smalltalk.send((1) > (0), "_|", [false])]);return smalltalk.send($rec, "_assert_", [smalltalk.send((1) > (0), "_|", [(1) > (2)])]);})(self);
    84. 

  84. return self;},
    85. 

  85. args: [],
    86. 

  86. source: unescape('testLogic%0A%0A%09%22Trivial%20logic%20table%22%0A%09self%20assert%3A%20%28true%20%26%20true%29%3B%20deny%3A%20%28true%20%26%20false%29%3B%20deny%3A%20%28false%20%26%20true%29%3B%20deny%3A%20%28false%20%26%20false%29.%0A%09self%20assert%3A%20%28true%20%7C%20true%29%3B%20assert%3A%20%28true%20%7C%20false%29%3B%20assert%3A%20%28false%20%7C%20true%29%3B%20deny%3A%20%28false%20%7C%20false%29.%0A%20%20%20%20%20%20%20%20%22Checking%20that%20expressions%20work%20fine%20too%22%0A%09self%20assert%3A%20%28true%20%26%20%281%20%3E%200%29%29%3B%20deny%3A%20%28%281%20%3E%200%29%20%26%20false%29%3B%20deny%3A%20%28%281%20%3E%200%29%20%26%20%281%20%3E%202%29%29.%0A%20%20%20%20%20%20%20%20self%20assert%3A%20%28false%20%7C%20%281%20%3E%200%29%29%3B%20assert%3A%20%28%281%20%3E%200%29%20%7C%20false%29%3B%20assert%3A%20%28%281%20%3E%200%29%20%7C%20%281%20%3E%202%29%29'),
    87. 

  87. messageSends: ["assert:", unescape("%26"), "deny:", unescape("%7C"), unescape("%3E")],
    88. 

  88. referencedClasses: []
    89. 

  89. }),
    90. 

  90. smalltalk.BooleanTest);
    91. 

  91. 

  92. 

  93. 

  94. smalltalk.addClass('NumberTest', smalltalk.TestCase, [], 'Kernel-Tests');
    95. 

  95. smalltalk.addMethod(
    96. 

  96. '_testPrintShowingDecimalPlaces',
    97. 

  97. smalltalk.method({
    98. 

  98. selector: 'testPrintShowingDecimalPlaces',
    99. 

  99. category: 'not yet classified',
    100. 

  100. fn: function (){
    101. 

  101. var self=this;
    102. 

  102. smalltalk.send(self, "_assert_equals_", ["23.00", smalltalk.send((23), "_printShowingDecimalPlaces_", [(2)])]);
    103. 

  103. smalltalk.send(self, "_assert_equals_", ["23.57", smalltalk.send((23.5698), "_printShowingDecimalPlaces_", [(2)])]);
    104. 

  104. smalltalk.send(self, "_assert_equals_", [unescape("-234.56700"), smalltalk.send(smalltalk.send((234.567), "_negated", []), "_printShowingDecimalPlaces_", [(5)])]);
    105. 

  105. smalltalk.send(self, "_assert_equals_", ["23", smalltalk.send((23.4567), "_printShowingDecimalPlaces_", [(0)])]);
    106. 

  106. smalltalk.send(self, "_assert_equals_", ["24", smalltalk.send((23.5567), "_printShowingDecimalPlaces_", [(0)])]);
    107. 

  107. smalltalk.send(self, "_assert_equals_", [unescape("-23"), smalltalk.send(smalltalk.send((23.4567), "_negated", []), "_printShowingDecimalPlaces_", [(0)])]);
    108. 

  108. smalltalk.send(self, "_assert_equals_", [unescape("-24"), smalltalk.send(smalltalk.send((23.5567), "_negated", []), "_printShowingDecimalPlaces_", [(0)])]);
    109. 

  109. smalltalk.send(self, "_assert_equals_", ["100000000.0", smalltalk.send((100000000), "_printShowingDecimalPlaces_", [(1)])]);
    110. 

  110. smalltalk.send(self, "_assert_equals_", ["0.98000", smalltalk.send((0.98), "_printShowingDecimalPlaces_", [(5)])]);
    111. 

  111. smalltalk.send(self, "_assert_equals_", [unescape("-0.98"), smalltalk.send(smalltalk.send((0.98), "_negated", []), "_printShowingDecimalPlaces_", [(2)])]);
    112. 

  112. smalltalk.send(self, "_assert_equals_", ["2.57", smalltalk.send((2.567), "_printShowingDecimalPlaces_", [(2)])]);
    113. 

  113. smalltalk.send(self, "_assert_equals_", [unescape("-2.57"), smalltalk.send((-2.567), "_printShowingDecimalPlaces_", [(2)])]);
    114. 

  114. smalltalk.send(self, "_assert_equals_", ["0.00", smalltalk.send((0), "_printShowingDecimalPlaces_", [(2)])]);
    115. 

  115. return self;},
    116. 

  116. args: [],
    117. 

  117. source: unescape('testPrintShowingDecimalPlaces%0A%09self%20assert%3A%20%2723.00%27%20equals%3A%20%2823%20printShowingDecimalPlaces%3A%202%29.%0A%09self%20assert%3A%20%2723.57%27%20equals%3A%20%2823.5698%20printShowingDecimalPlaces%3A%202%29.%0A%09self%20assert%3A%20%27-234.56700%27%20equals%3A%28%20234.567%20negated%20printShowingDecimalPlaces%3A%205%29.%0A%09self%20assert%3A%20%2723%27%20equals%3A%20%2823.4567%20printShowingDecimalPlaces%3A%200%29.%0A%09self%20assert%3A%20%2724%27%20equals%3A%20%2823.5567%20printShowingDecimalPlaces%3A%200%29.%0A%09self%20assert%3A%20%27-23%27%20equals%3A%20%2823.4567%20negated%20printShowingDecimalPlaces%3A%200%29.%0A%09self%20assert%3A%20%27-24%27%20equals%3A%20%2823.5567%20negated%20printShowingDecimalPlaces%3A%200%29.%0A%09self%20assert%3A%20%27100000000.0%27%20equals%3A%20%28100000000%20printShowingDecimalPlaces%3A%201%29.%0A%09self%20assert%3A%20%270.98000%27%20equals%3A%20%280.98%20printShowingDecimalPlaces%3A%205%29.%0A%09self%20assert%3A%20%27-0.98%27%20equals%3A%20%280.98%20negated%20printShowingDecimalPlaces%3A%202%29.%0A%09self%20assert%3A%20%272.57%27%20equals%3A%20%282.567%20printShowingDecimalPlaces%3A%202%29.%0A%09self%20assert%3A%20%27-2.57%27%20equals%3A%20%28-2.567%20printShowingDecimalPlaces%3A%202%29.%0A%09self%20assert%3A%20%270.00%27%20equals%3A%20%280%20printShowingDecimalPlaces%3A%202%29.'),
    118. 

  118. messageSends: ["assert:equals:", "printShowingDecimalPlaces:", "negated"],
    119. 

  119. referencedClasses: []
    120. 

  120. }),
    121. 

  121. smalltalk.NumberTest);
    122. 

  122. 

  123. 

  124.