simon/html-to-md
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

HTML to Markdown very largely working.

Browse source
This commit is contained in:
Simon Brooke 2019-04-30 15:18:30 +01:00
parent b406ef92c0
commit 7f50863d83
4 changed files with 269 additions and 90 deletions
Download patch file Download diff file Expand all files Collapse all files

6
test/html_to_md/core_test.clj
View file

@ -2,6 +2,6 @@
(:require [clojure.test :refer :all]
[html-to-md.core :refer :all]))
(deftest a-test
(testing "FIXME, I fail."
(is (= 0 1))))
;; (deftest a-test
;; (testing "FIXME, I fail."
;; (is (= 0 1))))

105
test/html_to_md/html_to_md_test.clj Normal file
View file

@ -0,0 +1,105 @@
(ns html-to-md.html-to-md-test
(:require [clojure.test :refer :all]
[html-to-md.transformer :refer [process]]
[html-to-md.html-to-md :refer :all]))
(deftest a-test
(testing "Anchor tag."
(let [expected "[Hello dere!](http://foo.bar)"
actual (process {:tag :a :attrs {:href "http://foo.bar"} :content ["Hello dere!"]} markdown-dispatcher)]
(is (= expected actual)))))
(deftest b-test
(testing "Bold tag."
(let [expected "**Hello dere!**"
actual (process {:tag :b :content ["Hello dere!"]} markdown-dispatcher)]
(is (= expected actual))))
(testing "STRONG emphasis tag."
(let [expected "**Hello dere!**"
actual (process {:tag :strong :content ["Hello dere!"]} markdown-dispatcher)]
(is (= expected actual)))))
(deftest div-test
(testing "DIVision tag."
(let [expected "\nHello dere!\n"
actual (process {:tag :div :content ["Hello dere!"]} markdown-dispatcher)]
(is (= expected actual)))))
(deftest em-test
(testing "EMphasis tag."
(let [expected "*Hello dere!*"
actual (process {:tag :em :content ["Hello dere!"]} markdown-dispatcher)]
(is (= expected actual))))
(testing "Italics tag"
(let [expected "*Hello dere!*"
actual (process {:tag :i :content ["Hello dere!"]} markdown-dispatcher)]
(is (= expected actual)))))
(deftest h1-test
(testing "Level 1 header tag."
(let [expected "\n# Hello dere!\n"
actual (process {:tag :h1 :content ["Hello dere!"]} markdown-dispatcher)]
(is (= expected actual)))))
(deftest h2-test
(testing "Level 2 header tag."
(let [expected "\n## Hello dere!\n"
actual (process {:tag :h2 :content ["Hello dere!"]} markdown-dispatcher)]
(is (= expected actual)))))
(deftest h3-test
(testing "Level 3 header tag."
(let [expected "\n### Hello dere!\n"
actual (process {:tag :h3 :content ["Hello dere!"]} markdown-dispatcher)]
(is (= expected actual)))))
(deftest h4-test
(testing "Level 4 header tag."
(let [expected "\n#### Hello dere!\n"
actual (process {:tag :h4 :content ["Hello dere!"]} markdown-dispatcher)]
(is (= expected actual)))))
(deftest h5-test
(testing "Level 5 header tag."
(let [expected "\n##### Hello dere!\n"
actual (process {:tag :h5 :content ["Hello dere!"]} markdown-dispatcher)]
(is (= expected actual)))))
(deftest h6-test
(testing "Level 6 header tag."
(let [expected "\n###### Hello dere!\n"
actual (process {:tag :h6 :content ["Hello dere!"]} markdown-dispatcher)]
(is (= expected actual)))))
(deftest img-test
(testing "Image tag."
(let [expected "![Hello dere!](http://foo.bar/image.png)"
actual (process
{:tag :img
:attrs {:src "http://foo.bar/image.png"
:alt "Hello dere!"}}
markdown-dispatcher)]
(is (= expected actual)))))
(deftest list-test
(testing "ordered list tag."
(let [expected "\n\n1. foo\n2. bar\n3. ban\n\n"
actual (process
{:tag :ol
:content
[{:tag :li :content ["foo"]}
{:tag :li :content ["bar"]}
{:tag :li :content ["ban"]}]}
markdown-dispatcher)]
(is (= expected actual))))
(testing "umordered list tag."
(let [expected "\n\n* foo\n* bar\n* ban\n\n"
actual (process
{:tag :ul
:content
[{:tag :li :content ["foo"]}
{:tag :li :content ["bar"]}
{:tag :li :content ["ban"]}]}
markdown-dispatcher)]
(is (= expected actual)))))