url->resource-name for urls with version

Aidbox · Sep 19, 2024 · 55c89b5 · 55c89b5
1 parent 684ef82
commit 55c89b5
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 2 deletions.
diff --git a/src/aidbox_sdk/converter.clj b/src/aidbox_sdk/converter.clj
@@ -12,7 +12,10 @@
 (defn url->resource-name
   "There are :id and :name in schemas but they are not reliable source."
   [url]
-  (last (str/split (str url) #"/")))
+  (str/replace
+   (last (str/split (str url) #"/"))
+   #"\||\."
+   "-"))
 
 (defn flatten-backbones [backbone-elements accumulator]
   (reduce (fn [acc item]

diff --git a/test/aidbox_sdk/converter_test.clj b/test/aidbox_sdk/converter_test.clj
@@ -25,7 +25,8 @@
       "iso21090-ADXP-deliveryAddressLine"
       (sut/url->resource-name "http://hl7.org/fhir/StructureDefinition/iso21090-ADXP-deliveryAddressLine")
 
-      (sut/url->resource-name "http://hl7.org/fhir/StructureDefinition/iso21090-ADXP-deliveryAddressLine"))))
+      "us-core-patient-6-0-0"
+      (sut/url->resource-name "http://hl7.org/fhir/us/core/structuredefinition/us-core-patient|6.0.0"))))
 
 (deftest test-resolve-references
   (is (= fixtures/schemas-with-element-reference-resolved