vaclavt/mlisp
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

string-cmp and string-cmp-ic added

Browse Source
This commit is contained in:
vaclavt
2022-03-13 10:32:43 +01:00
parent 65abc2fd07
commit cd9822fcf2
7 changed files with 26 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
tests/test.lsp
View File

@@ -101,6 +101,8 @@
(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 (string-cmp \"aaa\" \"aaa\")" '(ut::assert-equal 0 (string-cmp "aaa" "aaa")))
(ut::define-test "result of (string-cmp-ic \"aaa\" \"AaA\")" '(ut::assert-equal 0 (string-cmp-ic "aaa" "AaA")))
(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)))