1 "{ Package: 'stx:goodies/regression' }"

     3 "{ Package: 'stx:goodies/regression' }"

     2 

     4 

     3 "{ NameSpace: RegressionTests }"

     5 "{ NameSpace: RegressionTests }"

     4 

     6 

     5 TestCase subclass:#NumberTest

     7 TestCase subclass:#NumberTest

   203     "Modified: / 10-10-2017 / 16:29:27 / cg"

   205     "Modified: / 10-10-2017 / 16:29:27 / cg"

   204 !

   206 !

   205 

   207 

   206 testPrintf_LargeFloat

   208 testPrintf_LargeFloat

   207     "/ LongFloat

   209     "/ LongFloat

   209     self assert:( (PrintfScanf printf:'%.4f' argument:LargeFloat pi)  = '3.1416' ).

   215     self assert:( (PrintfScanf printf:'%.4f' argument:LargeFloat pi)  = '3.1416' ).

   210     self assert:( (PrintfScanf printf:'%.8f' argument:LargeFloat pi)  = '3.14159265' ).

   216     self assert:( (PrintfScanf printf:'%.8f' argument:LargeFloat pi)  = '3.14159265' ).

   211     self assert:( (PrintfScanf printf:'%f' argument:LargeFloat pi)  = '3.141593' ).

   217     self assert:( (PrintfScanf printf:'%f' argument:LargeFloat pi)  = '3.141593' ).

   212 

   218 

   213     "/ LongFloat

   219     "/ LongFloat