Add tests for doric library

script/lib_tests/doric_test

@@ -0,0 +1,21 @@
+#!/usr/bin/env bash
+
+set -eo pipefail
+
+export BABASHKA_CLASSPATH
+BABASHKA_CLASSPATH="$(clojure -Spath -Sdeps '{:deps {doric {:mvn/version "0.9.0"}}}')"
+
+if [ "$BABASHKA_TEST_ENV" = "native" ]; then
+    BB_CMD="./bb"
+else
+    BB_CMD="lein bb"
+fi
+
+$BB_CMD -cp "$BABASHKA_CLASSPATH:test-resources/lib_tests" -e "
+(require '[doric.test.core])
+(require '[clojure.test :as t])
+(let [{:keys [:test :pass :fail :error]} (t/run-tests 'doric.test.core)]
+  (when-not (pos? test)
+    (System/exit 1))
+  (System/exit (+ fail error)))
+"

script/run_lib_tests

@@ -15,3 +15,4 @@ script/lib_tests/arrangement_test
 script/lib_tests/clj_yaml_test
 script/lib_tests/clojure_data_csv_test
 script/lib_tests/combinatorics_test
+script/lib_tests/doric_test

test-resources/lib_tests/doric/test/core.clj

@@ -0,0 +1,117 @@
+(ns doric.test.core
+  (:refer-clojure :exclude [format name when])
+  (:use [doric.core]
+        [clojure.test]
+        [doric.org :only [th td render]])
+  (:require [clojure.string :as str]))
+
+(deftest test-title-case
+  (is (= "Foo" (title-case "foo")))
+  (is (= "Foo-bar" (title-case "foo-bar")))
+  (is (= "Foo Bar" (title-case "foo bar")))
+  (is (= "Foo  Bar" (title-case "foo  bar"))))
+
+(deftest test-align
+  (is (= :left (align {})))
+  (is (= :right (align {:align :right}))))
+
+(deftest test-format
+  (is (= identity (format {})))
+  (is (= str (format {:format str}))))
+
+(deftest test-title
+  (is (= "foo" (title {:title "foo"})))
+  (is (= "Foo" (title {:name "foo"}))))
+
+(deftest test-title-align
+  (is (= :center (title-align {})))
+  (is (= :left (title-align {:align :left})))
+  (is (= :left (title-align {:align 'left})))
+  (is (= :left (title-align {:align "left"})))
+  (is (= :right (title-align {:align :left :title-align :right})))
+  (is (= :right (title-align {:align :left :title-align :right}))))
+
+(deftest test-when
+  (is (re-find #"Foo" (table [{:name :foo}] [{:foo :bar}])))
+  (is (re-find #"bar" (table [{:name :foo}] [{:foo :bar}])))
+  (is (re-find #"Foo" (table [{:name :foo :when true}] [{:foo :bar}])))
+  (is (re-find #"bar" (table [{:name :foo :when true}] [{:foo :bar}])))
+  (is (not (re-find #"Foo" (table [{:name :foo :when false}] [{:foo :bar}]))))
+  (is (not (re-find #"bar" (table [{:name :foo :when false}] [{:foo :bar}])))))
+
+(deftest test-width
+  (is (= 5 (width {:width 5})))
+  (is (= 5 (width {:width 5 :name :foobar})))
+  (is (= 7 (width {:name :foobar} ["foobar2"]))))
+
+(deftest test-format-cell
+  (is (= 2 (format-cell {:format inc} 1))))
+
+(deftest test-align-cell
+  (is (= "." (align-cell {:width 1} "." :left)))
+  (is (= "." (align-cell {:width 1} "." :center)))
+  (is (= "." (align-cell {:width 1} "." :right)))
+  (is (= ".  " (align-cell {:width 3} "." :left)))
+  (is (= " . " (align-cell {:width 3} "." :center)))
+  (is (= "  ." (align-cell {:width 3} "." :right)))
+  (is (= ".   " (align-cell {:width 4} "." :left)))
+  (is (= "  . " (align-cell {:width 4} "." :center)))
+  (is (= "   ." (align-cell {:width 4} "." :right))))
+
+(deftest test-th
+  (is (= "Title  " (th {:title "Title" :width 7 :title-align :left})))
+  (is (= " Title " (th {:title "Title" :width 7 :title-align :center})))
+  (is (= "  Title" (th {:title "Title" :width 7 :title-align :right}))))
+
+(deftest test-td
+  (is (= ".  " (td {:name :t :width 3 :align :left} {:t "."})))
+  (is (= " . " (td {:name :t :width 3 :align :center} {:t "."})))
+  (is (= "  ." (td {:name :t :width 3 :align :right} {:t "."}))))
+
+;; TODO (deftest test-header)
+
+;; TODO (deftest test-body)
+
+(deftest test-render
+  (let [rendered (set (render [["1" "2"]["3" "4"]]))]
+    (is (contains? rendered "| 1 | 2 |"))
+    (is (contains? rendered "| 3 | 4 |"))
+    (is (contains? rendered "|---+---|"))))
+
+;; TODO embiggen these tests
+(deftest test-table
+  (let [rendered (table [{:1 3 :2 4}])]
+    (is (.contains rendered "| 1 | 2 |"))
+    (is (.contains rendered "| 3 | 4 |"))
+    (is (.contains rendered "|---+---|"))))
+
+(deftest test-table*-laziness
+  (let [calls (atom 0)
+        inc #(do (swap! calls inc) %)]
+    (testing "formats are not lazy"
+      (let [seq (table* [{:name :1 :format inc}
+                         {:name :2 :format inc}]
+                        [{:1 3 :2 4}])]
+        (is (= 2 @calls))))
+    (reset! calls 0)
+    (testing "unless you provide widths"
+      (let [seq (table* [{:name :1 :format inc :width 10}
+                         {:name :2 :format inc :width 10}]
+                        [{:1 3 :2 4}])]
+        (is (= 0 @calls))))
+    (reset! calls 0)
+    (testing "even for formats that should be automatically lazy, like csv"
+      (let [seq (table* ^{:format csv}
+                        [{:name :1 :format inc :width 0}
+                         {:name :2 :format inc :width 0}]
+                        [{:1 3 :2 4}])]
+        (is (= 0 @calls))))))
+
+(deftest test-empty-table
+  (let [empty-table "|--|\n|  |\n|--|\n|--|"]
+    (is (= empty-table (table [])))
+    (is (= empty-table (table nil)))
+    (is (= empty-table (table [] [])))
+    (is (= empty-table (table [] nil)))
+    (is (= empty-table (table nil [])))
+    (is (= empty-table (table nil nil)))))