52 lines
2.3 KiB
Clojure
52 lines
2.3 KiB
Clojure
(ns net.deertopia.doerg.element-test
|
|
(:require [net.deertopia.doerg.element :as sut]
|
|
[babashka.process :as p]
|
|
[clojure.test :as t]
|
|
[clojure.zip :as z]
|
|
[clojure.java.io :as io]
|
|
[com.rpl.specter :as sp]))
|
|
|
|
(defn- first-child-of-type [parent type]
|
|
(some #(and (sut/of-type? % type) %) (:children parent)))
|
|
|
|
(defn- parse-resource [path]
|
|
(-> (str "net/deertopia/doerg/element_test/" path)
|
|
io/resource slurp sut/read-string))
|
|
|
|
(t/deftest known-greater-elements
|
|
(t/testing "known greater elements satisfy `greater-element?`"
|
|
(let [root (parse-resource "greater-elements.org")
|
|
section (->> root
|
|
(sp/select [sut/children-walker
|
|
#(sut/of-type? % "section")])
|
|
second)
|
|
headline (first-child-of-type section "headline")
|
|
headline-text (first-child-of-type headline "text")
|
|
paragraph (first-child-of-type section "paragraph")
|
|
paragraph-text (first-child-of-type paragraph "text")]
|
|
(t/is (sut/greater-element? root))
|
|
(t/is (sut/greater-element? section))
|
|
(t/is (sut/greater-element? headline))
|
|
(t/is (not (sut/greater-element? headline-text)))
|
|
(t/is (sut/greater-element? paragraph))
|
|
(t/is (not (sut/greater-element? paragraph-text))))))
|
|
|
|
(defn- first-paragraph-belongs-to-first-section? [doc]
|
|
(let [first-paragraph (sp/select-first [sut/postorder-walker
|
|
#(sut/of-type? % "paragraph")]
|
|
doc)
|
|
first-section (sp/select-first [sut/postorder-walker
|
|
#(sut/of-type? % "section")]
|
|
doc)]
|
|
(if (and first-paragraph first-section)
|
|
(boolean (some #(= % first-paragraph)
|
|
(:children first-section)))
|
|
true)))
|
|
|
|
(t/deftest first-paragraph-under-first-section
|
|
(t/testing "first paragraph should belong to a section"
|
|
(t/is (-> (parse-resource "first-paragraph-under-first-section.org")
|
|
first-paragraph-belongs-to-first-section?))
|
|
(t/is (not (-> (parse-resource "first-paragraph-under-heading.org")
|
|
first-paragraph-belongs-to-first-section?)))))
|