   repo it should be identical to the one read in."
 
     (testing "roundtripping ttl file"
-      (let [file "./test/grafter/rdf-types.ttl"]
+      (let [file triple-fixture-file-path]
         (is (= (set (statements (load-rdf-types-data file)))
                (set (statements file))))))
 
     (testing "roundtripping trig file"
-      (let [file "./test/grafter/rdf-types.trig"]
+      (let [file quad-fixture-file-path]
         (is (= (set (statements (load-rdf-types-data file)))
                (set (statements file))))))))

     db)))

(deftest query-test
  (let [test-db (load-rdf-types-data "./test/grafter/rdf-types.ttl")]
    (are [type f?]
        (is (f? (let [o (-> (query test-db (str "PREFIX : <http://example/> SELECT ?o WHERE {" type " :hasValue ?o . }"))
                            first

           org.openrdf.repository.sparql.SPARQLRepository
           java.net.URI))

(def quad-fixture-file-path "./test/grafter/rdf-types.trig")

(def triple-fixture-file-path "./test/grafter/rdf-types.ttl")

(deftest repo-test
  (is (repo= (grafter.rdf/statements quad-fixture-file-path)
             (repo quad-fixture-file-path)
             (repo quad-fixture-file-path)
             (repo quad-fixture-file-path (MemoryStore.))
             (repo (file quad-fixture-file-path)))))

(deftest repo=test
  (testing "repo-like things coerce for equality checks"
    (is (repo= (repo quad-fixture-file-path)
               (grafter.rdf/statements quad-fixture-file-path)
               quad-fixture-file-path
               (file quad-fixture-file-path))))

  (testing "Inequality"
    (is (not (repo= quad-fixture-file-path
                    triple-fixture-file-path))
        "Should not be equal because the trig file are quads and the ttl file are triples."))

  (testing "Equivalence between triple file, repo and CONSTRUCT of the same data"
    (repo= triple-fixture-file-path
           (query (repo triple-fixture-file-path)
                  "CONSTRUCT { ?s ?p ?o } WHERE { ?s ?p ?o }")))

  (testing "An empty repo is equal to an empty repo"
    (is (repo= (repo (MemoryStore.))
