(ns getclojure.format-test

(:require

[clojure.test :refer (deftest testing is use-fixtures)]

[getclojure.format :as sut]

[schema.test :refer (validate-schemas)]))

(use-fixtures :once validate-schemas)

(deftest formatting-test

(testing "It formats inputs, outputs, and values as HTML strings"

(is (= "<div class=\"highlight\"><pre><span></span><span class=\"p\">(</span><span class=\"kd\">defn </span><span class=\"nv\">foo</span><span class=\"w\"> </span><span class=\"p\">[</span><span class=\"nv\">x</span><span class=\"p\">]</span><span class=\"w\"> </span><span class=\"p\">(</span><span class=\"nf\">bar</span><span class=\"w\"> </span><span class=\"nv\">baz</span><span class=\"w\"> </span><span class=\"nv\">qux</span><span class=\"w\"> </span><span class=\"p\">{</span><span class=\"ss\">:a</span><span class=\"w\"> </span><span class=\"mi\">1</span>,<span class=\"w\"> </span><span class=\"ss\">:b</span><span class=\"w\"> </span><span class=\"mi\">2</span><span class=\"p\">}))</span><span class=\"w\"></span>\n</pre></div>\n"

(sut/input "(defn foo [x] (bar baz qux {:a 1 :b 2}))")))

(is (= "<div class=\"highlight\"><pre><span></span><span class=\"mi\">2</span><span class=\"w\"></span>\n</pre></div>\n"

(sut/value "2")))

(is (= "<div class=\"highlight\"><pre><span></span><span class=\"mi\">2222</span><span class=\"nv\">...</span><span class=\"w\"></span>\n</pre></div>\n"

(sut/value "2222..."))

"Pygmentize, but don't attempt to parse the string if it's a truncated value")

(is (= "<div class=\"highlight\"><pre><span></span><span class=\"s\">&quot;Hello, world!&quot;</span><span class=\"w\"></span>\n</pre></div>\n"

(sut/output "\"Hello, world!\"")))

(is (= nil

(sut/output "\"\""))

"Return nothing if we have no output")))