32 Smalltalk isSmalltalkX ifTrue:[ |
30 Smalltalk isSmalltalkX ifTrue:[ |
33 self assert: ((1/3) degreeSin printString startsWith:'0.005817') |
31 self assert: ((1/3) degreeSin printString startsWith:'0.005817') |
34 ] ifFalse:[ |
32 ] ifFalse:[ |
35 self assert: (1/3) degreeSin printString = '0.005817731354993834' |
33 self assert: (1/3) degreeSin printString = '0.005817731354993834' |
36 ] |
34 ] |
|
35 ! |
|
36 |
|
37 testDivisionResult |
|
38 |a b rslt| |
|
39 |
|
40 "/ 45 gcd:18 -> 9 |
|
41 |
|
42 rslt := Fraction numerator:45 denominator:18. |
|
43 self assert:(rslt isFraction). |
|
44 self assert:(rslt numerator = 5). |
|
45 self assert:(rslt denominator = 2). |
|
46 |
|
47 a := 45. |
|
48 b := 18. |
|
49 rslt := Fraction numerator:a denominator:b. |
|
50 self assert:(rslt isFraction). |
|
51 self assert:(rslt numerator = 5). |
|
52 self assert:(rslt denominator = 2). |
|
53 |
|
54 rslt := a / b. |
|
55 self assert:(rslt isFraction). |
|
56 self assert:(rslt numerator = 5). |
|
57 self assert:(rslt denominator = 2). |
|
58 |
|
59 rslt := Fraction numerator:6 denominator:3. |
|
60 self assert:(rslt isInteger). |
|
61 self assert:(rslt == 2). |
|
62 |
|
63 a := 6. |
|
64 b := 3. |
|
65 rslt := Fraction numerator:a denominator:b. |
|
66 self assert:(rslt isInteger). |
|
67 self assert:(rslt == 2). |
|
68 |
|
69 rslt := a / b. |
|
70 self assert:(rslt isInteger). |
|
71 self assert:(rslt == 2). |
|
72 |
|
73 "Created: / 05-06-2019 / 18:57:26 / Claus Gittinger" |
37 ! |
74 ! |
38 |
75 |
39 testFractionPrinting |
76 testFractionPrinting |
40 self assert: (353 / 359) printString = '(353/359)'. |
77 self assert: (353 / 359) printString = '(353/359)'. |
41 |
78 |