diff options
Diffstat (limited to 't/util.lisp')
| -rw-r--r-- | t/util.lisp | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/t/util.lisp b/t/util.lisp new file mode 100644 index 0000000..ef59fbb --- /dev/null +++ b/t/util.lisp @@ -0,0 +1,16 @@ +(in-package #:rva-tests) + +(def-suite util-tests + :description "Test functions designated as miscellaneous." + :in all-tests) + +(in-suite util-tests) + +(test asm-extension?-returns-false-obvious-case + (is (not (util:asm-extension? "quux.c")))) + +(test asm-extension?-returns-false-pattern-match-case + (is (not (util:asm-extension? "quux.asm.c")))) + +(test asm-extension?-returns-true-obvious-case + (is (util:asm-extension? "quux.asm"))) |