From 2b530b7c4e53596ce17e24f3fab42ab2f3c52ba8 Mon Sep 17 00:00:00 2001
From: Asko Nõmm <asko@bien.ee>
Date: Fri, 22 Apr 2022 22:09:09 +0300
Subject: Implement tests for correctors

---
 .../correctors/atx_heading_block_test.clj          | 30 ++++++++++++++++++
 test/clarktown/correctors/code_block_test.clj      | 37 ++++++++++++++++++++++
 2 files changed, 67 insertions(+)
 create mode 100644 test/clarktown/correctors/atx_heading_block_test.clj
 create mode 100644 test/clarktown/correctors/code_block_test.clj

(limited to 'test/clarktown/correctors')

diff --git a/test/clarktown/correctors/atx_heading_block_test.clj b/test/clarktown/correctors/atx_heading_block_test.clj
new file mode 100644
index 0000000..3ece304
--- /dev/null
+++ b/test/clarktown/correctors/atx_heading_block_test.clj
@@ -0,0 +1,30 @@
+(ns clarktown.correctors.atx-heading-block-test
+  (:require 
+    [clojure.test :refer [deftest testing is]]
+    [clarktown.correctors.atx-heading-block :as corrector]))
+
+
+(deftest atx-heading-block-corrector
+  (testing "Empty line above"
+    (let [line "# Hello"
+          lines ["Some text goes here" line]
+          index 1]
+      (is (true? (corrector/empty-line-above? lines line index)))))
+    
+  (testing "No empty line above"
+    (let [line "# Hello" 
+          lines ["Some text goes here" "\n" line]
+          index 2]
+      (is (false? (corrector/empty-line-above? lines line index)))))
+    
+  (testing "Empty line below"
+    (let [line "# Hello"
+          lines [line "Some text goes here"]
+          index 0]
+      (is (true? (corrector/empty-line-below? lines line index)))))
+    
+  (testing "No empty line below"
+    (let [line "# Hello" 
+          lines [line "\n" "Some text goes here"]
+          index 0]
+      (is (false? (corrector/empty-line-below? lines line index))))))
diff --git a/test/clarktown/correctors/code_block_test.clj b/test/clarktown/correctors/code_block_test.clj
new file mode 100644
index 0000000..16711da
--- /dev/null
+++ b/test/clarktown/correctors/code_block_test.clj
@@ -0,0 +1,37 @@
+(ns clarktown.correctors.code-block-test
+  (:require
+    [clojure.test :refer [deftest testing is]]
+    [clarktown.correctors.code-block :as corrector]))
+
+
+(deftest code-block-corrector
+  (testing "Empty line above"
+    (let [line "```clojure"
+          lines ["Some text goes here" line "some code here" "```"]
+          index 1]
+      (is (true? (corrector/empty-line-above? lines line index)))))       
+           
+  (testing "No empty line above"
+    (let [line "```"
+          lines ["Some text goes here" "\n" line "some code" "```"]
+          index 2]
+      (is (false? (corrector/empty-line-above? lines line index)))))
+  
+  (testing "Empty line below"
+    (let [line "```"
+          lines ["Some text goes here" line "some code" line "some text"]
+          index 3]
+      (is (true? (corrector/empty-line-below? lines line index)))))
+       
+  (testing "No empty line below"
+    (let [line "```"
+          lines ["Some text goes here" line "some code" line "\n" "some text"]
+          index 3]
+      (is (false? (corrector/empty-line-below? lines line index)))))
+    
+  (testing "No empty line below when ending with code block"
+    (let [line "```"
+          lines ["Some text goes here" line "some code" line]
+          index 3]
+      (is (false? (corrector/empty-line-below? lines line index))))))
+    
-- 
cgit v1.2.3