RegressionTests__IntervalAndGeometricSeriesTests.st
changeset 2369 6df45ae0a5ef
parent 2368 9991b612155a
--- 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'!