--- a/RegressionTests__IntegerTest.st	Wed Jan 06 01:44:27 2016 +0100
+++ b/RegressionTests__IntegerTest.st	Fri Jan 08 15:24:31 2016 +0100
@@ -4146,6 +4146,16 @@
     "Modified: / 27-04-2010 / 00:02:15 / cg"
 ! !
 
+!IntegerTest methodsFor:'tests-misc'!
+
+test_primes
+    self 
+        assert: ((1 to: 30) select: [:i | i isPrime] as:Array) 
+                            = #(2 3 5 7 11 13 17 19 23 29);
+        assert: ((0 to: 30) collect: [:i | i nextPrime] as:Array)
+                            = #(2 2 3 5 5 7 7 11 11 11 11 13 13 17 17 17 17 19 19 23 23 23 23 29 29 29 29 29 29 31 31).
+! !
+
 !IntegerTest class methodsFor:'documentation'!
 
 version