class: RegressionTests::StreamTests
changed: #test01_numberReading_squeak (send #nextPutLong:MSB: instead of #nextInt32Put:, send #nextLongMSB: instead of #nextInt32)
do not use methods marked as obsolete
--- a/RegressionTests__StreamTests.st Tue Jul 02 14:02:46 2013 +0200
+++ b/RegressionTests__StreamTests.st Wed Jul 03 09:02:05 2013 +0200
@@ -63,12 +63,12 @@
self assert:( val := #[16r81 16r82 16r83 16r84 16r85 16r86 16r87 16r88] readStream nextLittleEndianNumber:8 ) = 16r8887868584838281.
"/ signed
- self assert:( val := #[16r01 16r02 16r03 16r04] readStream nextInt32 ) = 16r01020304.
- self assert:( val := #[16rFF 16rFF 16rFF 16rFF] readStream nextInt32 ) = -1.
- self assert:( val := #[16r80 16r00 16r00 16r00] readStream nextInt32 ) = -2147483648.
+ self assert:( val := #[16r01 16r02 16r03 16r04] readStream nextLongMSB:true ) = 16r01020304.
+ self assert:( val := #[16rFF 16rFF 16rFF 16rFF] readStream nextLongMSB:true ) = -1.
+ self assert:( val := #[16r80 16r00 16r00 16r00] readStream nextLongMSB:true ) = -2147483648.
s := WriteStream on:ByteArray new.
- s nextInt32Put:16r01020304.
+ s nextPutLong:16r01020304 MSB:true.
self assert:( val := s contents ) = #[16r01 16r02 16r03 16r04].
s := WriteStream on:ByteArray new.
@@ -96,3 +96,4 @@
version_CVS
^ '$Header$'
! !
+