Expand RPL_ISUPPORT and have OPER emit MODE +o

The 005 reply now advertises CASEMAPPING, CHANMODES, CHANTYPES,
PREFIX, NETWORK, NICKLEN, CHANNELLEN, TOPICLEN, KICKLEN, MAXLIST,
MODES, TARGMAX, USERLEN, STATUSMSG, AWAYLEN and UTF8ONLY across
two 005 lines.  This satisfies what irctest's isupport/multi_prefix
tests look for.

OPER now follows RFC convention by sending an explicit
":server MODE <nick> :+o" line after RPL_YOUREOPER so clients
learn about their new mode without a separate query.

1 files changed, 55 insertions, 3 deletions

diff --git a/tests/unit.clj b/tests/unit.clj
index c5cabaa..6b9e36b 100644
--- a/tests/unit.clj
+++ b/tests/unit.clj
@@ -179,7 +179,7 @@
                      {:command "USER"
                       :params  ["" "joe" "0" "x" ":Joe"]}
                      c no-conn)]
-        (is (= 6 (count replies)))
+        (is (= 7 (count replies)))
         (is (string/includes? (first replies) "001"))
         (is (:registered? @c)))))
   (testing "USER before NICK does not register"
@@ -552,7 +552,7 @@
           (is (:authenticated? @c2)))
         ;; CAP END completes registration
         (let [replies (handle-cap ["END"] c2 components)]
-          (is (= 6 (count replies)))
+          (is (= 7 (count replies)))
           (is (string/includes? (first replies) "001"))
           (is (:registered? @c2))))))
   (testing "SASL with wrong password"
@@ -715,7 +715,7 @@
         (let [replies (@#'papod/replies-for!
                        {:command "USER" :params ["" "bob" "0" "x" ":B"]}
                        c components)]
-          (is (= 7 (count replies)))
+          (is (= 8 (count replies)))
           (is (string/includes? (first replies) "001"))
           (is (string/includes? (last replies) "MemoServ")))))))
 
@@ -1736,6 +1736,58 @@
       (let [replies (handle-markread ["#test"] alice components)]
         (is (string/includes? (first replies) "2026-04-22T10:00:00.000Z"))))))
 
+(deftest test_isupport-and-oper
+  (testing "RPL_ISUPPORT advertises required tokens"
+    (let [c (client)]
+      (replies-for! {:command "NICK" :params ["" "joe"]}
+                    c no-conn)
+      (let [replies (replies-for!
+                      {:command "USER"
+                       :params  ["" "joe" "0" "x" ":Joe"]}
+                      c no-conn)
+            isupport (filter #(re-find #" 005 " %) replies)
+            joined   (string/join " " isupport)]
+        (is (seq isupport))
+        (is (string/includes? joined "PREFIX=(ov)@+"))
+        (is (string/includes? joined "CHANTYPES=#"))
+        (is (string/includes? joined "CASEMAPPING=ascii"))
+        (is (string/includes? joined "NETWORK=papod"))
+        (is (string/includes? joined "NICKLEN="))
+        (is (string/includes? joined "CHANNELLEN="))
+        (is (string/includes? joined "TARGMAX=")))))
+  (testing "OPER with correct credentials sends 381 + MODE +o"
+    (let [c (registered-client "baz" (java.io.ByteArrayOutputStream.))]
+      (let [replies (replies-for!
+                      {:command "OPER"
+                       :params  ["" "operuser" "operpassword"]}
+                      c no-conn)]
+        (is (= 2 (count replies)))
+        (is (string/includes? (first replies) "381"))
+        (is (re-find #"MODE baz :?\+o" (second replies)))
+        (is (:oper? @c)))))
+  (testing "OPER with wrong password returns 464"
+    (let [c (registered-client "baz" (java.io.ByteArrayOutputStream.))]
+      (let [replies (replies-for!
+                      {:command "OPER"
+                       :params  ["" "operuser" "wrong"]}
+                      c no-conn)]
+        (is (= 1 (count replies)))
+        (is (string/includes? (first replies) "464"))
+        (is (not (:oper? @c))))))
+  (testing "OPER missing args returns 461"
+    (let [c (registered-client "baz" (java.io.ByteArrayOutputStream.))]
+      (let [replies (replies-for!
+                      {:command "OPER" :params ["" "only"]}
+                      c no-conn)]
+        (is (string/includes? (first replies) "461")))))
+  (testing "TIME returns 391"
+    (let [c (registered-client "baz" (java.io.ByteArrayOutputStream.))]
+      (let [replies (replies-for!
+                      {:command "TIME" :params []}
+                      c no-conn)]
+        (is (= 1 (count replies)))
+        (is (string/includes? (first replies) "391"))))))
+
 (defn -main
   [& _args]
   (binding [*out* *err*]