(#1695) Add failing test for repository replace

As described in #1695, the `^:replace` metadata for the
`:repositories` section of the project file stopped working
around 2.4.0 (commit 17e91e6).

This commit adds a failing test that illustrates the
behavior.

leiningen-core/dev-resources/replace-repositories.clj

@@ -0,0 +1,6 @@
+(defproject metadata-check "0.1.0"
+  :description "Check that repositories can be replaced."
+  :license {:name "Eclipse Public License"}
+  :dependencies [[robert/hooke "1.1.2"]
+                 [stencil "0.2.0"]]
+  :repositories ^:replace [["nexus" {:url "https://clojars.org/repo/"}]])

leiningen-core/pom.xml

@@ -3,7 +3,7 @@
   <groupId>leiningen-core</groupId>
   <artifactId>leiningen-core</artifactId>
   <packaging>jar</packaging>
-  <version>2.5.0</version>
+  <version>2.5.1-SNAPSHOT</version>
   <name>leiningen-core</name>
   <description>Library for core functionality of Leiningen.</description>
   <url>https://github.com/technomancy/leiningen</url>
@@ -16,7 +16,7 @@
   <scm>
     <connection>scm:git:git://github.com/technomancy/leiningen.git</connection>
     <developerConnection>scm:git:ssh://git@github.com/technomancy/leiningen.git</developerConnection>
-    <tag>7cca27e54a28c11f86de697fa60dfba378690876
+    <tag>e77db48947ee47e7ee0c1e4b8f5e43764e3aa3b7
 </tag>
     <url>https://github.com/technomancy/leiningen</url>
   </scm>
@@ -24,11 +24,17 @@
     <sourceDirectory>src</sourceDirectory>
     <testSourceDirectory>test</testSourceDirectory>
     <resources>
+      <resource>
+        <directory>dev-resources</directory>
+      </resource>
       <resource>
         <directory>resources</directory>
       </resource>
     </resources>
     <testResources>
+      <testResource>
+        <directory>dev-resources</directory>
+      </testResource>
       <testResource>
         <directory>dev-resources</directory>
       </testResource>
@@ -91,13 +97,18 @@
     <dependency>
       <groupId>org.apache.maven.wagon</groupId>
       <artifactId>wagon-http</artifactId>
-      <version>2.4</version>
+      <version>2.7</version>
     </dependency>
     <dependency>
       <groupId>com.hypirion</groupId>
       <artifactId>io</artifactId>
       <version>0.3.1</version>
     </dependency>
+    <dependency>
+      <groupId>spyscope</groupId>
+      <artifactId>spyscope</artifactId>
+      <version>0.1.4</version>
+    </dependency>
     <dependency>
       <groupId>pedantic</groupId>
       <artifactId>pedantic</artifactId>
@@ -113,7 +124,6 @@
           <artifactId>clojure</artifactId>
         </exclusion>
       </exclusions>
-      <scope>test</scope>
     </dependency>
     <dependency>
       <groupId>clojure-complete</groupId>
@@ -125,7 +135,6 @@
           <artifactId>clojure</artifactId>
         </exclusion>
       </exclusions>
-      <scope>test</scope>
     </dependency>
   </dependencies>
 </project>

leiningen-core/test/leiningen/core/test/project.clj

@@ -69,6 +69,10 @@
 ;; TODO: test omit-default
 ;; TODO: test reading project that doesn't def project
 
+(deftest test-replace-repositories
+  (let [actual (read (.getFile (io/resource "replace-repositories.clj")))]
+    (is (= 1 (-> actual :repositories count)))))
+
 (deftest test-retain-profile-metadata
   (let [actual (read (.getFile (io/resource "profile-metadata.clj")))
         profiles (:profiles actual)]