From aad8724cbbbcb3a7dc2d5f897b05f3bc35260e35 Mon Sep 17 00:00:00 2001 From: vaclavt Date: Mon, 28 Feb 2022 19:47:51 +0100 Subject: [PATCH] unit tests added --- tests/test.lsp | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/tests/test.lsp b/tests/test.lsp index 8ffbc93..6b3ba7a 100644 --- a/tests/test.lsp +++ b/tests/test.lsp @@ -91,12 +91,22 @@ (ut::define-test "result of (string-substr \"ABCDEF\"4 42)" '(ut::assert-equal "EF" (string-substr "ABCDEF" 4 42))) (ut::define-test "result of (string-substr \"ABCDEF\" -2 2)" '(ut::assert-equal "EF" (string-substr "ABCDEF" -2 2))) +(ut::define-test "result of (string-ltrim \" *** \")" '(ut::assert-equal "*** " (string-ltrim " *** "))) +(ut::define-test "result of (string-rtrim \" *** \")" '(ut::assert-equal " ***" (string-rtrim " *** "))) +(ut::define-test "result of (string-trim \" *** \")" '(ut::assert-equal "***" (string-trim " *** "))) + (ut::define-test "result of (string-find \" long long int;\" \"long\")" '(ut::assert-equal 1 (string-find " long long int;" "long"))) (ut::define-test "result of (string-find \" long long int;\" \"long\" 2)" '(ut::assert-equal 6 (string-find " long long int;" "long" 2))) (ut::define-test "result of (string-find \" long long int;\" \" \")" '(ut::assert-equal 0 (string-find " long long int;" " "))) (ut::define-test "result of (string-find \" long long int;\" \"o\")" '(ut::assert-equal 2 (string-find " long long int;" "o"))) (ut::define-test "result of (string-find \" long long int;\" \"float\")" '(ut::assert-nil (string-find " long long int;" "float"))) +(ut::define-test "result of (is-pos? -1)" '(ut::assert-false (is-pos? -1))) +(ut::define-test "result of (is-neg? -1)" '(ut::assert-true (is-neg? -1))) +(ut::define-test "result of (neg -5)" '(ut::assert-equal 5 (neg -5))) +(ut::define-test "result of (inc 4)" '(ut::assert-equal 5 (inc 4))) +(ut::define-test "result of (dec 4)" '(ut::assert-equal 3 (dec 4))) + (ut::define-test "result of (itok 65)" '(ut::assert-equal "A" (itok 65))) (ut::define-test "result of (itok 48)" '(ut::assert-equal "0" (itok 48))) (ut::define-test "result of (ktoi \"A\")" '(ut::assert-equal 65 (ktoi "A"))) @@ -107,6 +117,7 @@ (ut::define-test "result of (is-file? \"/tmp/file_whichnotex_ists\")" '(ut::assert-false (is-file? "/tmp/file_whichnotex_ists"))) (ut::define-test "result of (is-dir? \"/tmp/file_whichnotex_ists\")" '(ut::assert-false (is-dir? "/tmp/file_whichnotex_ists"))) (ut::define-test "result of (is-dir? \"/tmp\"" '(ut::assert-true (is-dir? "/tmp"))) +(ut::define-test "result of (is-file? \"/tmp\"" '(ut::assert-false (is-file? "/tmp"))) (ut::define-test "result of (uniq '(1 2 2 2 3 4 5 4 4 1 2 2 2 3 4 5 4 4 61 2 2 2 3 4 5 4 4 66))" '(ut::assert-equal '(1 2 3 4 5 61 66) (uniq '(1 2 2 2 3 4 5 4 4 1 2 2 2 3 4 5 4 4 61 2 2 2 3 4 5 4 4 66)))) (ut::define-test "result of (flatten '(1 2 (3 3 (4)) 5 6))" '(ut::assert-equal '(1 2 3 3 4 5 6) (flatten (1 2 (3 3 (4)) 5 6))))