core_test.cljc

(ns ont-app.igraph-vocabulary.core-test
  {:vann/preferredNamespacePrefix "test"
   :vann/preferredNamespaceUri "http://example.com/"
   }
  (:require [clojure.test :refer [deftest testing is]]
            [ont-app.igraph.core :refer [normal-form add reduce-spo]]
            [ont-app.igraph.graph :as g]
            [ont-app.vocabulary.core :as voc]
            [ont-app.vocabulary.lstr] ;; enable the #lstr reader
            [ont-app.igraph-vocabulary.core :as igv :refer [mint-kwi]]
            [ont-app.igraph-vocabulary.io :as igv-io]
            ))

(deftest mint-kwi-test
  (is (= (igv/mint-kwi ::Blah ::blah "blah")
         ::Blah_blah_blah)))

(deftest resolve-namespace-prefixes-test
  (testing "namespace prefixes should be resolved"
    (is (= (normal-form
            (reduce-spo
             igv/resolve-namespace-prefixes
             (g/make-graph)
             (add (g/make-graph)
                  [[(voc/keyword-for "http://www.w3.org/1999/02/22-rdf-syntax-ns#blah")
                    :p
                    :o]])))
           {:rdf/blah {:p #{:o}}}))))