serde should leave its stream open

.gitignore

@@ -23,4 +23,6 @@ msbuild.wrn
 tools/
 
 .fake
-.ionide
+.ionide
+
+.DS_Store

src/Serde.fs

@@ -22,7 +22,7 @@ let binarySerializer (options:SerializationOptions) (type':Type) (schema:Schema)
     let factory = TypeFactory(tr, schema, (fun _ _ _ -> null))
     let director = InstanceDirector.create options tr schema factory
     fun (instance:obj) (stream:Stream) ->
-        use writer = new BinaryWriter(stream, Text.Encoding.UTF8)
+        use writer = new BinaryWriter(stream, Text.Encoding.UTF8, true)
         let builder = BinaryBuilder(writer)
         director instance builder
 
@@ -64,6 +64,6 @@ let binaryDeserializer (options:DeserializationOptions) (type':Type) (readerSche
     let factory = TypeFactory(tr, readerSchema, createDefaultValue options)
     fun (writerSchema: Schema) (stream:Stream) ->
         let builder = InstanceBuilder(options, factory)
-        use reader = new BinaryReader(stream, Text.Encoding.UTF8)
+        use reader = new BinaryReader(stream, Text.Encoding.UTF8, true)
         director reader writerSchema builder
         builder.Instance

test/SerdeTests.fs

@@ -341,4 +341,30 @@ let binary2SimpleCasesTests =
 let binary2EvolutionTests =
     evolutionCases
     |> List.map binary2EvolutionTest
-    |> testList "Binary2Evolution"
+    |> testList "Binary2Evolution"
+
+[<Tests>]
+let leaveStreamOpenTests =
+    test "Serde should leave its stream open" {
+        let subject = "Hello World!"
+        let subjectType = typeof<string>
+        let schema =
+            match Schema.generate Schema.defaultOptions subjectType with
+            | Ok schema -> schema
+            | Error err -> failwithf "Schema error: %A" err
+
+        let serializer = Serde.binarySerializer Serde.defaultSerializerOptions subjectType schema
+        let deserializer = Serde.binaryDeserializer Serde.defaultDeserializerOptions subjectType schema
+
+        use stream = new MemoryStream()
+        serializer subject stream
+        stream.Seek(0L, SeekOrigin.Begin) |> ignore
+        let copy = deserializer schema stream :?> string
+        Expect.equal "Deserialized message should be equal to the original" subject copy
+
+        stream.Seek(0L, SeekOrigin.Begin) |> ignore
+        serializer subject stream
+        stream.Seek(0L, SeekOrigin.Begin) |> ignore
+        let copy2 = deserializer schema stream :?> string
+        Expect.equal "Deserialized message should be equal to the original" subject copy2
+    }