From 325f4300292b8895838b1b8e3fd2b8dd735d311f Mon Sep 17 00:00:00 2001 From: Asko Nõmm Date: Mon, 20 Oct 2025 00:46:16 +0300 Subject: #7: Have the round trip test run only in server-side (cljs has no slurp) --- test/dompa/round_trip_test.clj | 11 +++++++++++ test/dompa/round_trip_test.cljc | 14 -------------- 2 files changed, 11 insertions(+), 14 deletions(-) create mode 100644 test/dompa/round_trip_test.clj delete mode 100644 test/dompa/round_trip_test.cljc (limited to 'test/dompa') 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 diff --git a/test/dompa/round_trip_test.cljc b/test/dompa/round_trip_test.cljc deleted file mode 100644 index 9413988..0000000 --- a/test/dompa/round_trip_test.cljc +++ /dev/null @@ -1,14 +0,0 @@ -(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