I have some code in a test ns that uses clojure.test. When I open
that code in emacs (with a slime connection) I get a slime error:
"Unmatched delimiter: )"
except my code is balanced just fine as far as I can tell. the tests
all run just fine with maven, everything compiles. it's just emacs
and slime that get upset. (sometimes this prevents me from even
opening the file) and it's only with my test files. was there an
issue with clojure.test ?
has anyone seen anything like this? it's driving me a little nuts.
thanks,
Kevin
ERROR:
Unmatched delimiter: )
[Thrown class java.lang.RuntimeException]
Restarts:
0: [QUIT] Quit to the SLIME top level
Backtrace:
0: clojure.lang.Util.runtimeException(Util.java:144)
1: clojure.lang.LispReader
$UnmatchedDelimiterReader.invoke(LispReader.java:1087)
2: clojure.lang.LispReader.read(LispReader.java:180)
3: clojure.lang.LispReader$MetaReader.invoke(LispReader.java:722)
4: clojure.lang.LispReader.readDelimitedList(LispReader.java:1126)
5: clojure.lang.LispReader$ListReader.invoke(LispReader.java:962)
6: clojure.lang.LispReader.readDelimitedList(LispReader.java:1126)
7: clojure.lang.LispReader$ListReader.invoke(LispReader.java:962)
8: clojure.lang.LispReader.readDelimitedList(LispReader.java:1126)
9: clojure.lang.LispReader$ListReader.invoke(LispReader.java:962)
--more--
this is the file verbatim
CODE:
(ns edu.ucdenver.ccp.test.kr.test-kb
(use clojure.test
;;clojure.test.junit
edu.ucdenver.ccp.kr.variable
edu.ucdenver.ccp.kr.kb
edu.ucdenver.ccp.kr.rdf
edu.ucdenver.ccp.kr.sparql
))
;;; --------------------------------------------------------
;;; constansts
;;; --------------------------------------------------------
(defonce ^:dynamic *rcon* nil)
(def ^:dynamic *namespaces*
'(;;standard namespaces
("rdf" "http://www.w3.org/1999/02/22-rdf-syntax-ns#";)
("rdfs" "http://www.w3.org/2000/01/rdf-schema#";)
("owl" "http://www.w3.org/2002/07/owl#";)
("xsd" "http://www.w3.org/2001/XMLSchema#";)
;;a "regular" namespaces
("ex" "http://www.example.org/";)
("foaf" "http://xmlns.com/foaf/0.1/";)
("vcard" "http://www.w3.org/2001/vcard-rdf/3.0#";)
("rss" "http://purl.org/rss/1.0/";)
("daml" "http://www.daml.org/2001/03/daml+oil#";)
("dc" "http://purl.org/dc/elements/1.1/";)
("dc10" "http://purl.org/dc/elements/1.0/";)
("dc11" "http://purl.org/dc/elements/1.1/";)
("ja" "http://jena.hpl.hp.com/2005/11/Assembler#";)
))
(def test-triples
'((ex/a foaf/name "Johnny Lee Outlaw")
(ex/a foaf/mbox "<mailto:j...@example.com>")
(ex/b foaf/name "Peter Goodguy")
(ex/b foaf/mbox "<mailto:pe...@example.org>")
(ex/c foaf/mbox "<mailto:ca...@example.org>")))
;;; --------------------------------------------------------
;;; helpers
;;; --------------------------------------------------------
(def ^:dynamic *kb-creator-fn* nil)
(defn register-namespaces [kb]
(synch-ns-mappings kb)
(dorun
(map (fn [[short long]]
(update-ns-mapping kb short long))
*namespaces*))
(synch-ns-mappings kb))
(defn load-test-triples [kb triples]
(dorun
(map (fn [stmt] (add! kb stmt)) triples)))
(defn new-test-kb
([triples] (new-test-kb *kb-creator-fn* triples))
([kb-creator triples] (let [kb (kb-creator)]
(register-namespaces kb)
(binding [*kb* kb]
(load-test-triples kb triples))
kb)))
(defmacro kb-test [name triples & body]
`(deftest ~name
(when *kb-creator-fn*
(binding [*kb* (new-test-kb ~triples)]
~@body))))
;; (defmacro kb-test [name triples & body]
;; `(deftest ~name
;; (binding [*kb* (new-test-kb ~triples)]
;; ~@body)))
;;; --------------------------------------------------------
;;; END
;;; --------------------------------------------------------
--
You received this message because you are subscribed to the Google
Groups "Clojure" group.
To post to this group, send email to clojure@googlegroups.com
Note that posts from new members are moderated - please be patient with your
first post.
To unsubscribe from this group, send email to
clojure+unsubscr...@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en
