make ldcontext resolove http and https as interchangeable

Author: HLWeil

src/ROCrate/LDContext.fs

@@ -110,9 +110,12 @@ type LDContext(?mappings : Dictionary<string,string>, ?baseContexts : ResizeArra
         with get() = name
         and set(value) = name <- value
 
-    member this.AddMapping(term,definition) =
+    member this.AddMapping(term : string,definition : string) =
+        let http = definition.Replace("https://","http://")
+        let https = definition.Replace("http://","https://")
         StringDictionary.addOrUpdate term definition mappings
-        addReverseMapping term definition
+        addReverseMapping term http
+        addReverseMapping term https
 
     member this.TryResolveTerm(term : string) =
         // Handle compact IRI

tests/ROCrate/LDContext.Tests.fs

@@ -13,6 +13,10 @@ let nameTerm = "name"
 let nameIRI = "http://schema.org/name"
 let nameCompactIRI = "schema:name"
 
+let nameIRIHttps = "https://schema.org/name"
+let schemaIRIHttps = "https://schema.org/"
+let nameCompactIRIHttps = "schema:name"
+
 let nameIRIAlternative = "http://fantasy-site.org/name"
 
 
@@ -86,6 +90,18 @@ let tests_getTerm = testList "getTerm" [
         let resolved = context.TryGetTerm(nameIRI)
         let resolved = Expect.wantSome resolved "term was not resolved"
         Expect.equal resolved nameTerm "term was not resolved correctly"
+    testCase "fullIRI_ignoreHTTPs" <| fun _ ->
+        let context = new LDContext()
+        context.AddMapping(nameTerm, nameIRIHttps)
+        let resolved = context.TryGetTerm(nameIRI)
+        let resolved = Expect.wantSome resolved "term was not resolved"
+        Expect.equal resolved nameTerm "term was not resolved correctly"
+    testCase "fullIRI_ignoreHTTP" <| fun _ ->
+        let context = new LDContext()
+        context.AddMapping(nameTerm, nameIRI)
+        let resolved = context.TryGetTerm(nameIRIHttps)
+        let resolved = Expect.wantSome resolved "term was not resolved"
+        Expect.equal resolved nameTerm "term was not resolved correctly"
     testCase "compactIRI" <| fun _ -> 
         let context = new LDContext()
         context.AddMapping(nameTerm, nameCompactIRI)
@@ -100,6 +116,20 @@ let tests_getTerm = testList "getTerm" [
         let resolved = context.TryGetTerm(nameIRI)
         let resolved = Expect.wantSome resolved "term was not resolved"
         Expect.equal resolved nameTerm "term was not resolved correctly"
+    testCase "compactIRI_ignoreHTTPs" <| fun _ ->
+        let context = new LDContext()
+        context.AddMapping(nameTerm, nameCompactIRIHttps)
+        context.AddMapping(schemaTerm, schemaIRIHttps)
+        let resolved = context.TryGetTerm(nameIRI)
+        let resolved = Expect.wantSome resolved "term was not resolved"
+        Expect.equal resolved nameTerm "term was not resolved correctly"
+    testCase "compactIRI_ignoreHTTP" <| fun _ ->
+        let context = new LDContext()
+        context.AddMapping(nameTerm, nameCompactIRI)
+        context.AddMapping(schemaTerm, schemaIRI)
+        let resolved = context.TryGetTerm(nameIRIHttps)
+        let resolved = Expect.wantSome resolved "term was not resolved"
+        Expect.equal resolved nameTerm "term was not resolved correctly"
     testCase "Nested_Shadowed" <| fun _ ->
         let innerContext = new LDContext()
         innerContext.AddMapping(nameTerm, nameIRI)