1. 首頁
  2. 問答
  3. 在Maven測試Clojure

在Maven測試Clojure

2010-04-04 83 views
8

我是Maven的新手，在Clojure更新。作爲學習語言的練習，我正在寫一個蜘蛛紙牌遊戲程序。我還計劃在Scala中編寫類似的程序來比較實現（請參閱我的文章https://stackoverflow.com/questions/2571267/modern-java-alternatives-closed）。在Maven測試Clojure

我配置了一個包含通常的src/main/clojure和src/test/clojure目錄的Maven目錄結構。我的pom.xml文件包含clojure-maven-plugin。當我運行「mvn test」時，儘管我在src/test/clojure目錄中有測試代碼，但它顯示「No tests to run」。當我誤解了一些東西？這裏是我的pom.xml文件：

<?xml version="1.0" encoding="UTF-8"?> 
<project xmlns="http://maven.apache.org/POM/4.0.0" 
     xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" 
     xsi:schemaLocation="http://maven.apache.org/POM/4.0.0 http://maven.apache.org/xsd/maven-4.0.0.xsd"> 
    <modelVersion>4.0.0</modelVersion> 

    <groupId>SpiderPlayer</groupId> 
    <artifactId>SpiderPlayer</artifactId> 
    <version>1.0.0-SNAPSHOT</version> 
    <inceptionYear>2010</inceptionYear> 

    <packaging>jar</packaging> 

    <properties> 
     <maven.build.timestamp.format>yyMMdd.HHmm</maven.build.timestamp.format> 
     <main.dir>org/dogdaze/spider_player</main.dir> 
     <main.package>org.dogdaze.spider_player</main.package> 
     <main.class>${main.package}.Main</main.class> 
    </properties> 

    <build> 
     <sourceDirectory>src/main/clojure</sourceDirectory> 
     <testSourceDirectory>src/test/clojure</testSourceDirectory> 
     <plugins> 
      <plugin> 
       <groupId>com.theoryinpractise</groupId> 
       <artifactId>clojure-maven-plugin</artifactId> 
       <version>1.3.1</version> 
      </plugin> 
      <plugin> 
       <groupId>org.apache.maven.plugins</groupId> 
       <artifactId>maven-antrun-plugin</artifactId> 
       <version>1.3</version> 
       <executions> 
        <execution> 
         <goals> 
          <goal>run</goal> 
         </goals> 
         <phase>generate-sources</phase> 
         <configuration> 
          <tasks> 
           <echo file="${project.build.sourceDirectory}/${main.dir}/Version.clj" 
             message="(ns ${main.package})${line.separator}"/> 
           <echo file="${project.build.sourceDirectory}/${main.dir}/Version.clj" append="true" 
             message="(def version &quot;${maven.build.timestamp}&quot;)${line.separator}"/> 
          </tasks> 
         </configuration> 
        </execution> 
       </executions> 
      </plugin> 
      <plugin> 
       <groupId>org.apache.maven.plugins</groupId> 
       <artifactId>maven-assembly-plugin</artifactId> 
       <version>2.1</version> 
       <executions> 
        <execution> 
         <goals> 
          <goal>single</goal> 
         </goals> 
         <phase>package</phase> 
         <configuration> 
          <descriptorRefs> 
           <descriptorRef>jar-with-dependencies</descriptorRef> 
          </descriptorRefs> 
          <archive> 
           <manifest> 
            <mainClass>${main.class}</mainClass> 
           </manifest> 
          </archive> 
         </configuration> 
        </execution> 
       </executions> 
      </plugin> 
      <plugin> 
       <groupId>org.apache.maven.plugins</groupId> 
       <artifactId>maven-surefire-plugin</artifactId> 
       <configuration> 
        <redirectTestOutputToFile>true</redirectTestOutputToFile> 
        <skipTests>false</skipTests> 
        <skip>false</skip> 
       </configuration> 
       <executions> 
        <execution> 
         <id>surefire-it</id> 
         <phase>integration-test</phase> 
         <goals> 
          <goal>test</goal> 
         </goals> 
         <configuration> 
          <skip>false</skip> 
         </configuration> 
        </execution> 
       </executions> 
      </plugin> 
     </plugins> 
    </build> 

    <dependencies> 
     <dependency> 
      <groupId>commons-cli</groupId> 
      <artifactId>commons-cli</artifactId> 
      <version>1.2</version> 
      <scope>compile</scope> 
     </dependency> 
    </dependencies> 

