Add basic IRC command formatter

src/jable/client.clj

@@ -0,0 +1,36 @@
+; Copyright (C) 2023  Val Lorentz
+; 
+; This program is free software: you can redistribute it and/or modify it under the
+; terms of the GNU Affero General Public License version 3, as published by the Free
+; Software Foundation.
+; 
+; This program is distributed in the hope that it will be useful, but WITHOUT ANY
+; WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
+; PARTICULAR PURPOSE.  See the GNU Affero General Public License for more details.
+; 
+; You should have received a copy of the GNU Affero General Public License along with
+; this program.  If not, see <http://www.gnu.org/licenses/>.
+
+(ns jable.client
+  (:require [clojure.tools.logging :refer :all]
+            [clojure.java.io :as io]
+            [clojure.string :as str]
+            [jepsen [cli :as cli]
+                    [client :as client]
+                    [control :as c]
+                    [db :as db]
+                    [tests :as tests]]
+            [jepsen.control.util :as cu]
+            [jepsen.os.debian :as debian])
+  (:import java.net.Socket))
+
+(defn write-command [writer {cmd :cmd
+                          params :params}]
+  (.write writer cmd)
+  (.write writer
+    (if (empty? params)
+      ""
+      (let [first-params (pop params)
+            trailing-param (last params)]
+        (apply str (map #(str " " %) (conj first-params (str ":" trailing-param)))))))
+  (.write writer "\r\n"))

test/jable/client_test.clj

@@ -0,0 +1,25 @@
+(ns jable.client-test
+  (:require [clojure.test :refer :all]
+            [jable.client :refer :all]))
+
+(deftest write-command-test
+  (testing "formatting command with no param"
+    (let [buf (java.io.StringWriter.)]
+      (write-command buf {:cmd "AWAY" :params []})
+      (is (= (.toString buf) "AWAY\r\n"))))
+
+  (testing "formatting command with one param"
+    (let [buf (java.io.StringWriter.)]
+      (write-command buf {:cmd "NICK" :params ["bar"]})
+      (is (= (.toString buf) "NICK :bar\r\n"))))
+
+  (testing "formatting command with two params"
+    (let [buf (java.io.StringWriter.)]
+      (write-command buf {:cmd "PRIVMSG" :params ["#chan" "hello"]})
+      (is (= (.toString buf) "PRIVMSG #chan :hello\r\n"))))
+
+  (testing "formatting command with three params"
+    (let [buf (java.io.StringWriter.)]
+      (write-command buf {:cmd "KICK" :params ["#chan" "badperson" "bye bye"]})
+      (is (= (.toString buf) "KICK #chan badperson :bye bye\r\n")))))
+

test/jable/core_test.clj

@@ -1,7 +0,0 @@
-(ns jable.core-test
-  (:require [clojure.test :refer :all]
-            [jable.core :refer :all]))
-
-(deftest a-test
-  (testing "FIXME, I fail."
-    (is (= 0 1))))