Unify Inheritance to ROCrateObject

Author: kMutagene

tests/ROCrate/ISAProfile/Assay.Tests.fs

@@ -0,0 +1,30 @@
+module Tests.Assay
+
+open ARCtrl.ROCrate
+
+open TestingUtils
+
+let default_constructor = Assay("id")
+
+let tests_profile_object_is_valid = testList "profile object is valid" [
+    testCase "Id" <| fun _ -> Expect.equal default_constructor.Id "id" "mandatory field Id was not correct"
+    testCase "SchemaType" <| fun _ -> Expect.equal default_constructor.SchemaType "schema.org/Dataset" "mandatory field SchemaType was not correct"
+    testCase "AdditionalType" <| fun _ -> Expect.equal default_constructor.AdditionalType (Some "Assay") "optional field AdditionalType was not correct"
+    testCase "Properties" <| fun _ -> Expect.isEmpty default_constructor.Properties "Dynamic properties were not empty"
+    
+    // default constructors are missing mandatory fields from the profile. This is by design.
+    testCase "missing identifier" <| fun _ -> Expect.throws (fun _ -> default_constructor.GetValue("identifier") |> ignore) "mandatory profile field identifier was present althoughit was expected to be missing"
+]
+
+let tests_static_methods = testList "static methods" []
+
+let tests_interface_members = testList "interface members" []
+
+let tests_dynamic_members = testList "dynamic members" []
+
+let main = testList "Assay" [
+    tests_profile_object_is_valid
+    tests_static_methods
+    tests_interface_members
+    tests_dynamic_members
+]

tests/ROCrate/ISAProfile/Data.Tests.fs

@@ -0,0 +1,21 @@
+module Tests.Data
+
+open ARCtrl.ROCrate
+
+open TestingUtils
+
+let tests_profile_object_is_valid = testList "profile object is valid" []
+
+let tests_static_methods = testList "static methods" []
+
+let tests_interface_members = testList "interface members" []
+
+let tests_dynamic_members = testList "dynamic members" []
+
+let main = testList "Data" [
+    tests_profile_object_is_valid
+    tests_static_methods
+    tests_interface_members
+    tests_dynamic_members
+]
+

tests/ROCrate/ISAProfile/Dataset.Tests.fs

@@ -0,0 +1,24 @@
+module Tests.Dataset
+
+open ARCtrl.ROCrate
+
+open TestingUtils
+
+let default_constructor = Dataset("id")
+
+let tests_profile_object_is_valid = testList "profile object is valid" [
+    testCase "Id" <| fun _ -> Expect.equal default_constructor.Id "id" "mandatory field Id was not correct"
+    testCase "SchemaType" <| fun _ -> Expect.equal default_constructor.SchemaType "schema.org/Dataset" "mandatory field SchemaType was not correct"
+    testCase "AdditionalType" <| fun _ -> Expect.isNone default_constructor.AdditionalType "optional field AdditionalType was not correct"
+    testCase "Properties" <| fun _ -> Expect.isEmpty default_constructor.Properties "Dynamic properties were not empty"
+]
+
+let tests_interface_members = testList "interface members" []
+
+let tests_dynamic_members = testList "dynamic members" []
+
+let main = testList "Dataset" [
+    tests_profile_object_is_valid
+    tests_interface_members
+    tests_dynamic_members
+]

tests/ROCrate/ISAProfile/Investigation.Tests.fs

@@ -0,0 +1,30 @@
+module Tests.Investigation
+
+open ARCtrl.ROCrate
+
+open TestingUtils
+
+let default_constructor = Investigation("id")
+
+let tests_profile_object_is_valid = testList "profile object is valid" [
+    testCase "Id" <| fun _ -> Expect.equal default_constructor.Id "id" "mandatory field Id was not correct"
+    testCase "SchemaType" <| fun _ -> Expect.equal default_constructor.SchemaType "schema.org/Dataset" "mandatory field SchemaType was not correct"
+    testCase "AdditionalType" <| fun _ -> Expect.equal default_constructor.AdditionalType (Some "Investigation") "mandatory field AdditionalType was not correct"
+    testCase "Properties" <| fun _ -> Expect.isEmpty default_constructor.Properties "Dynamic properties were not empty"
+
+    // default constructors are missing mandatory fields from the profile. This is by design.
+    testCase "missing identifier" <| fun _ -> Expect.throws (fun _ -> default_constructor.GetValue("identifier") |> ignore) "mandatory profile field identifier was present althoughit was expected to be missing"
+]
+
+let tests_static_methods = testList "static methods" []
+
+let tests_interface_members = testList "interface members" []
+
+let tests_dynamic_members = testList "dynamic members" []
+
+let main = testList "Investigation" [
+    tests_profile_object_is_valid
+    tests_static_methods
+    tests_interface_members
+    tests_dynamic_members
+]

