--- 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'!