Fix some of the tests.

technomancy · Aug 30, 2012 · 22b427a · 22b427a
1 parent a2d2b92
commit 22b427a
Show file tree

Hide file tree

Showing 3 changed files with 13 additions and 12 deletions.
diff --git a/test/leiningen/test/pom.clj b/test/leiningen/test/pom.clj
@@ -64,7 +64,7 @@
         "description is included")
     (is (= nil (first-in xml [:project :mailingLists]))
         "no mailing list")
-    (is (= ["central" "clojars" "snapshots"]
+    (is (= ["central" "clojars" "other"]
            (map #(first-in % [:repository :id])
                 (deep-content xml [:project :repositories])))
         "repositories are named")

diff --git a/test/leiningen/test/repl.clj b/test/leiningen/test/repl.clj
@@ -4,35 +4,35 @@
 
 (deftest test-options-for-reply-empty
   (let [project {}]
-    (is (= {:attach "localhost:9876"
+    (is (= {:attach "127.0.0.1:9876"
             :custom-init nil}
            (options-for-reply project :attach 9876)))))
 
 (deftest test-options-for-reply-host
-  (let [project {:repl-options {:host "127.0.0.1"}}]
-    (is (= {:attach "127.0.0.1:9876"
-            :host "127.0.0.1"
+  (let [project {:repl-options {:host "192.168.0.10"}}]
+    (is (= {:attach "192.168.0.10:9876"
+            :host "192.168.0.10"
             :custom-init nil}
            (options-for-reply project :attach 9876)))))
 
 (deftest test-options-for-reply-prompt
   (let [prompt-fn (fn [ns] "hi ")
         project   {:repl-options {:prompt prompt-fn}}]
-    (is (= {:attach "localhost:9876"
+    (is (= {:attach "127.0.0.1:9876"
             :custom-prompt prompt-fn
             :custom-init nil}
            (options-for-reply project :attach 9876)))))
 
 (deftest test-options-for-reply-init
   (let [init-form '(println "ohai")
         project   {:repl-options {:init init-form}}]
-    (is (= {:attach "localhost:9876"
+    (is (= {:attach "127.0.0.1:9876"
             :custom-init init-form}
            (options-for-reply project :attach 9876)))))
 
 (deftest test-options-for-reply-init-ns
   (let [project {:repl-options {:init-ns 'foo.core}}]
-    (is (= {:attach "localhost:9876"
+    (is (= {:attach "127.0.0.1:9876"
             :init-ns 'foo.core
             :custom-init '(do (clojure.core/require 'foo.core)
                               (clojure.core/in-ns 'foo.core)
@@ -41,7 +41,7 @@
 
 (deftest test-options-for-reply-init-ns-and-init
   (let [project {:repl-options {:init-ns 'foo.core :init '(println "ohai")}}]
-    (is (= {:attach "localhost:9876"
+    (is (= {:attach "127.0.0.1:9876"
             :init-ns 'foo.core
             :custom-init '(do (clojure.core/require 'foo.core)
                               (clojure.core/in-ns 'foo.core)
@@ -50,15 +50,15 @@
 
 (deftest test-options-for-reply-main-ns
   (let [project {:main 'foo.core}]
-    (is (= {:attach "localhost:9876"
+    (is (= {:attach "127.0.0.1:9876"
             :custom-init '(do (clojure.core/require 'foo.core)
                               (clojure.core/in-ns 'foo.core)
                               nil)}
            (options-for-reply project :attach 9876)))))
 
 (deftest test-options-for-reply-init-ns-beats-main
   (let [project {:main 'foo.core :repl-options {:init-ns 'winner.here}}]
-    (is (= {:attach "localhost:9876"
+    (is (= {:attach "127.0.0.1:9876"
             :init-ns 'winner.here
             :custom-init '(do (clojure.core/require 'winner.here)
                               (clojure.core/in-ns 'winner.here)

diff --git a/test_projects/sample/project.clj b/test_projects/sample/project.clj
@@ -23,5 +23,6 @@
                    :default (complement :integration)
                    :random (fn [_] (> (rand) ~(float 1/2)))
                    :all (constantly true)}
-  :deploy-repositories {"snapshots" ~(format "file://%s/lein-repo"
+  :repositories {"other" "http://example.com/repo"}
+  :deploy-repositories {"snapshots" ~(format "file://%s/lein-snapshots"
                                              (System/getProperty "java.io.tmpdir"))})