 ;
 
 (deftest test-get-user-name-not-NPE
-    "Check the function get-user-name."
-    (testing "the function get-user-name."
+    "Check the function zg.server/get-user-name."
+    (testing "the function zg.server/get-user-name."
         (are [x y] (= x (get-user-name y))
             nil nil)))
 
 (deftest test-get-user-name
-    "Check the function get-user-name."
-    (testing "the function get-user-name."
+    "Check the function zg.server/get-user-name."
+    (testing "the function zg.server/get-user-name."
         (are [x y] (= x (get-user-name y))
             "new user" {:params  {"user-name" "new user"}}
             "new user" {:params  {"user-name" "new user"}

            nil  nil)))

(deftest test-get-url-prefix
    "Check the function get-url-prefix."
    (testing "the function get-url-prefix."
        (are [x y] (= x (get-url-prefix y))
            "http://localhost" {:configuration {:server {:url-prefix "http://localhost"}}}
            nil  {:configuration {:server {:url-prefix nil}}}

            "old user" {:cookies {"user-name" {:value "old user"}}})))

(deftest test-get-title
    "Check the function zg.server/get-title."
    (testing "the function zg.server/get-title."
        (are [x y] (= x (get-title y))
            "ZG" {:configuration {:display {:app-name "ZG"}}}
            nil  {:configuration {:display {:app-name nil}}}
