             nil  nil)))
 
 (deftest test-get-url-prefix
-    "Check the function get-url-prefix."
-    (testing "the function get-url-prefix."
+    "Check the function zg.server/get-url-prefix."
+    (testing "the function zg.server/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 get-title."
    (testing "the function get-title."
        (are [x y] (= x (get-title y))
            "ZG" {:configuration {:display {:app-name "ZG"}}}
            nil  {:configuration {:display {:app-name nil}}}

            nil  nil)))

(deftest test-get-emender-page
    "Check the function zg.server/get-emender-page."
    (testing "the function zg.server/get-emender-page."
        (are [x y] (= x (get-emender-page y))
            "http://www.emender.org" {:configuration {:display {:emender-page "http://www.emender.org"}}}
            nil  {:configuration {:display {:emender-page nil}}}
