# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1397169025 -7200
# Node ID 7e24c992441b160f56216e8b1946dfa407368009
# Parent  f462798b6a1d9640773a00bbcafa00fc508b4b17
initial checkin

diff -r f462798b6a1d -r 7e24c992441b RegressionTests__UninterpretedBytesTest.st
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/RegressionTests__UninterpretedBytesTest.st	Fri Apr 11 00:30:25 2014 +0200
@@ -0,0 +1,53 @@
+"{ Package: 'exept:regression' }"
+
+"{ NameSpace: RegressionTests }"
+
+TestCase subclass:#UninterpretedBytesTest
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'tests-Regression-Collections'
+!
+
+
+!UninterpretedBytesTest methodsFor:'tests'!
+
+testFloatAccess
+    |bytes|
+
+    bytes := ByteArray new:4.
+    bytes floatAt:1 put:1.234.
+    self assert:(bytes = #[182 243 157 63]).
+
+    bytes floatAt:1 put:2.345 asShortFloat.
+    self assert:(bytes = #[123 20 22 64]).
+
+    bytes floatAt:1 put:345.
+    self assert:(bytes = #[0 128 172 67]).
+
+
+    bytes := ByteArray new:8.
+    bytes doubleAt:1 put:1.234.
+    self assert:(bytes = #[88 57 180 200 118 190 243 63]).
+
+    bytes doubleAt:1 put:2.345 asShortFloat.
+    self assert:(bytes = #[0 0 0 96 143 194 2 64]).
+
+    bytes doubleAt:1 put:345.
+    self assert:(bytes = #[0 0 0 0 0 144 117 64]).
+
+    "
+     self run:#testFloatAccess
+    "
+! !
+
+!UninterpretedBytesTest class methodsFor:'documentation'!
+
+version
+    ^ '$Header$'
+!
+
+version_CVS
+    ^ '$Header$'
+! !
+