removed container
authorClaus Gittinger <cg@exept.de>
Wed, 24 Oct 2012 16:18:44 +0200
changeset 694 1969ba861379
parent 693 29463cb88dd5
child 695 8c74b6763d5f
removed container
RegressionTests__BinaryObjectStoreTest.st
--- a/RegressionTests__BinaryObjectStoreTest.st	Wed Oct 24 16:18:30 2012 +0200
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,49 +0,0 @@
-"{ Package: 'exept:regression' }"
-
-"{ NameSpace: RegressionTests }"
-
-TestCase subclass:#BinaryObjectStoreTest
-	instanceVariableNames:''
-	classVariableNames:''
-	poolDictionaries:''
-	category:'tests-Regression'
-!
-
-
-!BinaryObjectStoreTest methodsFor:'testing'!
-
-test01_store_retrieve_string_and_array_01
-    |original retrieved hello inStream outStream|
-
-    hello := 'hello'.
-    original := Array with:hello with:hello.
-
-    [
-        outStream := 'data.bos' asFilename writeStream binary.
-        original storeBinaryOn:outStream.
-        outStream close.
-
-        inStream := 'data.bos' asFilename readStream binary.
-        retrieved := Object readBinaryFrom:inStream.
-        inStream close.
-    ] ensure:[
-        'data.bos' asFilename delete
-    ].
-
-    self assert:( (original at:1) == (original at:2) ).         "must be identical"
-    self assert:( (retrieved at:1) == (retrieved at:2) ).       "must be identical"
-
-    "
-     self new test01_store_retrieve_string_and_array_01
-    "
-! !
-
-!BinaryObjectStoreTest class methodsFor:'documentation'!
-
-version
-    ^ '$Header$'
-!
-
-version_CVS
-    ^ '$Header$'
-! !