Breakdown AppendStream, ReadStream record types to respective variables. Refactored accordingly

Author: Jamil Maqdis Anton

tests/AppendTests.fs

@@ -12,27 +12,27 @@ let tests =
         [ testAsync "Should append one message to stream." {
               let inMemStore = new SqlStreamStore.InMemoryStreamStore()
 
-              let appendStream: AppendStreamDetails =
-                  { streamName = "test"
-                    version = AppendVersion.NoStream }
+              let streamName = "test"
+              
+              let appendVersion = AppendVersion.NoStream
 
               let msg =
                   { id = StreamMessageId.Auto
                     type_ = "testing"
                     jsonData = "{}"
                     jsonMetadata = "{}" }
 
-              let! appendResult = Append.appendNewMessage inMemStore appendStream msg
+              let! appendResult = Append.appendNewMessage inMemStore streamName appendVersion msg
 
               ExpectExtra.equal 0 appendResult.CurrentVersion
           }
 
           testAsync "Should append a list of messages to stream." {
               let inMemStore = new SqlStreamStore.InMemoryStreamStore()
 
-              let appendStream: AppendStreamDetails =
-                  { streamName = "test"
-                    version = AppendVersion.NoStream }
+              let streamName = "test"
+              
+              let appendVersion = AppendVersion.NoStream
 
               let msg1 =
                   { id = StreamMessageId.Auto
@@ -48,6 +48,6 @@ let tests =
 
               let msgList = [ msg1; msg2 ]
 
-              let! appendResult = Append.appendNewMessages inMemStore appendStream msgList
+              let! appendResult = Append.appendNewMessages inMemStore streamName appendVersion msgList
               ExpectExtra.equal 1 appendResult.CurrentVersion
           } ]

tests/ReadTests.fs

@@ -12,9 +12,9 @@ let tests =
         [ testAsync "Should read forward from specific stream." {
               let inMemStore = new SqlStreamStore.InMemoryStreamStore()
 
-              let appendStreamDetails: AppendStreamDetails =
-                  { streamName = "test"
-                    version = AppendVersion.NoStream }
+              let streamName = "test"
+              
+              let appendVersion = AppendVersion.NoStream
 
               let guidString1 = "11111111-1111-1111-1111-111111111111"
 
@@ -34,12 +34,12 @@ let tests =
 
               let msgList = [ msg1; msg2 ]
 
-              do! Append.appendNewMessages inMemStore appendStreamDetails msgList
+              do! Append.appendNewMessages inMemStore streamName appendVersion msgList
                   |> Async.Ignore
 
-              let readStreamDetails: ReadStreamDetails = { streamName = "test"; version = 0u }
+              let  readVersion = 0u 
 
-              let! readResult = Read.readFromStreamAsync inMemStore ReadingDirection.Forward readStreamDetails 10
+              let! readResult = Read.readFromStreamAsync inMemStore ReadingDirection.Forward streamName readVersion 10
 
               readResult.Messages
               |> Array.sortBy (fun msg -> msg.MessageId)