diff options
| author | bd <bdunahu@operationnull.com> | 2025-03-16 19:32:12 -0400 |
|---|---|---|
| committer | bd <bdunahu@operationnull.com> | 2025-03-16 19:32:12 -0400 |
| commit | 19d13c8339ee990fba358417a54aa6f1c94c7bca (patch) | |
| tree | 9e5d2e3e937fa7a2f76c995cb44b90623424208c /t/util.lisp | |
| parent | aca2504eec49f140c76b668b6949ba767746a847 (diff) | |
Add clingon command-line arg parser, finish test harness setup
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"))) |