confirm test work

jcs-PR · Sep 28, 2024 · 538e928 · 538e928
1 parent 3382056
commit 538e928
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/test/test.lisp b/test/test.lisp
@@ -3,6 +3,7 @@
 
 (let ((score (flx:score "buffer-file-name" "bfn")))
   (print score)
+  (terpri)
   (unless (equal score '(237 0 7 12))
-    (print "Error testing `buffer-file-name`")
+    (print (format nil "Error testing `buffer-file-name`: ~a" score))
     (quit :unix-status 1)))