From 19d13c8339ee990fba358417a54aa6f1c94c7bca Mon Sep 17 00:00:00 2001
From: bd <bdunahu@operationnull.com>
Date: Sun, 16 Mar 2025 19:32:12 -0400
Subject: Add clingon command-line arg parser, finish test harness setup

---
 t/main.lisp    |  5 -----
 t/package.lisp |  4 ++--
 t/util.lisp    | 16 ++++++++++++++++
 3 files changed, 18 insertions(+), 7 deletions(-)
 create mode 100644 t/util.lisp

(limited to 't')

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")))
-- 
cgit v1.2.3