blob: 0e5d1fa1ae0b69187d9225eef681e7597817c9e0 (
plain)
1
2
3
4
5
6
7
8
9
10
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)))))
|
