From 64fe2ecd153e6414cf33fc887604a31ee36e7952 Mon Sep 17 00:00:00 2001
From: Asko Nõmm <ano@ano.ee>
Date: Sun, 1 May 2022 19:52:41 +0300
Subject: Implement newline corrector for list block.

---
 test/clarktown/correctors/list_block_test.clj | 66 +++++++++++++++++++++++++++
 1 file changed, 66 insertions(+)
 create mode 100644 test/clarktown/correctors/list_block_test.clj

(limited to 'test/clarktown')

diff --git a/test/clarktown/correctors/list_block_test.clj b/test/clarktown/correctors/list_block_test.clj
new file mode 100644
index 0000000..d435caf
--- /dev/null
+++ b/test/clarktown/correctors/list_block_test.clj
@@ -0,0 +1,66 @@
+(ns clarktown.correctors.list-block-test
+  (:require
+    [clojure.test :refer [deftest testing is]]
+    [clarktown.correctors.list-block :as corrector]))
+
+
+(deftest line-block-corrector-test
+  (testing "Empty line above"
+    (let [line "1. Hello"
+          lines ["Some text goes here" line] 
+          index 1]
+      (is (true? (corrector/empty-line-above? lines line index)))))
+
+  (testing "Empty line above II"
+    (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 "1. Hello" 
+          lines ["Some text goes here" "\n" line]
+          index 2]    
+      (is (false? (corrector/empty-line-above? lines line index)))))
+
+  (testing "No empty line above II"
+    (let [line "* Hello"
+          lines ["Some text goes here" "\n" line]
+          index 2]
+      (is (false? (corrector/empty-line-above? lines line index)))))
+
+  (testing "No empty line above III"
+    (let [line "* Hello"
+          lines ["Some text here" "* Asd" line]
+          index 2]
+      (is (false? (corrector/empty-line-above? lines line index)))))
+       
+  (testing "Empty line below"
+    (let [line "1. Hello"
+          lines [line "Some text goes here"]
+          index 0]
+      (is (true? (corrector/empty-line-below? lines line index)))))
+
+  (testing "Empty line below II"
+    (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 "1. Hello" 
+          lines [line "\n" "Some text goes here"]
+          index 0]
+      (is (false? (corrector/empty-line-below? lines line index)))))
+    
+  (testing "No empty line below II"
+    (let [line "* Hello"
+          lines [line "\n" "Some text goes here"]
+          index 0]
+      (is (false? (corrector/empty-line-below? lines line index)))))
+    
+  (testing "No empty line below III"
+    (let [line "* Hello"
+          lines [line "* Asd" "Some text goes here"]
+          index 0]
+      (is (false? (corrector/empty-line-below? lines line index))))))
-- 
cgit v1.2.3