From 4aa6bf978f28c38e0faebadbec9ffe40f366a52a Mon Sep 17 00:00:00 2001
From: "Johan Mynhardt (MEA)" <johanmynhardt@gmail.com>
Date: Sat, 21 May 2022 16:19:57 +0200
Subject: [PATCH] Add test for `transform` java.lang.ClassCastException

When `obj` argument is a string (X)HTML payload and
not a string URL or URI, the following exception is
thrown:

```clojure
java.lang.ClassCastException: class java.lang.Class cannot be cast to class clojure.lang.IFn
```
---
 test/html_to_md/transformer_test.clj | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 test/html_to_md/transformer_test.clj

diff --git a/test/html_to_md/transformer_test.clj b/test/html_to_md/transformer_test.clj
new file mode 100644
index 0000000..e1b7e5f
--- /dev/null
+++ b/test/html_to_md/transformer_test.clj
@@ -0,0 +1,13 @@
+(ns html-to-md.transformer-test
+  (:require
+   [clojure.string :as str]
+   [clojure.test :as t :refer [deftest is testing]]
+   [html-to-md.html-to-md :refer [markdown-dispatcher]]
+   [html-to-md.transformer :refer [transform]]))
+
+(deftest transform-payload
+  (testing "String `obj` for: 3. A string representation of an (X)HTML fragment;"
+    (is (= "# This is a header"
+           (str/trim (-> "<h1>This is a header"
+                         (transform markdown-dispatcher)
+                         (first)))))))