From b97891cc45b9a087a372767e25aa36788bc979bf Mon Sep 17 00:00:00 2001 From: Asko Nõmm Date: Sun, 8 May 2022 12:23:35 +0300 Subject: Naming improvements, code block matcher test --- .../correctors/atx_heading_block_test.clj | 8 ++--- test/clarktown/correctors/code_block_test.clj | 37 ---------------------- .../correctors/fenced_code_block_test.clj | 37 ++++++++++++++++++++++ test/clarktown/correctors/list_block_test.clj | 20 ++++++------ 4 files changed, 51 insertions(+), 51 deletions(-) delete mode 100644 test/clarktown/correctors/code_block_test.clj create mode 100644 test/clarktown/correctors/fenced_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 index 3ece304..f363ad0 100644 --- a/test/clarktown/correctors/atx_heading_block_test.clj +++ b/test/clarktown/correctors/atx_heading_block_test.clj @@ -9,22 +9,22 @@ (let [line "# Hello" lines ["Some text goes here" line] index 1] - (is (true? (corrector/empty-line-above? lines line index))))) + (is (true? (corrector/newline-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))))) + (is (false? (corrector/newline-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))))) + (is (true? (corrector/newline-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)))))) + (is (false? (corrector/newline-below? lines line index)))))) diff --git a/test/clarktown/correctors/code_block_test.clj b/test/clarktown/correctors/code_block_test.clj deleted file mode 100644 index 16711da..0000000 --- a/test/clarktown/correctors/code_block_test.clj +++ /dev/null @@ -1,37 +0,0 @@ -(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)))))) - diff --git a/test/clarktown/correctors/fenced_code_block_test.clj b/test/clarktown/correctors/fenced_code_block_test.clj new file mode 100644 index 0000000..a0f9a41 --- /dev/null +++ b/test/clarktown/correctors/fenced_code_block_test.clj @@ -0,0 +1,37 @@ +(ns clarktown.correctors.fenced-code-block-test + (:require + [clojure.test :refer [deftest testing is]] + [clarktown.correctors.fenced-code-block :as corrector])) + + +(deftest fenced-code-block-corrector-test + (testing "Empty line above" + (let [line "```clojure" + lines ["Some text goes here" line "some code here" "```"] + index 1] + (is (true? (corrector/newline-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/newline-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/newline-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/newline-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/newline-below? lines line index)))))) + diff --git a/test/clarktown/correctors/list_block_test.clj b/test/clarktown/correctors/list_block_test.clj index d435caf..54ff94e 100644 --- a/test/clarktown/correctors/list_block_test.clj +++ b/test/clarktown/correctors/list_block_test.clj @@ -9,58 +9,58 @@ (let [line "1. Hello" lines ["Some text goes here" line] index 1] - (is (true? (corrector/empty-line-above? lines line index))))) + (is (true? (corrector/newline-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))))) + (is (true? (corrector/newline-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))))) + (is (false? (corrector/newline-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))))) + (is (false? (corrector/newline-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))))) + (is (false? (corrector/newline-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))))) + (is (true? (corrector/newline-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))))) + (is (true? (corrector/newline-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))))) + (is (false? (corrector/newline-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))))) + (is (false? (corrector/newline-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)))))) + (is (false? (corrector/newline-below? lines line index)))))) -- cgit v1.2.3