diff options
| author | Asko Nõmm <asko@repl.ee> | 2025-10-20 00:48:35 +0300 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2025-10-20 00:48:35 +0300 |
| commit | 3ef74e6a0cfd3869aaa6859750024ee5c9b5ea8a (patch) | |
| tree | a1589f802b136f83fe93f161c16f8bf59eeb72ac /test/dompa/round_trip_test.clj | |
| parent | 94a3ce3611522bb5112da85563c34f39c1da75c4 (diff) | |
| parent | 325f4300292b8895838b1b8e3fd2b8dd735d311f (diff) | |
Merge pull request #8 from askonomm/7-doctype-is-missing-on-a-round-trip-of-html-nodes-htmlv1.0.3
#7: Fixes an issue where `!doctype` would be left out when creating n…
Diffstat (limited to 'test/dompa/round_trip_test.clj')
| -rw-r--r-- | test/dompa/round_trip_test.clj | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/test/dompa/round_trip_test.clj b/test/dompa/round_trip_test.clj new file mode 100644 index 0000000..0e5d1fa --- /dev/null +++ b/test/dompa/round_trip_test.clj @@ -0,0 +1,11 @@ +(ns dompa.round-trip-test + (:require [clojure.test :refer [deftest is testing]] + [dompa.nodes :as nodes] + [dompa.html :as html])) + +(deftest round-trip-test + (testing "michiel borkent website" + (let [input-html (slurp "test/dompa/html/michiel_borkent.html") + nodes (html/->nodes input-html) + output-html (nodes/->html nodes)] + (is (= input-html output-html)))))
\ No newline at end of file |