--- a/RegressionTests__LargeFloatTest.st	Tue Oct 10 16:30:48 2017 +0200
+++ b/RegressionTests__LargeFloatTest.st	Tue Oct 10 17:05:03 2017 +0200
@@ -255,6 +255,16 @@
     "Created: / 10-10-2017 / 15:13:28 / cg"
 !
 
+test04c_Multiplication
+    self assert:((1 asLargeFloat to:50 asLargeFloat) product) = (50 factorial)
+
+    "
+     self basicNew test04c_Multiplication
+    "
+
+    "Created: / 10-10-2017 / 16:22:56 / cg"
+!
+
 test05_Comparing
     self assert:( 2.0 asLargeFloat = 2 ).
     self assert:( 2.0 asLargeFloat = 2.0 asShortFloat ).
@@ -536,11 +546,28 @@
     "
      self basicNew test09_Testing
     "
+!
+
+test10_Printing
+    |fac50|
+
+    fac50 := (1 asLargeFloat to:50 asLargeFloat) product.
+    self assert:(fac50 printString = (50 factorial printString , '.0'))
+    
+    "
+     self basicNew test10_Printing
+    "
+
+    "Created: / 10-10-2017 / 16:22:15 / cg"
 ! !
 
 !LargeFloatTest class methodsFor:'documentation'!
 
 version
     ^ '$Header$'
+!
+
+version_CVS
+    ^ '$Header$'
 ! !