From c5ba5b1e4b87f452b7b9ea387efffe7c4dbcea35 Mon Sep 17 00:00:00 2001
From: Craig Oates <craig@craigoates.net>
Date: Sat, 10 Sep 2022 19:18:16 +0100
Subject: [PATCH] switch Fiveam to parachute (testing framework).

There is no immediate or obvious reason for the change. I just prefer
to work with parachute.
---
 tests/packages.lisp               |  2 +-
 tests/test-ritherdon-archive.lisp | 22 +++++++++++++---------
 2 files changed, 14 insertions(+), 10 deletions(-)

diff --git a/tests/packages.lisp b/tests/packages.lisp
index 47884a0..67a679e 100644
--- a/tests/packages.lisp
+++ b/tests/packages.lisp
@@ -1,7 +1,7 @@
 (in-package :asdf-user)
 (defpackage :ritherdon-archive-tests
   (:use :common-lisp
-        :fiveam
+        :parachute
         :ritherdon-archive))
 
 
diff --git a/tests/test-ritherdon-archive.lisp b/tests/test-ritherdon-archive.lisp
index 70c0d7e..e249fe7 100644
--- a/tests/test-ritherdon-archive.lisp
+++ b/tests/test-ritherdon-archive.lisp
@@ -1,12 +1,16 @@
 (in-package :ritherdon-archive-tests)
 
-;; Define your project tests here...
+#| parachute: https://shinmera.github.io/parachute/
+================================================================================
+Use the URL to access the documentation for parachute.
+|#
 
-(def-suite testmain
-    :description "test suite 1")
-
-(in-suite testmain)
-
-(test test1
-  (is (= (+ 1 1)
-         3)))
+;; This was an example taken from the doc's for parachute. I'm going to keep it
+;; here as a reference until I get comfortable with parachute.
+(define-test reference-tests
+  (of-type integer 5)
+  (true (numberp 2/3))
+  (false (numberp :keyword))
+  (is-values (values 0 "1")
+    (= 0)
+    (equal "1")))