html-to-md/test/html_to_md/html_to_md_test.clj

(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 [markdown-dispatcher]]))

(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)))))

(deftest body-test
    (testing "A complete document body"
        (let [expected "\n# This is the top level header\n\n## Table of contents\n\n\n1. [Paragraph One](paragraph-1)\n2. [Paragraph Two](paragraph-2)\n\n\n## Paragraph-1\n\nThis is the first paragraph. It is *very* dull.\n\n## Paragraph-2\n\nThis is the second paragraph. It is no more interesting.\n"
              actual (process
                           {:tag :body
                            :content
                            [{:tag :h1
                              :content ["This is the top level header"]}
                             {:tag :h2
                              :content ["Table of contents"]}
                             {:tag :ol
                              :content
                              [{:tag :li
                                :content
                                [{:tag :a
                                  :attrs {:href "paragraph-1"}
                                  :content ["Paragraph One"]}]}
                               {:tag :li
                                :content
                                [{:tag :a
                                  :attrs {:href "paragraph-2"}
                                  :content ["Paragraph Two"]}]}]}
                             {:tag :h2
                              :content ["Paragraph-1"]}
                             {:tag :p
                              :content ["This is the first paragraph. It is "
                                        {:tag :em
                                         :content ["very"]}
                                        " dull."]}
                             {:tag :h2
                              :content ["Paragraph-2"]}
                             {:tag :p
                              :content ["This is the second paragraph. It is no more interesting."]}]}
                         markdown-dispatcher)]
            (println actual)
            (is (= expected actual)))))



(deftest html-test
    (testing "a complete sample document"
        (let [expected "\n# This is the top level header\n\n## Table of contents\n\n\n1. [Paragraph One](paragraph-1)\n2. [Paragraph Two](paragraph-2)\n\n\n## Paragraph-1\n\nThis is the first paragraph. It is *very* dull.\n\n## Paragraph-2\n\nThis is the second paragraph. It is no more interesting.\n"
              actual (process
                         {:tag :html
                          :content
                          [{:tag :head
                            :content
                            [{:tag :title
                              :content ["This is the title"]}]}
                           {:tag :body
                            :content
                            [{:tag :h1
                              :content ["This is the top level header"]}
                             {:tag :h2
                              :content ["Table of contents"]}
                             {:tag :ol
                              :content
                              [{:tag :li
                                :content
                                [{:tag :a
                                  :attrs {:href "paragraph-1"}
                                  :content ["Paragraph One"]}]}
                               {:tag :li
                                :content
                                [{:tag :a
                                  :attrs {:href "paragraph-2"}
                                  :content ["Paragraph Two"]}]}]}
                             {:tag :h2
                              :content ["Paragraph-1"]}
                             {:tag :p
                              :content ["This is the first paragraph. It is "
                                        {:tag :em
                                         :content ["very"]}
                                        " dull."]}
                             {:tag :h2
                              :content ["Paragraph-2"]}
                             {:tag :p
                              :content ["This is the second paragraph. It is no more interesting."]}]}]}
                         markdown-dispatcher)]
            (is (= expected actual)))))