--- a/transforms/tests/extensions.st Wed Mar 20 20:06:57 2013 +0000
+++ b/transforms/tests/extensions.st Thu Mar 21 23:22:10 2013 -0400
@@ -429,18 +429,18 @@
!Xtreams::ReadingWritingTest methodsFor:'tests - transforming'!
testWriteTransformHexToByte
- | hex2Byte decoder result |
- decoder := [ :char | ('0123456789ABCDEF' indexOf: char asUppercase) - 1 ].
- hex2Byte :=
- self output transforming: [ :in :out |
- out put: (((decoder value: in get) bitShift: 4) + (decoder value: in get)) ].
- hex2Byte buffer: (ElasticBuffer on: (ByteString new: 16)).
- hex2Byte write: 'ab'.
- self assert: self input get = 16rAB.
- hex2Byte write: 'cdef'.
- hex2Byte close.
- result := self input read: 2.
- self assert: result = #[16rcd 16ref].
+ | hex2Byte decoder result |
+ decoder := [ :char | ('0123456789ABCDEF' indexOf: char asUppercase) - 1 ].
+ hex2Byte :=
+ self output transforming: [ :in :out |
+ out put: (((decoder value: in get) bitShift: 4) + (decoder value: in get)) ].
+ hex2Byte buffer: (ElasticBuffer on: (String new: 16)).
+ hex2Byte write: 'ab'.
+ self assert: self input get = 16rAB.
+ hex2Byte write: 'cdef'.
+ hex2Byte close.
+ result := self input read: 2.
+ self assert: result = #[16rcd 16ref].
! !
!Xtreams::ReadingWritingTest methodsFor:'tests - transforming'!