#DOCUMENTATION by cg
authorClaus Gittinger <cg@exept.de>
Tue, 20 Jun 2017 13:06:17 +0200
changeset 1620 e19b7dd63097
parent 1619 75c3687a4f4d
child 1621 aa072d5d3c06
#DOCUMENTATION by cg class: RegressionTests::QDoubleTests added: #test99_misc
RegressionTests__QDoubleTests.st
--- a/RegressionTests__QDoubleTests.st	Tue Jun 20 09:19:03 2017 +0200
+++ b/RegressionTests__QDoubleTests.st	Tue Jun 20 13:06:17 2017 +0200
@@ -29,6 +29,26 @@
 
 !QDoubleTests methodsFor:'tests'!
 
+test99_misc
+     self assert:( 1 asQDouble / (3 factorial) - (QDouble invFact at:1) ) = 0.0. 
+     self assert:( 1 asQDouble / (4 factorial) - (QDouble invFact at:2) ) = 0.0. 
+     self assert:( 1 asQDouble / (5 factorial) - (QDouble invFact at:3) ) = 0.0. 
+     self assert:( 1 asQDouble / (6 factorial) - (QDouble invFact at:4) ) = 0.0. 
+     self assert:( 1 asQDouble / (7 factorial) - (QDouble invFact at:5) ) = 0.0. 
+     self assert:( 1 asQDouble / (8 factorial) - (QDouble invFact at:6) ) = 0.0. 
+     self assert:( 1 asQDouble / (9 factorial) - (QDouble invFact at:7) ) = 0.0. 
+     self assert:( 1 asQDouble / (10 factorial) - (QDouble invFact at:8) ) = 0.0. 
+     self assert:( 1 asQDouble / (11 factorial) - (QDouble invFact at:9) ) = 0.0. 
+     self assert:( 1 asQDouble / (12 factorial) - (QDouble invFact at:10) ) = 0.0. 
+     self assert:( 1 asQDouble / (13 factorial) - (QDouble invFact at:11) ) = 0.0. 
+     self assert:( 1 asQDouble / (14 factorial) - (QDouble invFact at:12) ) = 0.0. 
+     self assert:( 1 asQDouble / (15 factorial) - (QDouble invFact at:13) ) = 0.0. 
+     self assert:( 1 asQDouble / (16 factorial) - (QDouble invFact at:14) ) = 0.0. 
+     self assert:( 1 asQDouble / (17 factorial) - (QDouble invFact at:15) ) = 0.0.
+
+    "Created: / 20-06-2017 / 13:06:04 / cg"
+!
+
 test_01_instance_creation
     |q|