equal
deleted
inserted
replaced
21 ^ #(GeometricSeries) |
21 ^ #(GeometricSeries) |
22 ! ! |
22 ! ! |
23 |
23 |
24 !IntervalAndGeometricSeriesTests methodsFor:'tests'! |
24 !IntervalAndGeometricSeriesTests methodsFor:'tests'! |
25 |
25 |
26 test10_geometricSeries1 |
26 test10_geometricSeries |
27 { |
27 { |
28 (1 to:100 byFactor:2) . |
28 (1 to:100 byFactor:2) . |
29 (1 to:100 byFactor:3) . |
29 (1 to:100 byFactor:3) . |
30 (10 to:100 byFactor:3) . |
30 (10 to:100 byFactor:3) . |
31 (100 to:10 byFactor:1/3) . |
31 (100 to:10 byFactor:1/3) . |
47 self assert:eachEnumeratedAsArray last = each last. |
47 self assert:eachEnumeratedAsArray last = each last. |
48 self assert:eachEnumeratedAsArray first = each first. |
48 self assert:eachEnumeratedAsArray first = each first. |
49 ] |
49 ] |
50 |
50 |
51 " |
51 " |
52 self run:#test10_geometricSeries1 |
52 self run:#test10_geometricSeries |
53 " |
53 " |
54 ! |
54 ! |
55 |
55 |
56 test11_geometricSeries |
56 test11_geometricSeries |
57 self assert:((1 to:100 byFactor:2) sameContentsAs: (1 to:100 byFactor:2) asArray). |
57 self assert:((1 to:100 byFactor:2) sameContentsAs: (1 to:100 byFactor:2) asArray). |
58 self assert:((1 to:100 byFactor:2) sameContentsAs: (1 to:99 byFactor:2)). |
58 self assert:((1 to:100 byFactor:2) sameContentsAs: (1 to:99 byFactor:2)). |
59 self assert:((1 to:100 byFactor:2) = (1 to:100 byFactor:2) asArray) not. |
59 self assert:((1 to:100 byFactor:2) = (1 to:100 byFactor:2) asArray) not. |
60 |
60 |
|
61 self assert:(1 to:100 byFactor:2) last = 64. |
|
62 self assert:(1 to:64 byFactor:2) last = 64. |
|
63 self assert:(64 to:1 byFactor:1/2) last = 1. |
|
64 |
61 " |
65 " |
62 self run:#test11_geometricSeries |
66 self run:#test11_geometricSeries |
|
67 " |
|
68 ! |
|
69 |
|
70 test12_geometricSeries |
|
71 self assert:(1 to:100 byFactor:2) printString = '1 to:100 byFactor:2'. |
|
72 self assert:(1 to:100 byFactor:2) storeString = '(1 to:100 byFactor:2)'. |
|
73 |
|
74 " |
|
75 self run:#test12_geometricSeries |
63 " |
76 " |
64 ! ! |
77 ! ! |
65 |
78 |
66 !IntervalAndGeometricSeriesTests class methodsFor:'documentation'! |
79 !IntervalAndGeometricSeriesTests class methodsFor:'documentation'! |
67 |
80 |