1 "{ Package: 'exept:regression' }"

     3 "{ Package: 'exept:regression' }"

     2 

     4 

     3 "{ NameSpace: RegressionTests }"

     5 "{ NameSpace: RegressionTests }"

     4 

     6 

     5 TestCase subclass:#StreamTests

     7 TestCase subclass:#StreamTests

    46     (Smalltalk classNamed:'stx_libcompat') isNil ifTrue:[

    48     (Smalltalk classNamed:'stx_libcompat') isNil ifTrue:[

    47         (Smalltalk loadPackage:'stx:libcompat') ifFalse:[

    49         (Smalltalk loadPackage:'stx:libcompat') ifFalse:[

    48             self error:'libcompat cannot be loaded'.        

    50             self error:'libcompat cannot be loaded'.        

    49         ].

    51         ].

    50     ].

    52     ].

    52 ! !

    54 ! !

    53 

    55 

    54 !StreamTests methodsFor:'tests'!

    56 !StreamTests methodsFor:'tests'!

    55 

    57 

    56 test01_numberReading_squeak

    58 test01_numberReading_squeak