From 19d13c8339ee990fba358417a54aa6f1c94c7bca Mon Sep 17 00:00:00 2001 From: bd Date: Sun, 16 Mar 2025 19:32:12 -0400 Subject: Add clingon command-line arg parser, finish test harness setup --- t/util.lisp | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 t/util.lisp (limited to 't/util.lisp') 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"))) -- cgit v1.2.3