diff options
| -rw-r--r-- | tests/unit.clj | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/tests/unit.clj b/tests/unit.clj index 9eda963..93e3703 100644 --- a/tests/unit.clj +++ b/tests/unit.clj @@ -185,7 +185,8 @@ {:command "USER" :params ["" "joe" "0" "x" ":Joe"]} c no-conn)] - (is (= 7 (count replies))) + ;; 001, 002, 003, 004, three RPL_005 lines, 422. + (is (= 8 (count replies))) (is (string/includes? (first replies) "001")) (is (:registered? @c))))) (testing "USER before NICK does not register" @@ -557,7 +558,8 @@ (is (:authenticated? @c2))) ;; CAP END completes registration (let [replies (handle-cap ["END"] c2 components)] - (is (= 7 (count replies))) + ;; 001, 002, 003, 004, three RPL_005 lines, 422. + (is (= 8 (count replies))) (is (string/includes? (first replies) "001")) (is (:registered? @c2)))))) (testing "SASL with wrong password" @@ -722,7 +724,8 @@ (let [replies (@#'papod/replies-for! {:command "USER" :params ["" "bob" "0" "x" ":B"]} c components)] - (is (= 8 (count replies))) + ;; 8 welcome lines (001..422 with three RPL_005) + memo. + (is (= 9 (count replies))) (is (string/includes? (first replies) "001")) (is (string/includes? (last replies) "MemoServ"))))))) |