author | Claus Gittinger <cg@exept.de> |
Fri, 02 Nov 2012 10:09:10 +0100 | |
changeset 734 | f43818919707 |
parent 733 | 0d9c441eba61 |
child 735 | 712430fa6135 |
--- a/RegressionTests__ComplexTest.st Thu Nov 01 12:09:48 2012 +0100 +++ b/RegressionTests__ComplexTest.st Fri Nov 02 10:09:10 2012 +0100 @@ -270,6 +270,18 @@ " ! +testFloorCeiling + | c1 c2 | + + c1 := Complex real: 1 imaginary: 2. + c2 := Complex real: 3 imaginary: 4. + + self should: [ c1 floor ] raise:Error. + self should: [ c1 ceiling ] raise:Error. + + "Created: / 02-11-2012 / 10:04:43 / cg" +! + testModulus | c1 c2 |