RegressionTests__NumberTest.st
changeset 1718 4b7eaecbbbae
parent 1713 72bd587b1967
child 1719 824a2964db3a
--- a/RegressionTests__NumberTest.st	Tue Oct 10 12:22:26 2017 +0200
+++ b/RegressionTests__NumberTest.st	Tue Oct 10 12:38:23 2017 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "{ Package: 'stx:goodies/regression' }"
 
 "{ NameSpace: RegressionTests }"
@@ -131,15 +129,31 @@
 
 !NumberTest methodsFor:'tests-printing'!
 
-testPrintf
+testPrintf_FixedPoint
+    "/ FixedPoint
+    
+    self assert:( (PrintfScanf printf:'%4f' argument:FixedPoint pi) = '3.141593' ).
+
+    "/ too small
+    self assert:( (FixedPoint pi printfPrintString:'%4Lf') = '3.141593' ).
+    self assert:( (FixedPoint pi printfPrintString:'%5Lf') = '3.141593' ).
+    self assert:( (FixedPoint pi printfPrintString:'%6Lf') = '3.141593' ).
+    self assert:( (FixedPoint pi printfPrintString:'%7Lf') = '3.141593' ).
+    "/ fit
+    self assert:( (FixedPoint pi printfPrintString:'%8Lf') = '3.141593' ).
+    self assert:( (FixedPoint pi printfPrintString:'%4.2Lf') = '3.14' ).
+    "/ left filled
+    self assert:( (FixedPoint pi printfPrintString:'%9Lf') = ' 3.141593' ).
+    "/ right filled
+    self assert:( (FixedPoint pi printfPrintString:'%-9Lf') = '3.141593 ' ).
+
+    "Created: / 10-10-2017 / 12:36:21 / cg"
+!
+
+testPrintf_Float
     "/ Float
     
-    self assert:( (PrintfScanf printf:'%4f' argument:ShortFloat pi) = '3.14159' ).
     self assert:( (PrintfScanf printf:'%4f' argument:Float pi)      = '3.141593' ).
-    self assert:( (PrintfScanf printf:'%4f' argument:LongFloat pi)  = '3.14159265' ).
-    self assert:( (PrintfScanf printf:'%4f' argument:QDouble pi)    = '3.14159265358979323846' ).
-    self assert:( (PrintfScanf printf:'%4f' argument:Fraction pi)   = '3.141593' ).
-    self assert:( (PrintfScanf printf:'%4f' argument:FixedPoint pi) = '3.141593' ).
 
     "/ too small
     self assert:( (Float pi printfPrintString:'%4f') = '3.141593' ).
@@ -154,21 +168,34 @@
     "/ right filled
     self assert:( (Float pi printfPrintString:'%-9f') = '3.141593 ' ).
 
-    "/ ShortFloat
+    "Created: / 10-10-2017 / 12:34:51 / cg"
+!
+
+testPrintf_Fraction
+    "/ Fraction
+    
+    self assert:( (PrintfScanf printf:'%4f' argument:Fraction pi) = '3.141593' ).
 
     "/ too small
-    self assert:( (ShortFloat pi printfPrintString:'%4f') = '3.141593' ).
-    self assert:( (ShortFloat pi printfPrintString:'%5f') = '3.141593' ).
-    self assert:( (ShortFloat pi printfPrintString:'%6f') = '3.141593' ).
-    self assert:( (ShortFloat pi printfPrintString:'%7f') = '3.141593' ).
+    self assert:( (Fraction pi printfPrintString:'%4Lf') = '3.141593' ).
+    self assert:( (Fraction pi printfPrintString:'%5Lf') = '3.141593' ).
+    self assert:( (Fraction pi printfPrintString:'%6Lf') = '3.141593' ).
+    self assert:( (Fraction pi printfPrintString:'%7Lf') = '3.141593' ).
     "/ fit
-    self assert:( (ShortFloat pi printfPrintString:'%8f') = '3.141593' ).
-    self assert:( (ShortFloat pi printfPrintString:'%4.2f') = '3.14' ).
-
+    self assert:( (Fraction pi printfPrintString:'%8Lf') = '3.141593' ).
+    self assert:( (Fraction pi printfPrintString:'%4.2Lf') = '3.14' ).
     "/ left filled
-    self assert:( (ShortFloat pi printfPrintString:'%9f') = ' 3.141593' ).
+    self assert:( (Fraction pi printfPrintString:'%9Lf') = ' 3.141593' ).
     "/ right filled
-    self assert:( (ShortFloat pi printfPrintString:'%-9f') = '3.141593 ' ).
+    self assert:( (Fraction pi printfPrintString:'%-9Lf') = '3.141593 ' ).
+
+    "Created: / 10-10-2017 / 12:37:25 / cg"
+!
+
+testPrintf_LongFloat
+    "/ LongFloat
+    
+    self assert:( (PrintfScanf printf:'%4f' argument:LongFloat pi)  = '3.14159265' ).
 
     "/ LongFloat
 
@@ -185,6 +212,14 @@
     "/ right filled
     self assert:( (LongFloat pi printfPrintString:'%-9Lf') = '3.141593 ' ).
 
+    "Created: / 10-10-2017 / 12:35:40 / cg"
+!
+
+testPrintf_QDouble
+    "/ QDouble
+    
+    self assert:( (PrintfScanf printf:'%4f' argument:QDouble pi)    = '3.14159265358979323846' ).
+
     "/ QuadDouble
 
     "/ too small
@@ -205,7 +240,29 @@
     "/ right filled
     self assert:( (QDouble pi printfPrintString:'%-30Lf') = '3.14159265358979323846        ' ).
 
-    "Created: / 03-07-2017 / 15:01:50 / cg"
+    "Created: / 10-10-2017 / 12:24:22 / cg"
+!
+
+testPrintf_ShortFloat
+    self assert:( (PrintfScanf printf:'%4f' argument:ShortFloat pi) = '3.14159' ).
+
+    "/ ShortFloat
+
+    "/ too small
+    self assert:( (ShortFloat pi printfPrintString:'%4f') = '3.141593' ).
+    self assert:( (ShortFloat pi printfPrintString:'%5f') = '3.141593' ).
+    self assert:( (ShortFloat pi printfPrintString:'%6f') = '3.141593' ).
+    self assert:( (ShortFloat pi printfPrintString:'%7f') = '3.141593' ).
+    "/ fit
+    self assert:( (ShortFloat pi printfPrintString:'%8f') = '3.141593' ).
+    self assert:( (ShortFloat pi printfPrintString:'%4.2f') = '3.14' ).
+
+    "/ left filled
+    self assert:( (ShortFloat pi printfPrintString:'%9f') = ' 3.141593' ).
+    "/ right filled
+    self assert:( (ShortFloat pi printfPrintString:'%-9f') = '3.141593 ' ).
+
+    "Created: / 10-10-2017 / 12:35:12 / cg"
 ! !
 
 !NumberTest methodsFor:'tests-reading'!