Slightly more homogeneous test project names

test/leiningen/test/compile.clj

@@ -15,7 +15,7 @@
                       (delete-file-recursively
                        (file "test_projects" "sample" "target") true)
                       (delete-file-recursively
-                       (file "test_projects" "sample_failing" "target") true)
+                       (file "test_projects" "sample-failing" "target") true)
                       (f)))
 
 (deftest ^:online test-compile

test/leiningen/test/helper.clj

@@ -24,9 +24,9 @@
 
 (def sample-project (read-test-project "sample"))
 
-(def sample-failing-project (read-test-project "sample_failing"))
+(def sample-failing-project (read-test-project "sample-failing"))
 
-(def sample-no-aot-project (read-test-project "sample_no_aot"))
+(def sample-no-aot-project (read-test-project "sample-no-aot"))
 
 (def tricky-name-project (read-test-project "tricky-name"))
 

test/leiningen/test/uberjar.clj

@@ -10,7 +10,7 @@
 
 (deftest test-uberjar
   (uberjar sample-no-aot-project)
-  (let [filename (str "test_projects/sample_no_aot/target/"
+  (let [filename (str "test_projects/sample-no-aot/target/"
                       "nomnomnom-0.5.0-SNAPSHOT-standalone.jar")
         uberjar-file (File. filename)]
     (is (= true (.exists uberjar-file)))