transforms/tests/extensions.st
changeset 123 1dffa525d5d7
parent 115 eaa0849c3f13
child 125 1d1b71370d34
--- 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'!