Refactored for testability.

Factored out storage into a separate package, and added tests.

backplane-dns.asd

@@ -3,15 +3,40 @@
 (asdf:defsystem #:backplane-dns
   :description "Server to listen on Fudo backplane for DNS updates"
   :author "Niten <niten@fudo.org>"
-  :license  "Specify license here"
   :version "0.1.0"
   :serial t
   :depends-on (:alexandria
                :arrows
+               :backplane-dns-store
                :backplane-server
+               :cl-ppcre)
+  :components ((:file "package")
+               (:file "backplane-dns"))
+  :in-order-to ((test-op (test-op :backplane-dns/test))))
+
+(asdf:defsystem #:backplane-dns-store
+  :description "Storage for Fudo DNS backplane"
+  :author "Niten <niten@fudo.org>"
+  :version "0.1.0"
+  :serial t
+  :depends-on (:alexandria
+               :arrows
                :cl-ppcre
                :ip-utils
-               :postmodern
-               :trivia)
+               :postmodern)
   :components ((:file "package")
-               (:file "backplane-dns")))
+               (:file "backplane-dns-store")))
+
+(asdf:defsystem #:backplane-dns/test
+  :description "XMPP Backplane DNS Server Tests"
+  :author "Niten <niten@fudo.org>"
+  :depends-on (:arrows
+               :backplane-dns
+               :ip-utils
+               :prove)
+  :defsystem-depends-on (:prove-asdf)
+  :components ((:module "test"
+                :serial t
+                :components ((:test-file "backplane-dns-test"))))
+  :perform (asdf:test-op (op c)
+                         (uiop:symbol-call :prove '#:run '#:backplane-dns/test)))