</project>

這裏是我的Clojure源文件中（src /主/ Clojure的/組織/ dogdaze/spider_player/Deck.clj）：

; Copyright 2010 Dogdaze 

(ns org.dogdaze.spider_player.Deck 
    (:use 
    [clojure.contrib.seq-utils 
    :only (shuffle)])) 

(def suits [:clubs :diamonds :hearts :spades]) 
(def ranks [:ace :two :three :four :five :six :seven :eight :nine :ten :jack :queen :king]) 

(defn suit-seq 
    "Return 4 suits: 
    if number-of-suits == 1: :clubs :clubs :clubs :clubs 
    if number-of-suits == 2: :clubs :diamonds :clubs :diamonds 
    if number-of-suits == 4: :clubs :diamonds :hearts :spades." 
    [number-of-suits] 
    (take 4 (cycle (take number-of-suits suits)))) 

(defstruct card :rank :suit) 

(defn unshuffled-deck 
    "Create an unshuffled deck containing all cards from the number of suits specified." 
    [number-of-suits] 
    (for 
    [rank ranks suit (suit-seq number-of-suits)] 
    (struct card rank suit))) 

(defn deck 
    "Create a shuffled deck containing all cards from the number of suits specified." 
    [number-of-suits] 
    (shuffle (unshuffled-deck number-of-suits)))

這裏是我的測試案例中（src /測試/ Clojure的/組織/ dogdaze/spider_player/TestDeck.clj）：

; Copyright 2010 Dogdaze 

(ns org.dogdaze.spider_player 
    (:use 
    clojure.set 
    clojure.test 
    org.dogdaze.spider_player.Deck)) 

(deftest test-suit-seq 
    (is (= (suit-seq 1) [:clubs :clubs :clubs :clubs])) 
    (is (= (suit-seq 2) [:clubs :diamonds :clubs :diamonds])) 
    (is (= (suit-seq 4) [:clubs :diamonds :hearts :spades]))) 

(def one-suit-deck 
    [{:rank :ace, :suit :clubs} {:rank :ace, :suit :clubs} {:rank :ace, :suit :clubs} {:rank :ace, :suit :clubs} 
    {:rank :two, :suit :clubs} {:rank :two, :suit :clubs} {:rank :two, :suit :clubs} {:rank :two, :suit :clubs} 
    {:rank :three, :suit :clubs} {:rank :three, :suit :clubs} {:rank :three, :suit :clubs} {:rank :three, :suit :clubs} 
    {:rank :four, :suit :clubs} {:rank :four, :suit :clubs} {:rank :four, :suit :clubs} {:rank :four, :suit :clubs} 
    {:rank :five, :suit :clubs} {:rank :five, :suit :clubs} {:rank :five, :suit :clubs} {:rank :five, :suit :clubs} 
    {:rank :six, :suit :clubs} {:rank :six, :suit :clubs} {:rank :six, :suit :clubs} {:rank :six, :suit :clubs} 
    {:rank :seven, :suit :clubs} {:rank :seven, :suit :clubs} {:rank :seven, :suit :clubs} {:rank :seven, :suit :clubs} 
    {:rank :eight, :suit :clubs} {:rank :eight, :suit :clubs} {:rank :eight, :suit :clubs} {:rank :eight, :suit :clubs} 
    {:rank :nine, :suit :clubs} {:rank :nine, :suit :clubs} {:rank :nine, :suit :clubs} {:rank :nine, :suit :clubs} 
    {:rank :ten, :suit :clubs} {:rank :ten, :suit :clubs} {:rank :ten, :suit :clubs} {:rank :ten, :suit :clubs} 
    {:rank :jack, :suit :clubs} {:rank :jack, :suit :clubs} {:rank :jack, :suit :clubs} {:rank :jack, :suit :clubs} 
    {:rank :queen, :suit :clubs} {:rank :queen, :suit :clubs} {:rank :queen, :suit :clubs} {:rank :queen, :suit :clubs} 
    {:rank :king, :suit :clubs} {:rank :king, :suit :clubs} {:rank :king, :suit :clubs} {:rank :king, :suit :clubs}]) 

