--- 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$'
-! !