--- a/RegressionTests__IntegerTest.st	Fri Apr 23 15:30:59 2010 +0200
+++ b/RegressionTests__IntegerTest.st	Mon Apr 26 10:46:39 2010 +0200
@@ -1067,6 +1067,22 @@
     "Modified: / 26.10.1999 / 22:01:35 / stefan"
 !
 
+testFactorial
+    "/ <testedMethods: #( (Integer >> #factorial) (Integer >> #*) ) >
+
+    self assert:(1 factorial = 1).
+    self assert:(2 factorial = 2).
+    self assert:(10 factorial = 3628800).
+    self assert:(11 factorial = 39916800).
+
+    "
+     self basicNew testFactorial
+    "
+
+    "Created: / 24-04-2010 / 13:52:23 / cg"
+    "Modified: / 25-04-2010 / 21:24:19 / cg"
+!
+
 testILC
     "inline-cache"
 
@@ -3240,4 +3256,8 @@
 
 version
     ^ '$Header$'
+!
+
+version_CVS
+    ^ '$Header$'
 ! !