(def two-suits-deck 
    [{:rank :ace, :suit :clubs} {:rank :ace, :suit :diamonds} {:rank :ace, :suit :clubs} {:rank :ace, :suit :diamonds} 
    {:rank :two, :suit :clubs} {:rank :two, :suit :diamonds} {:rank :two, :suit :clubs} {:rank :two, :suit :diamonds} 
    {:rank :three, :suit :clubs} {:rank :three, :suit :diamonds} {:rank :three, :suit :clubs} {:rank :three, :suit :diamonds} 
    {:rank :four, :suit :clubs} {:rank :four, :suit :diamonds} {:rank :four, :suit :clubs} {:rank :four, :suit :diamonds} 
    {:rank :five, :suit :clubs} {:rank :five, :suit :diamonds} {:rank :five, :suit :clubs} {:rank :five, :suit :diamonds} 
    {:rank :six, :suit :clubs} {:rank :six, :suit :diamonds} {:rank :six, :suit :clubs} {:rank :six, :suit :diamonds} 
    {:rank :seven, :suit :clubs} {:rank :seven, :suit :diamonds} {:rank :seven, :suit :clubs} {:rank :seven, :suit :diamonds} 
    {:rank :eight, :suit :clubs} {:rank :eight, :suit :diamonds} {:rank :eight, :suit :clubs} {:rank :eight, :suit :diamonds} 
    {:rank :nine, :suit :clubs} {:rank :nine, :suit :diamonds} {:rank :nine, :suit :clubs} {:rank :nine, :suit :diamonds} 
    {:rank :ten, :suit :clubs} {:rank :ten, :suit :diamonds} {:rank :ten, :suit :clubs} {:rank :ten, :suit :diamonds} 
    {:rank :jack, :suit :clubs} {:rank :jack, :suit :diamonds} {:rank :jack, :suit :clubs} {:rank :jack, :suit :diamonds} 
    {:rank :queen, :suit :clubs} {:rank :queen, :suit :diamonds} {:rank :queen, :suit :clubs} {:rank :queen, :suit :diamonds} 
    {:rank :king, :suit :clubs} {:rank :king, :suit :diamonds} {:rank :king, :suit :clubs} {:rank :king, :suit :diamonds}]) 

(def four-suits-deck 
    [{:rank :ace, :suit :clubs} {:rank :ace, :suit :diamonds} {:rank :ace, :suit :hearts} {:rank :ace, :suit :spades} 
    {:rank :two, :suit :clubs} {:rank :two, :suit :diamonds} {:rank :two, :suit :hearts} {:rank :two, :suit :spades} 
    {:rank :three, :suit :clubs} {:rank :three, :suit :diamonds} {:rank :three, :suit :hearts} {:rank :three, :suit :spades} 
    {:rank :four, :suit :clubs} {:rank :four, :suit :diamonds} {:rank :four, :suit :hearts} {:rank :four, :suit :spades} 
    {:rank :five, :suit :clubs} {:rank :five, :suit :diamonds} {:rank :five, :suit :hearts} {:rank :five, :suit :spades} 
    {:rank :six, :suit :clubs} {:rank :six, :suit :diamonds} {:rank :six, :suit :hearts} {:rank :six, :suit :spades} 
    {:rank :seven, :suit :clubs} {:rank :seven, :suit :diamonds} {:rank :seven, :suit :hearts} {:rank :seven, :suit :spades} 
    {:rank :eight, :suit :clubs} {:rank :eight, :suit :diamonds} {:rank :eight, :suit :hearts} {:rank :eight, :suit :spades} 
    {:rank :nine, :suit :clubs} {:rank :nine, :suit :diamonds} {:rank :nine, :suit :hearts} {:rank :nine, :suit :spades} 
    {:rank :ten, :suit :clubs} {:rank :ten, :suit :diamonds} {:rank :ten, :suit :hearts} {:rank :ten, :suit :spades} 
    {:rank :jack, :suit :clubs} {:rank :jack, :suit :diamonds} {:rank :jack, :suit :hearts} {:rank :jack, :suit :spades} 
    {:rank :queen, :suit :clubs} {:rank :queen, :suit :diamonds} {:rank :queen, :suit :hearts} {:rank :queen, :suit :spades} 
    {:rank :king, :suit :clubs} {:rank :king, :suit :diamonds} {:rank :king, :suit :hearts} {:rank :king, :suit :spades}]) 