tests/ROCrate/ISAProfile/LabProcess.tests.fs

@@ -0,0 +1,20 @@
+module Tests.LabProcess
+
+open ARCtrl.ROCrate
+
+open TestingUtils
+
+let tests_profile_object_is_valid = testList "profile object is valid" []
+
+let tests_static_methods = testList "static methods" []
+
+let tests_interface_members = testList "interface members" []
+
+let tests_dynamic_members = testList "dynamic members" []
+
+let main = testList "LabProcess" [
+    tests_profile_object_is_valid
+    tests_static_methods
+    tests_interface_members
+    tests_dynamic_members
+]

tests/ROCrate/ISAProfile/LabProtocol.Tests.fs

@@ -0,0 +1,20 @@
+module Tests.LabProtocol
+
+open ARCtrl.ROCrate
+
+open TestingUtils
+
+let tests_profile_object_is_valid = testList "profile object is valid" []
+
+let tests_static_methods = testList "static methods" []
+
+let tests_interface_members = testList "interface members" []
+
+let tests_dynamic_members = testList "dynamic members" []
+
+let main = testList "LabProtocol" [
+    tests_profile_object_is_valid
+    tests_static_methods
+    tests_interface_members
+    tests_dynamic_members
+]

tests/ROCrate/ISAProfile/Person.Tests.fs

@@ -0,0 +1,20 @@
+module Tests.Person
+
+open ARCtrl.ROCrate
+
+open TestingUtils
+
+let tests_profile_object_is_valid = testList "profile object is valid" []
+
+let tests_static_methods = testList "static methods" []
+
+let tests_interface_members = testList "interface members" []
+
+let tests_dynamic_members = testList "dynamic members" []
+
+let main = testList "Person" [
+    tests_profile_object_is_valid
+    tests_static_methods
+    tests_interface_members
+    tests_dynamic_members
+]

tests/ROCrate/ISAProfile/PropertyValue.Tests.fs

@@ -0,0 +1,21 @@
+module Tests.PropertyValue
+
+open ARCtrl.ROCrate
+
+open TestingUtils
+
+let tests_profile_object_is_valid = testList "profile object is valid" []
+
+let tests_static_methods = testList "static methods" []
+
+let tests_interface_members = testList "interface members" []
+
+let tests_dynamic_members = testList "dynamic members" []
+
+let main = testList "PropertyValue" [
+    tests_profile_object_is_valid
+    tests_static_methods
+    tests_interface_members
+    tests_dynamic_members
+]
+

tests/ROCrate/ISAProfile/Sample.tests.fs

@@ -0,0 +1,20 @@
+module Tests.Sample
+
+open ARCtrl.ROCrate
+
+open TestingUtils
+
+let tests_profile_object_is_valid = testList "profile object is valid" []
+
+let tests_static_methods = testList "static methods" []
+
+let tests_interface_members = testList "interface members" []
+
+let tests_dynamic_members = testList "dynamic members" []
+
+let main = testList "Sample" [
+    tests_profile_object_is_valid
+    tests_static_methods
+    tests_interface_members
+    tests_dynamic_members
+]

tests/ROCrate/ISAProfile/ScholarlyArticle.Tests.fs

@@ -0,0 +1,20 @@
+module Tests.ScholarlyArticle
+
+open ARCtrl.ROCrate
+
+open TestingUtils
+
+let tests_profile_object_is_valid = testList "profile object is valid" []
+
+let tests_static_methods = testList "static methods" []
+
+let tests_interface_members = testList "interface members" []
+
+let tests_dynamic_members = testList "dynamic members" []
+
+let main = testList "ScholarlyArticle" [
+    tests_profile_object_is_valid
+    tests_static_methods
+    tests_interface_members
+    tests_dynamic_members
+]