Add unit tests

Author: Etschbeijer

src/ARCtrl/ARCtrl.Javascript.fsproj

@@ -18,6 +18,7 @@
     <Compile Include="JsonIO\OntologySourceReference.fs" />
     <Compile Include="JsonIO\DataFile.fs" />
     <Compile Include="JsonIO\Data.fs" />
+    <Compile Include="JsonIO\Datamap.fs" />
     <Compile Include="JsonIO\Person.fs" />
     <Compile Include="JsonIO\Publication.fs" />
     <Compile Include="JsonIO\Process\Value.fs" />

src/ARCtrl/ARCtrl.Python.fsproj

@@ -20,6 +20,7 @@
     <Compile Include="JsonIO\OntologySourceReference.fs" />
     <Compile Include="JsonIO\DataFile.fs" />
     <Compile Include="JsonIO\Data.fs" />
+    <Compile Include="JsonIO\Datamap.fs" />
     <Compile Include="JsonIO\Person.fs" />
     <Compile Include="JsonIO\Publication.fs" />
     <Compile Include="JsonIO\Process\Value.fs" />

src/ARCtrl/ARCtrl.fsproj

@@ -44,7 +44,6 @@
     <Compile Include="JsonIO\Table\CompositeHeader.fs" />
     <Compile Include="JsonIO\Table\ArcTable.fs" />
     <Compile Include="JsonIO\Table\Templates.fs" />
-    <Compile Include="JsonIO\DataMap\DataMap.fs" />
     <Compile Include="JsonIO\Assay.fs" />
     <Compile Include="JsonIO\Study.fs" />
     <Compile Include="JsonIO\Investigation.fs" />

src/ARCtrl/JsonIO/DataMap/DataMap.fs

@@ -19,14 +19,14 @@ module DatamapExtensions =
         member this.ToJsonString(?spaces) = 
             DataMap.toJsonString(?spaces=spaces) this
 
-        static member fromCompressedJsonString (s: string) =
-            try Decode.fromJsonString (Compression.decode DataMap.decoderCompressed) s with
-            | e -> failwithf "Error. Unable to parse json string to Datamap: %s" e.Message
+        //static member fromCompressedJsonString (s: string) =
+        //    try Decode.fromJsonString (Compression.decode DataMap.decoderCompressed) s with
+        //    | e -> failwithf "Error. Unable to parse json string to Datamap: %s" e.Message
 
-        static member toCompressedJsonString(?spaces) =
-            fun (obj:DataMap) ->
-                let spaces = defaultArg spaces 0
-                Encode.toJsonString spaces (Compression.encode DataMap.encoderCompressed obj)
+        //static member toCompressedJsonString(?spaces) =
+        //    fun (obj:DataMap) ->
+        //        let spaces = defaultArg spaces 0
+        //        Encode.toJsonString spaces (Compression.encode DataMap.encoderCompressed obj)
 
-        member this.ToCompressedJsonString(?spaces) = 
-            DataMap.toCompressedJsonString(?spaces=spaces) this
+        //member this.ToCompressedJsonString(?spaces) = 
+        //    DataMap.toCompressedJsonString(?spaces=spaces) this

src/ARCtrl/JsonIO/Datamap.fs

@@ -21,8 +21,42 @@ module Helper =
             "Kevin F",
             (ResizeArray [Comment.create("Hello", "World")])
         )
+
     let create_filled() = 
         DataMap(ResizeArray [
             for i in 1 .. 3 do
                 create_Datacontext i            
         ])
+
+    let compare =
+        fun (d1: DataMap) (d2: DataMap) ->
+            let d1DataContexts =
+                d1.DataContexts
+                |> Array.ofSeq
+            let d2DataContexts =
+                d2.DataContexts
+                |> Array.ofSeq
+
+            Expect.equal d1DataContexts.Length d2DataContexts.Length "Datamap Länge"
+
+            for i in 0..d1DataContexts.Length - 1 do
+
+                Expect.equal d1DataContexts.[i] d2DataContexts.[i] $"Datamap is not equal on {i}"
+
+            Expect.sequenceEqual d1.DataContexts d2.DataContexts "DataContexts"
+        |> Some
+
+open Helper
+
+let private test_datamapJsonTesting =
+    createBaseJsonTests
+        "datamap-json"
+        create_filled
+        DataMap.toJsonString
+        DataMap.fromJsonString
+        None
+        compare
+
+let main = testList "Datamap" [
+    test_datamapJsonTesting
+]