RegressionTests__IntegerTest.st
changeset 1039 f57e739387f5
parent 1034 19a7bdfbe204
child 1069 071262362c9b
equal deleted inserted replaced
1038:5443ea4b780e 1039:f57e739387f5
   700     "
   700     "
   701      self basicNew doTestAll
   701      self basicNew doTestAll
   702     "
   702     "
   703 
   703 
   704     "Modified: / 31.10.2000 / 20:23:20 / cg"
   704     "Modified: / 31.10.2000 / 20:23:20 / cg"
       
   705 !
       
   706 
       
   707 testByteSwap
       
   708     "/ <testedMethods: #( (Integer >> #byteSwapped32) (Integer >> #byteSwapped64)) >
       
   709 
       
   710     self assert:(16r1122 byteSwapped16) = 16r2211.
       
   711     self assert:(16r2211 byteSwapped16) = 16r1122.
       
   712 
       
   713     self assert:(16r11223344 byteSwapped32) = 16r44332211.
       
   714     self assert:(16r44332211 byteSwapped32) = 16r11223344.
       
   715 
       
   716     self assert:(16r11223344 byteSwapped64) = 16r4433221100000000.
       
   717     self assert:(16r44332211 byteSwapped64) = 16r1122334400000000.
       
   718 
       
   719     self assert:(16r8877665544332211 byteSwapped64) = 16r1122334455667788.
       
   720     self assert:(16r1122334455667788 byteSwapped64) = 16r8877665544332211.
       
   721 
       
   722     "/ higher bits are ignored!!
       
   723     self assert:(16r33441122 byteSwapped16) = 16r2211.
       
   724 
       
   725     self assert:(16r9911223344 byteSwapped32) = 16r44332211.
       
   726     self assert:(16r8877665544332211 byteSwapped32) = 16r11223344.
       
   727     self assert:(16r998877665544332211 byteSwapped64) = 16r1122334455667788.
       
   728     self assert:(16r991122334455667788 byteSwapped64) = 16r8877665544332211.
       
   729 
       
   730     "
       
   731      self basicNew testByteSwap
       
   732     "
   705 !
   733 !
   706 
   734 
   707 testComparing
   735 testComparing
   708     |a b|
   736     |a b|
   709 
   737