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 | |
| parent | aca2504eec49f140c76b668b6949ba767746a847 (diff) | |
Add clingon command-line arg parser, finish test harness setup
Diffstat (limited to 't')
| -rw-r--r-- | t/main.lisp | 5 | ||||
| -rw-r--r-- | t/package.lisp | 4 | ||||
| -rw-r--r-- | t/util.lisp | 16 |
3 files changed, 18 insertions, 7 deletions
diff --git a/t/main.lisp b/t/main.lisp index 11646b3..0bb62db 100644 --- a/t/main.lisp +++ b/t/main.lisp @@ -7,8 +7,3 @@ (defun test-rva () (run! 'all-tests)) - -(test dummy-tests - "Just a placeholder." - (is (listp (list 1 2))) - (is (= 5 (+ 2 3)))) diff --git a/t/package.lisp b/t/package.lisp index 3581978..28a24c2 100644 --- a/t/package.lisp +++ b/t/package.lisp @@ -1,5 +1,5 @@ (defpackage #:rva-tests (:use #:cl #:fiveam) (:export #:run! - #:test-rva - #:all-tests)) + #:test-rva + #:all-tests)) 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"))) |