From 7644be5e3beff7ee986aa77dc47e27aac0f22e1f Mon Sep 17 00:00:00 2001 From: Asko Nõmm Date: Mon, 20 Oct 2025 00:42:50 +0300 Subject: #7: Fixes an issue where `!doctype` would be left out when creating nodes due to it being a void element, and adds a full HTML page test case. --- test/dompa/round_trip_test.cljc | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100644 test/dompa/round_trip_test.cljc (limited to 'test/dompa/round_trip_test.cljc') diff --git a/test/dompa/round_trip_test.cljc b/test/dompa/round_trip_test.cljc new file mode 100644 index 0000000..9413988 --- /dev/null +++ b/test/dompa/round_trip_test.cljc @@ -0,0 +1,14 @@ +(ns dompa.round-trip-test + #?(:clj (:require [clojure.test :refer [deftest is testing]] + [dompa.nodes :as nodes] + [dompa.html :as html])) + #?(:cljs (:require [cljs.test :refer-macros [deftest testing is]] + [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 -- cgit v1.2.3