Merge pull request #37 from borkdude/enable-print-tests-in-bb

Enable print tests in bb

Author: plexus

.github/workflows/bb.yml

@@ -8,7 +8,7 @@ jobs:
 
     strategy:
       matrix:
-        os: [ubuntu-latest, macOS-latest, windows-latest]
+        os: [ubuntu-latest]
 
     runs-on: ${{ matrix.os }}
 

CHANGELOG.md

@@ -2,6 +2,8 @@
 
 ## Added
 
+- Enable print tests in babashka
+
 ## Fixed
 
 ## Changed
@@ -144,4 +146,4 @@
 
 ## Added
 
-- Extracted from Kaocha, and added a top-level namespace.
+- Extracted from Kaocha, and added a top-level namespace.

test/lambdaisland/deep_diff2/printer_test.cljc

@@ -5,16 +5,19 @@
   #?(:clj
      (:import (java.sql Timestamp)
               (java.util Date
-                         GregorianCalendar
                          TimeZone))))
 
+#?(:bb nil ;; GregorianCalender not included in favor of java.time
+   :clj (import '[java.util GregorianCalendar]))
+
 (defn- printed
   [diff]
   (let [printer (printer/puget-printer {})]
     (with-out-str (-> diff
                       (printer/format-doc printer)
                       (printer/print-doc printer)))))
-#?(:clj
+#?(:bb nil
+   :clj
    (defn- calendar
      [date]
      (doto (GregorianCalendar. (TimeZone/getTimeZone "GMT"))
@@ -26,13 +29,15 @@
            (printed (diff/diff #inst "2019-04-09T14:57:46.128-00:00"
                                #inst "2019-04-10T14:57:46.128-00:00")))))
 
-  #?(:clj
+  #?(:bb nil ;; bb TimeStamp constructor not included as of 1.0.166
+     :clj
      (testing "timestamp"
        (is (= "\u001B[31m-#inst \"1970-01-01T00:00:00.000000000-00:00\"\u001B[0m \u001B[32m+#inst \"1970-01-01T00:00:01.000000101-00:00\"\u001B[0m\n"
               (printed (diff/diff (Timestamp. 0)
                                   (doto (Timestamp. 1000) (.setNanos 101))))))))
 
-  #?(:clj
+  #?(:bb nil
+     :clj
      (testing "calendar"
        (is (= "\u001B[31m-#inst \"1970-01-01T00:00:00.000+00:00\"\u001B[0m \u001B[32m+#inst \"1970-01-01T00:00:01.001+00:00\"\u001B[0m\n"
               (printed (diff/diff (calendar (Date. 0)) (calendar (Date. 1001))))))))

test/lambdaisland/deep_diff2/runner.clj

@@ -4,7 +4,7 @@
 
 (defn run-tests [_]
   (let [test-nss '[lambdaisland.deep-diff2.diff-test
-                   #_lambdaisland.deep-diff2.printer-test
+                   lambdaisland.deep-diff2.printer-test
                    lambdaisland.deep-diff2.puget-test]]
     (doseq [test-ns test-nss]
       (require test-ns))