Add tests for bold text, and support using `__` for bold text creation as well (re #5)

2 files changed, 19 insertions, 2 deletions

diff --git a/src/clarktown/parsers/bold.clj b/src/clarktown/parsers/bold.clj
index cc209e6..e672153 100644
--- a/src/clarktown/parsers/bold.clj
+++ b/src/clarktown/parsers/bold.clj
@@ -7,11 +7,11 @@
   "Renders all occurring bold text as bold."
   [block _]
   (loop [block block
-         matches (-> (re-seq #"\*\*.*?\*\*" block)
+         matches (-> (re-seq #"(\*{2}|\_{2})(.*?)(\*{2}|\_{2})" block)
                      distinct)]
     (if (empty? matches)
       block
-      (let [match (first matches)
+      (let [match (ffirst matches)
             value (subs match 2 (- (count match) 2))
             replacement (str "<strong>" value "</strong>")]
         (recur (string/replace block match replacement)
diff --git a/test/clarktown/parsers/bold_test.clj b/test/clarktown/parsers/bold_test.clj
new file mode 100644
index 0000000..9689052
--- /dev/null
+++ b/test/clarktown/parsers/bold_test.clj
@@ -0,0 +1,17 @@
+(ns clarktown.parsers.bold-test
+  (:require [clojure.test :refer [deftest testing is]]
+            [clarktown.parsers.bold :as bold]))
+
+
+(deftest bold-test
+  (testing "Creating bold text with two surrounding asterisk characters"
+    (is (= "<strong>This is bold.</strong>"
+           (bold/render "**This is bold.**" nil))))
+
+  (testing "Creating bold text with two surrounding underscore characters"
+    (is (= "<strong>This is bold.</strong>"
+           (bold/render "__This is bold.__" nil))))
+
+  (testing "Creating bold text with both underscores and asterisks mixed"
+    (is (= "Hi, my name is <strong>John</strong>, what is <strong>your name?</strong>"
+           (bold/render "Hi, my name is **John**, what is __your name?__" nil)))))
\ No newline at end of file