RO-Crate export: fixed default publication date

nfdi4plants · Jan 22, 2025 · 134caf8 · 134caf8
1 parent 5ce39f9
commit 134caf8
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/Json/Investigation.fs b/src/Json/Investigation.fs
@@ -108,7 +108,7 @@ module Investigation =
                 Encode.tryInclude "title" Encode.string oa.Title
                 Encode.tryInclude "description" Encode.string oa.Description
                 Encode.tryInclude "submissionDate" Encode.string oa.SubmissionDate
-                "publicReleaseDate", Encode.string (oa.PublicReleaseDate |> (Option.defaultValue (System.DateTime.Today.ToString "yyyy/MM/dd"))) |> Some
+                "publicReleaseDate", Encode.string (oa.PublicReleaseDate |> (Option.defaultValue (System.DateTime.Today.ToString "yyyy-MM-dd"))) |> Some
                 Encode.tryIncludeSeq "ontologySourceReferences" OntologySourceReference.ROCrate.encoder oa.OntologySourceReferences
                 Encode.tryIncludeSeq "publications" Publication.ROCrate.encoder oa.Publications
                 Encode.tryIncludeSeq "people" Person.ROCrate.encoder oa.Contacts

diff --git a/tests/Json/Investigation.Tests.fs b/tests/Json/Investigation.Tests.fs
@@ -102,7 +102,7 @@ let private test_roCrateEmpty =
 let test_defaultDate = testList "ROCrate-defaultDate" [
     testCase "roundabout" <| fun _ ->
         let addPublicationDate (inv : ArcInvestigation) =
-            inv.PublicReleaseDate <- Some (System.DateTime.Today.ToString "yyyy/MM/dd")
+            inv.PublicReleaseDate <- Some (System.DateTime.Today.ToString "yyyy-MM-dd")
             inv
         let obj = create_empty()
         let json = ArcInvestigation.toROCrateJsonString () obj