From e6b5011763c7f59ae8acf2c38d568c88ebd65ec1 Mon Sep 17 00:00:00 2001
From: Thomas Albers Raviola <thomas@thomaslabs.org>
Date: Fri, 18 Oct 2024 19:34:44 +0200
Subject: Add test suit

---
 tests/test-routes.lisp | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 tests/test-routes.lisp

(limited to 'tests/test-routes.lisp')

diff --git a/tests/test-routes.lisp b/tests/test-routes.lisp
new file mode 100644
index 0000000..45f75cc
--- /dev/null
+++ b/tests/test-routes.lisp
@@ -0,0 +1,25 @@
+(in-package #:scgi-routes/tests)
+
+(5am:def-suite* scgi-routes-tests)
+
+(5am:test test1
+  (5am:finishes
+    (routes:define-route index (:path (p1 p2 "index.cgi")
+                                :method :get
+                                :query (q1
+                                        (q2 :init-form "2")
+                                        (q3 :name "named")
+                                        (q4 :name "all" :init-form "4"
+                                            :suppliedp q4p)
+                                        (q5 :suppliedp q5p))
+                                :fragment f
+                                :content-type "text/plain")
+      (list p1 p2 q1 q2 q3 q4 q4p q5 q5p f)))
+  (5am:is
+   (equal
+    (let (ret
+          (uri "http://localhost:8080/foo/blah/index.cgi?b=1&c=2&q5"))
+      (with-output-to-string (*standard-output*)
+        (setf ret (test-route :get uri)))
+      ret)
+    (list "foo" "blah" nil "2" nil "4" t nil t nil))))
-- 
cgit v1.2.3