Skip to content
Browse files

Updated tests to work on windows.

  • Loading branch information...
1 parent 1abaf7c commit 9f100484f4236de66fb9b0b3292e8e1880856eba @macourtney macourtney committed May 27, 2010
Showing with 27 additions and 1 deletion.
  1. +9 −0 .classpath
  2. +17 −0 .project
  3. +1 −1 test/clj_record/main.clj
View
9 .classpath
@@ -0,0 +1,9 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<classpath>
+ <classpathentry kind="lib" path="lib/clojure-contrib.jar"/>
+ <classpathentry kind="lib" path="lib/clojure.jar"/>
+ <classpathentry kind="lib" path="test_lib/derby.jar"/>
+ <classpathentry kind="lib" path="test_lib/derbyclient.jar"/>
+ <classpathentry kind="con" path="org.eclipse.jdt.launching.JRE_CONTAINER"/>
+ <classpathentry kind="output" path="bin"/>
+</classpath>
View
17 .project
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<projectDescription>
+ <name>clj-record</name>
+ <comment></comment>
+ <projects>
+ </projects>
+ <buildSpec>
+ <buildCommand>
+ <name>org.eclipse.jdt.core.javabuilder</name>
+ <arguments>
+ </arguments>
+ </buildCommand>
+ </buildSpec>
+ <natures>
+ <nature>org.eclipse.jdt.core.javanature</nature>
+ </natures>
+</projectDescription>
View
2 test/clj_record/main.clj
@@ -50,7 +50,7 @@
(let [test-files (for [f (.listFiles (java.io.File. "clj_record"))
:when (re-find #"test.clj$" (.getPath f))]
(re-find #"[^.]+" (.getPath f)))
- test-namespaces (map #(symbol (re-gsub #"/" "." (re-gsub #"_" "-" %))) test-files)]
+ test-namespaces (map #(symbol (re-gsub #"/|\\" "." (re-gsub #"_" "-" %))) test-files)]
(doseq [file test-files]
(load file))
(apply test-is/run-tests test-namespaces)))

0 comments on commit 9f10048

Please sign in to comment.
Something went wrong with that request. Please try again.