diff options
Diffstat (limited to 'test/dompa/round_trip_test.cljc')
| -rw-r--r-- | test/dompa/round_trip_test.cljc | 14 |
1 files changed, 14 insertions, 0 deletions
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 |