# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1272271599 -7200
# Node ID d666bfa81a9aaa2a61126240ff52a0515cc63cec
# Parent  85de4d57f575b3c42d0b2b2b0dad2fca4686bdac
*** empty log message ***

diff -r 85de4d57f575 -r d666bfa81a9a RegressionTests__IntegerTest.st
--- 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$'
 ! !