class: RegressionTests::StreamTests
authorStefan Vogel <sv@exept.de>
Wed, 03 Jul 2013 09:02:05 +0200
changeset 952 e9e3c9e81bb1
parent 951 d9fe0a97fc74
child 953 2131363e73b4
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
RegressionTests__StreamTests.st
--- 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$'
 ! !
+