From ed35b736e4098b3c7a5825674adcdd52ad577f89 Mon Sep 17 00:00:00 2001 From: Asko Nõmm Date: Wed, 8 Oct 2025 01:50:25 +0300 Subject: Add test runner for cljs --- test/dompa/coordinates_test.cljc | 8 +++++--- test/dompa/html_test.cljc | 6 ++++-- test/dompa/nodes_test.cljc | 11 +++++++---- 3 files changed, 16 insertions(+), 9 deletions(-) (limited to 'test/dompa') diff --git a/test/dompa/coordinates_test.cljc b/test/dompa/coordinates_test.cljc index 91abf20..85a4518 100644 --- a/test/dompa/coordinates_test.cljc +++ b/test/dompa/coordinates_test.cljc @@ -1,6 +1,8 @@ (ns dompa.coordinates-test - (:require [clojure.test :refer [deftest testing is]] - [dompa.coordinates :as coordinates])) + #?(:clj (:require [clojure.test :refer [deftest testing is]] + [dompa.coordinates :as coordinates])) + #?(:cljs (:require [cljs.test :refer-macros [deftest testing is]] + [dompa.coordinates :as coordinates]))) (deftest compose-test (testing "Create coordinates" @@ -142,4 +144,4 @@ (-> "boldHello, world" coordinates/compose coordinates/unify - coordinates/->nodes))))) \ No newline at end of file + coordinates/->nodes))))) diff --git a/test/dompa/html_test.cljc b/test/dompa/html_test.cljc index 0bab86e..77107d1 100644 --- a/test/dompa/html_test.cljc +++ b/test/dompa/html_test.cljc @@ -1,6 +1,8 @@ (ns dompa.html-test - (:require [clojure.test :refer [deftest is testing]] - [dompa.html :as html])) + #?(:clj (:require [clojure.test :refer [deftest is testing]] + [dompa.html :as html])) + #?(:cljs (:require [cljs.test :refer-macros [deftest testing is]] + [dompa.html :as html]))) (deftest coordinates-test (testing "HTML to coordinates" diff --git a/test/dompa/nodes_test.cljc b/test/dompa/nodes_test.cljc index 1eba4ff..8544d51 100644 --- a/test/dompa/nodes_test.cljc +++ b/test/dompa/nodes_test.cljc @@ -1,7 +1,10 @@ (ns dompa.nodes-test - (:require [clojure.test :refer [deftest is testing]] - [dompa.nodes :refer [$ defhtml traverse ->html]] - [dompa.html :as html])) + #?(:clj (:require [clojure.test :refer [deftest is testing]] + [dompa.nodes :refer [$ defhtml traverse ->html]] + [dompa.html :as html])) + #?(:cljs (:require [cljs.test :refer-macros [deftest testing is]] + [dompa.nodes :refer [$ defhtml traverse ->html]] + [dompa.html :as html]))) (defhtml hello [who] ($ :div @@ -40,4 +43,4 @@ (is (= "
world hello
" (-> (html/->nodes "
hello world
") (traverse traverser-fn) - ->html))))) \ No newline at end of file + ->html))))) -- cgit v1.2.3