Add Babashka tests

.github/workflows/check.yml

@@ -37,6 +37,7 @@ jobs:
       - uses: DeLaGuardo/[email protected]
         with:
           cli: '1.11.1.1208'
+          bb: '1.3.186'
 
       - uses: actions/cache@v3
         with:
@@ -53,3 +54,5 @@ jobs:
       - run: npm install
 
       - run: npx shadow-cljs compile test && node out/test.js
+
+      - run: bb test/run.bb

Justfile

@@ -1,3 +1,6 @@
+test-bb:
+  bb test/run.bb
+
 npm:
   npm install
 
@@ -8,7 +11,7 @@ test-clj:
   clojure -A:dev -X cognitect.test-runner.api/test
   clojure -X:dev user/xr! '{:path "check"}'
 
-test: test-cljs test-clj
+test: test-bb test-cljs test-clj
 
 bench:
   clojure -X:dev user/xr! '{:path "bench"}'

bb.edn

@@ -0,0 +1,2 @@
+{:deps {org.clojure/test.check {:mvn/version "1.1.1"}
+        com.widdindustries/time-literals {:mvn/version "0.1.10"}}}

test/me/flowthing/pp_cpp_test.bb

@@ -0,0 +1,4 @@
+(ns me.flowthing.pp-cpp-test)
+
+;; Dummy namespace to prevent Babashka from running tests that compare
+;; the output of clojure.pprint/pprint and me.flowthing.pp/pprint.

test/me/flowthing/pp_gen_test.bb

@@ -0,0 +1,4 @@
+(ns me.flowthing.pp-gen-test)
+
+;; Dummy namespace to prevent Babashka from running Clojure-only
+;; generative tests.

test/me/flowthing/pp_record_test.bb

@@ -0,0 +1,12 @@
+(ns me.flowthing.pp-record-test
+  (:require [clojure.test :refer [deftest is]]
+            [me.flowthing.pp.test :refer [pp]]))
+
+(defrecord R [x])
+(defrecord R?*+! [])
+
+(deftest print-record
+  (is (= "#sci.impl.records.SciRecord{:x\n                            {:a\n                             1,\n                             :b\n                             2,\n                             :c\n                             3,\n                             :d\n                             4}}\n"
+        (pp (->R {:a 1 :b 2 :c 3 :d 4}) :max-width 31)))
+  (is (= "#sci.impl.records.SciRecord{}\n"
+        (pp (->R?*+!)))))

test/run.bb

@@ -0,0 +1,16 @@
+#!/usr/bin/env bb
+
+(require '[clojure.test :as t]
+         '[babashka.classpath :as cp])
+
+(cp/add-classpath "src:test")
+
+(require 'me.flowthing.pp-test)
+(require 'me.flowthing.pp-record-test)
+
+(def test-results
+  (t/run-tests 'me.flowthing.pp-test 'me.flowthing.pp-record-test))
+
+(let [{:keys [fail error]} test-results]
+  (when (pos? (+ fail error))
+    (System/exit 1)))