--- a/RegressionTests__IntervalAndGeometricSeriesTests.st	Mon Aug 12 11:23:06 2019 +0200
+++ b/RegressionTests__IntervalAndGeometricSeriesTests.st	Mon Aug 12 11:26:29 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:goodies/regression' }"
 
 "{ NameSpace: RegressionTests }"
@@ -10,6 +12,15 @@
 !
 
 
+!IntervalAndGeometricSeriesTests class methodsFor:'queries'!
+
+coveredClassNames
+    "These classes will be instrumented for coverage analysis,
+     before running the suite to provide coverage analysis/report"
+
+    ^ #(GeometricSeries)
+! !
+
 !IntervalAndGeometricSeriesTests methodsFor:'tests'!
 
 test10_geometricSeries1
@@ -40,6 +51,16 @@
     "
      self run:#test10_geometricSeries1
     "
+!
+
+test11_geometricSeries
+    self assert:((1 to:100 byFactor:2) sameContentsAs: (1 to:100 byFactor:2) asArray).
+    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 run:#test11_geometricSeries
+    "
 ! !
 
 !IntervalAndGeometricSeriesTests class methodsFor:'documentation'!