From 4528aee1d700ba0ac611fb07faf4c5a8c7e0b9ad Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Thu, 1 Dec 2016 15:25:07 -0400 Subject: - Slightly changed the lux-lein commands. --- lux-lein/src/leiningen/luxc/test.clj | 27 --------------------------- 1 file changed, 27 deletions(-) delete mode 100644 lux-lein/src/leiningen/luxc/test.clj (limited to 'lux-lein/src/leiningen/luxc/test.clj') diff --git a/lux-lein/src/leiningen/luxc/test.clj b/lux-lein/src/leiningen/luxc/test.clj deleted file mode 100644 index a1b5a830c..000000000 --- a/lux-lein/src/leiningen/luxc/test.clj +++ /dev/null @@ -1,27 +0,0 @@ -;; Copyright (c) Eduardo Julian. All rights reserved. -;; This Source Code Form is subject to the terms of the Mozilla Public License, v. 2.0. -;; If a copy of the MPL was not distributed with this file, -;; You can obtain one at http://mozilla.org/MPL/2.0/. - -(ns leiningen.luxc.test - (:refer-clojure :exclude [test]) - (:require [leiningen.core.classpath :as classpath] - (leiningen.luxc [utils :as &utils] - [packager :as &packager]))) - -(defn test [project] - (if-let [tests-module (get-in project [:lux :tests])] - (do (&utils/run-process (&utils/compile-path project tests-module (concat (:test-paths project) (:source-paths project))) - nil - "[COMPILATION BEGIN]" - "[COMPILATION END]") - (let [java-cmd (get project :java-cmd "java") - jvm-opts (->> (get project :jvm-opts) (interpose " ") (reduce str "")) - output-package (str (get-in project [:lux :target] &utils/output-dir) "/" - (get project :jar-name &utils/output-package))] - (do (&packager/package project tests-module (get project :resource-paths (list))) - (&utils/run-process (str java-cmd " " jvm-opts " -jar " output-package) - nil - "[TEST BEGIN]" - "[TEST END]")))) - (println "Please provide a test module in [:lux :tests]"))) -- cgit v1.2.3