From 2079f0a55422249165ea81d647a2b784982950cf Mon Sep 17 00:00:00 2001
From: Michiel Borkent <michielborkent@gmail.com>
Date: Mon, 29 Nov 2021 23:42:36 +0100
Subject: [PATCH] Add print-deps test

---
 src/babashka/impl/print_deps.clj  |  6 ++++--
 test/babashka/print_deps_test.clj | 17 +++++++++++++++++
 2 files changed, 21 insertions(+), 2 deletions(-)
 create mode 100644 test/babashka/print_deps_test.clj

diff --git a/src/babashka/impl/print_deps.clj b/src/babashka/impl/print_deps.clj
index b09aa0b5..e11703b5 100644
--- a/src/babashka/impl/print_deps.clj
+++ b/src/babashka/impl/print_deps.clj
@@ -14,8 +14,10 @@
                  edn/read-string)
         deps (:deps deps)
         deps (assoc deps
-                    'babashka/fs {:mvn/version "0.0.5"}
-                    'babashka/babashka.curl {:mvn/version "0.0.3"})
+                    'babashka/fs {:mvn/version "0.1.2"}
+                    'babashka/babashka.curl {:mvn/version "0.1.1"}
+                    'babashka/babashka.core {:git/url "https://github.com/babashka/babashka.core"
+                                             :git/sha "52a6037bd4b632bffffb04394fb4efd0cdab6b1e"})
         deps (dissoc deps
                      'borkdude/sci
                      'borkdude/graal.locking
diff --git a/test/babashka/print_deps_test.clj b/test/babashka/print_deps_test.clj
new file mode 100644
index 00000000..4d06b0d5
--- /dev/null
+++ b/test/babashka/print_deps_test.clj
@@ -0,0 +1,17 @@
+(ns babashka.print-deps-test
+  (:require [babashka.deps :as deps]
+            [babashka.fs :as fs]
+            [babashka.test-utils :refer [bb]]
+            [clojure.string :as str]
+            [clojure.test :refer [deftest is testing]]
+            [sci.core :as sci]))
+
+(deftest print-deps-test
+  (let [deps (bb nil "print-deps" "--format" "deps")
+        tmp-dir (fs/create-temp-dir)]
+    (testing "printed deps map can be read by Clojure"
+      (spit (fs/file tmp-dir "deps.edn") deps)
+      (let [cp (sci/with-out-str
+                 (deps/clojure ["-Spath"] {:dir (str tmp-dir)}))]
+        (is (str/includes? cp "babashka.curl")))
+      (fs/delete-tree tmp-dir))))