--- a/RegressionTests__IntervalAndGeometricSeriesTests.st Mon Aug 12 11:26:29 2019 +0200
+++ b/RegressionTests__IntervalAndGeometricSeriesTests.st Mon Aug 12 11:31:55 2019 +0200
@@ -23,7 +23,7 @@
!IntervalAndGeometricSeriesTests methodsFor:'tests'!
-test10_geometricSeries1
+test10_geometricSeries
{
(1 to:100 byFactor:2) .
(1 to:100 byFactor:3) .
@@ -49,7 +49,7 @@
]
"
- self run:#test10_geometricSeries1
+ self run:#test10_geometricSeries
"
!
@@ -58,9 +58,22 @@
self assert:((1 to:100 byFactor:2) sameContentsAs: (1 to:99 byFactor:2)).
self assert:((1 to:100 byFactor:2) = (1 to:100 byFactor:2) asArray) not.
+ self assert:(1 to:100 byFactor:2) last = 64.
+ self assert:(1 to:64 byFactor:2) last = 64.
+ self assert:(64 to:1 byFactor:1/2) last = 1.
+
"
self run:#test11_geometricSeries
"
+!
+
+test12_geometricSeries
+ self assert:(1 to:100 byFactor:2) printString = '1 to:100 byFactor:2'.
+ self assert:(1 to:100 byFactor:2) storeString = '(1 to:100 byFactor:2)'.
+
+ "
+ self run:#test12_geometricSeries
+ "
! !
!IntervalAndGeometricSeriesTests class methodsFor:'documentation'!