blob: 8565fdc9b541496825b22cad322d85e7347926fe (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
(ns dompa.html-test
(:require [clojure.test :refer [deftest is testing]]
[dompa.html :as html]))
(deftest coordinates-test
(testing "HTML to coordinates"
(is (= [[0 15]
[5 9]]
(html/->coordinates "<div>hello</div>")))))
(deftest nodes-test
(testing "HTML to nodes"
(is (= [{:node/name :div
:node/attrs {}
:node/children [{:node/name :dompa/text
:node/value "hello"}]}]
(html/->nodes "<div>hello</div>")))))
|