(deftest test-unshuffled-deck 
    (is (= (unshuffled-deck 1) one-suit-deck)) 
    (is (= (unshuffled-deck 2) two-suits-deck)) 
    (is (= (unshuffled-deck 4) four-suits-deck))) 

(deftest test-shuffled-deck 
    (is (= (set (deck 1)) (set one-suit-deck))) 
    (is (= (set (deck 2)) (set two-suits-deck))) 
    (is (= (set (deck 4)) (set four-suits-deck)))) 

(run-tests)

任何想法，爲什麼測試沒有運行？順便說一句，隨意建議改進Clojure代碼。

謝謝，拉爾夫

來源

2010-04-04 Ralph

+0

仍不能讓我的編譯工作正常。這將在下週末再次演出。 – Ralph 2010-04-08 13:22:01

+0

這個問題，它的回答幫助了我。謝謝。 – devdanke 2014-02-21 20:27:52

回答

7

你從你的pom.xml缺少鍵位（剛剛從惡癖該clojure-contrib pom.xml）是Clojure的，Maven的插件下執行：

<plugin> 
    <groupId>com.theoryinpractise</groupId> 
    <artifactId>clojure-maven-plugin</artifactId> 
    <version>1.3.2</version> 
    <!-- Current Config --> 
    <executions> 
     <!-- ... --> 
     <execution> 
      <id>test-clojure</id> 
      <phase>test</phase> 
      <goals> 
       <goal>test</goal> 
      </goals> 
     </execution> 
    </executions> 
</plugin>

它也可能有必要<build/>下添加如下內容：

<testResources> 
    <testResource> 
     <directory>src/test/clojure</directory> 
    </testResource> 
</testResources>

來源

2010-04-05 17:17:00 ig0774

+1

您可能更喜歡Maven clojure插件的目標* test-with-junit *，它會生成標準JUnit報告文件（另請參閱[with-junit-output] （http://richhickey.github.com/clojure/clojure.test-api.html#clojure.test.junit/with-junit-output）macro），以便結果可以由Jenkins/Hudson/..顯示集成服務器和類似的。 – 2011-07-28 12:26:53

+1

今天我讀到了clojure-maven-plugin文檔，看到如果你製作了項目的 clojure，那麼插件的配置默認爲@ ig0774建議的值。 – devdanke 2014-02-21 20:02:39

0

你可能想在src/test/clojure指向testSourceDirectory：

<sourceDirectory>src/main/clojure</sourceDirectory> 
<testSourceDirectory>src/test/clojure</testSourceDirectory>

來源

2010-04-04 14:16:53

+0

已經嘗試過。沒有任何區別。上面列出的pom.xml是錯誤的。 – Ralph 2010-04-04 14:31:37

+0

這些指令應該位於clojure-maven-plugin聲明的部分 – 2010-04-05 16:53:48

1

您可以使用clojure-maven-plugin &測試來查看pom.xml的this example。默認情況下，clojure-maven-plugin應該自動生成test-runner，如文檔中所述。

而且最好使用Clojure的，Maven的插件的最新版本 - 1.3.2，其中有幾個錯誤是固定

來源

2010-04-05 16:50:59

相關問題

 相關問題