Skip to content

Commit

Permalink
Add tests
Browse files Browse the repository at this point in the history
  • Loading branch information
ericdallo committed Mar 22, 2021
1 parent ebb1c97 commit d804046
Show file tree
Hide file tree
Showing 3 changed files with 30 additions and 4 deletions.
1 change: 1 addition & 0 deletions .gitignore
Original file line number Diff line number Diff line change
Expand Up @@ -7,3 +7,4 @@
/.calva/output-window
/deps-bin
/deps-bin.jar
/.nrepl-port
8 changes: 4 additions & 4 deletions src/deps_bin/impl/bin.clj
Original file line number Diff line number Diff line change
Expand Up @@ -7,7 +7,7 @@
[me.raynes.fs :as fs]))

(def ^:private preamble-template
":;exec java {{{jvm-opts}}} -jar $0 \"$@\"\n@echo off\r\njava {{{jvm-opts}}} -jar \"%~f0\" %*\r\ngoto :eof\r\n")
"#!/usr/bin/env bash\nexec java {{{jvm-opts}}} -jar $0 \"$@\"\n@echo off\r\njava {{{jvm-opts}}} -jar \"%~f0\" %*\r\ngoto :eof\r\n")

(defn ^:private print-help []
(println "library usage:")
Expand Down Expand Up @@ -70,7 +70,7 @@
(shutdown-agents)
(do
(case (:reason result)
:help (print-help)
:no-jar (print-help)
:no-name (print-help))
:help (print-help)
:no-jar (print-help)
:no-name (print-help))
(System/exit 1)))))
25 changes: 25 additions & 0 deletions test/deps_bin/impl/bin_test.clj
Original file line number Diff line number Diff line change
@@ -0,0 +1,25 @@
(ns deps-bin.impl.bin-test
(:require
[clojure.test :refer [deftest testing is]]
[deps-bin.impl.bin :as bin]
[clj-zip-meta.core :as clj-zip-meta]))

(deftest build-bin-as-main
(testing "printing help"
(is (= {:success false
:reason :help}
(bin/build-bin {:help true}))))
(testing "when :jar is not provided"
(is (= {:success false
:reason :no-jar}
(bin/build-bin {}))))
(testing "when :name is not provided"
(is (= {:success false
:reason :no-name}
(bin/build-bin {:jar "some-jar.jar"}))))
(testing "when :name and :jar is provided"
(with-redefs [bin/write-bin (constantly nil)
clj-zip-meta/repair-zip-with-preamble-bytes (constantly nil)]
(is (= {:success true}
(bin/build-bin {:jar "some-jar.jar"
:name "some-bin"}))))))

0 comments on commit d804046

Please sign in to comment.