(ns sparql-to-graphviz.prefix-test
  (:require [sparql-to-graphviz.prefix :as prefix]
            [clojure.test :refer :all]))

(deftest split-local-name
  (are [iri nspace local-name] (= (prefix/split-local-name iri) [nspace local-name])
       "" "/" "title"
       (prefix/owl "ObjectProperty") (prefix/owl) "ObjectProperty"))

(ns sparql-to-graphviz.prefix-test
  (:require [sparql-to-graphviz.prefix :as prefix]
            [clojure.test :refer :all]))

(deftest split-local-name
  (are [iri nspace local-name] (= (prefix/split-local-name iri) [nspace local-name])
       "" "/" "title"
       (prefix/owl "ObjectProperty") (prefix/owl) "ObjectProperty"))
