--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/RegressionTests__IntervalAndGeometricSeriesTests.st	Mon Aug 12 11:23:06 2019 +0200
@@ -0,0 +1,50 @@
+"{ Package: 'stx:goodies/regression' }"
+
+"{ NameSpace: RegressionTests }"
+
+TestCase subclass:#IntervalAndGeometricSeriesTests
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'tests-Regression-Collections'
+!
+
+
+!IntervalAndGeometricSeriesTests methodsFor:'tests'!
+
+test10_geometricSeries1
+     {
+        (1 to:100 byFactor:2)       .
+        (1 to:100 byFactor:3)       .
+        (10 to:100 byFactor:3)      .
+        (100 to:10 byFactor:1/3)    .
+        (100 to:1 byFactor:1/2)     .
+
+        (1 to:100 byFactor:2.0)     .
+        (1 to:64.0 byFactor:2.0)    .
+        (1 to:100 byFactor:3.0)     .
+        (10 to:100.0 byFactor:3)    .
+        (100 to:10.0 byFactor:0.3)  .  
+        (100 to:3 byFactor:1/2)     .
+        (100 to:3 byFactor:0.5)     .
+    } do:[:each |
+        |eachEnumeratedAsArray|
+
+        eachEnumeratedAsArray := Array streamContents:[:s | each do:[:el | s nextPut:el]].
+        self assert:eachEnumeratedAsArray = each asArray.
+        self assert:eachEnumeratedAsArray size = each size.
+        self assert:eachEnumeratedAsArray last = each last.
+        self assert:eachEnumeratedAsArray first = each first.
+    ]
+
+    "
+     self run:#test10_geometricSeries1
+    "
+! !
+
+!IntervalAndGeometricSeriesTests class methodsFor:'documentation'!
+
+version_CVS
+    ^ '$Header$'
+! !
+