     (testing "the function clouseau.core/get-port."
         (is (= (get-port "1")     "1"))
         (is (= (get-port "2")     "2"))
+        (is (= (get-port "2999")  "2999"))
         (is (= (get-port "3000")  "3000"))
+        (is (= (get-port "3001")  "3001"))
         (is (= (get-port "65534") "65534"))
         (is (= (get-port "65535") "65535"))))
 

        (is (= (get-and-check-port "65534") "65534"))
        (is (= (get-and-check-port "65535") "65535"))))

(deftest test-get-and-check-port-negative
    "Check the function clouseau.core/get-and-check-port."
    (testing "the function clouseau.core/get-and-check-port."
        (is (thrown? AssertionError (get-and-check-port "-1")))
        (is (thrown? AssertionError (get-and-check-port "0")))
        (is (thrown? AssertionError (get-and-check-port "65536")))
        (is (thrown? AssertionError (get-and-check-port "65537")))
        (is (thrown? AssertionError (get-and-check-port "1000000")))))

(deftest test-start-server-positive-1
    (testing "clouseau.core/start-server"

            (is (= app (start-server "1")))
            (is (= app (start-server "2")))
            (is (= app (start-server "1000")))
            (is (= app (start-server "3000")))
            (is (= app (start-server "65534")))
            (is (= app (start-server "65535"))))))

