--- a/RegressionTests__StreamTests.st Tue Apr 17 14:06:09 2012 +0200
+++ b/RegressionTests__StreamTests.st Tue Apr 17 14:43:52 2012 +0200
@@ -37,6 +37,16 @@
"Created: / 16-09-2011 / 14:56:05 / cg"
! !
+!StreamTests methodsFor:'setup'!
+
+setUp
+ (Smalltalk classNamed:'stx_libcompat') isNil ifTrue:[
+ (Smalltalk loadPackage:'stx:libcompat') ifFalse:[
+ self error:'libcompat cannot be loaded'.
+ ].
+ ].
+! !
+
!StreamTests methodsFor:'tests'!
test01_numberReading_squeak
@@ -44,8 +54,8 @@
b := #[1 2 3 4].
s := b readStream.
-
- self assert:( val := s nextLittleEndianNumber:4 ) = 16r04030201.
+ val := s nextLittleEndianNumber:4.
+ self assert:val = 16r04030201.
self assert:( s atEnd ).
self assert:( val := #[16r81 16r82 16r83 16r84] readStream nextLittleEndianNumber:4 ) = 16r84838281.