|
@@ -1,5 +1,6 @@
|
|
|
(function(smalltalk,nil,_st){
|
|
|
smalltalk.addPackage('Kernel-Tests');
|
|
|
+
|
|
|
smalltalk.addClass('BlockClosureTest', smalltalk.TestCase, [], 'Kernel-Tests');
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
@@ -2842,6 +2843,19 @@ return self}, function($ctx1) {$ctx1.fill(self,"testArithmetic",{},smalltalk.Num
|
|
|
messageSends: ["assert:equals:", "+", "-", "/", "*"]}),
|
|
|
smalltalk.NumberTest);
|
|
|
|
|
|
+smalltalk.addMethod(
|
|
|
+smalltalk.method({
|
|
|
+selector: "testCeiling",
|
|
|
+fn: function (){
|
|
|
+var self=this;
|
|
|
+return smalltalk.withContext(function($ctx1) {
|
|
|
+self._assert_equals_((1.2)._ceiling(),(2));
|
|
|
+self._assert_equals_((-1.2)._ceiling(),(-1));
|
|
|
+self._assert_equals_((1)._ceiling(),(1));
|
|
|
+return self}, function($ctx1) {$ctx1.fill(self,"testCeiling",{},smalltalk.NumberTest)})},
|
|
|
+messageSends: ["assert:equals:", "ceiling"]}),
|
|
|
+smalltalk.NumberTest);
|
|
|
+
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
|
selector: "testComparison",
|
|
@@ -2892,6 +2906,19 @@ return self}, function($ctx1) {$ctx1.fill(self,"testEquality",{},smalltalk.Numbe
|
|
|
messageSends: ["assert:", "=", "deny:", "yourself"]}),
|
|
|
smalltalk.NumberTest);
|
|
|
|
|
|
+smalltalk.addMethod(
|
|
|
+smalltalk.method({
|
|
|
+selector: "testFloor",
|
|
|
+fn: function (){
|
|
|
+var self=this;
|
|
|
+return smalltalk.withContext(function($ctx1) {
|
|
|
+self._assert_equals_((1.2)._floor(),(1));
|
|
|
+self._assert_equals_((-1.2)._floor(),(-2));
|
|
|
+self._assert_equals_((1)._floor(),(1));
|
|
|
+return self}, function($ctx1) {$ctx1.fill(self,"testFloor",{},smalltalk.NumberTest)})},
|
|
|
+messageSends: ["assert:equals:", "floor"]}),
|
|
|
+smalltalk.NumberTest);
|
|
|
+
|
|
|
smalltalk.addMethod(
|
|
|
smalltalk.method({
|
|
|
selector: "testHexNumbers",
|
|
@@ -4078,5 +4105,4 @@ messageSends: ["assert:", "isNil", "deny:", "notNil"]}),
|
|
|
smalltalk.UndefinedTest);
|
|
|
|
|
|
|
|
|
-
|
|
|
})(global_smalltalk,global_nil,global__st);
|