test: add rq-utils tests

Author: J0sueTM

src/com/moclojer/rq/utils.clj

@@ -1,6 +1,8 @@
 (ns com.moclojer.rq.utils)
 
 (defn- pattern->str
+  "Adapts given pattern keyword to a know internal pattern. Raises
+  an exception if invalid."
   [pattern]
   (let [patterns {:none ""
                   :rq "rq:"
@@ -19,14 +21,3 @@
 (defn unpack-pattern
   [pattern queue-name]
   (subs queue-name (count (pattern->str pattern))))
-
-(comment
-  (pack-pattern :rq "my-queue")
-  ;; => "rq:my-queue"
-
-  (pack-pattern :pending "foobar")
-  ;; => "rq:pending:foobar"
-
-  (unpack-pattern :pending "rq:pending:foobar")
-  ;; => "foobar"
-  )

test/com/moclojer/rq/utils_test.clj

@@ -0,0 +1,15 @@
+(ns com.moclojer.rq.utils-test
+  (:require
+   [clojure.test :as t]
+   [com.moclojer.rq.utils :as utils]))
+
+(t/deftest pattern->str-test
+  [(t/is "my-queue" (utils/pack-pattern :none "my-queue"))
+   (t/is "rq:my-queue" (utils/pack-pattern :rq "my-queue"))
+   (t/is "rq:pubsub:my-queue" (utils/pack-pattern :pubsub "my-queue"))
+   (t/is "rq:pubsub:pending:my-queue" (utils/pack-pattern :pending "my-queue"))]
+
+  [(t/is "my-queue" (utils/unpack-pattern :none "my-queue"))
+   (t/is "my-queue" (utils/unpack-pattern :rq "rq:my-queue"))
+   (t/is "my-queue" (utils/unpack-pattern :pubsub "rq:pubsub:my-queue"))
+   (t/is "my-queue" (utils/unpack-pattern :pending "rq:pubsub:pending:my-queue"))])