Refactor test msg string build

[tt.git] / tt.rkt

diff --git a/tt.rkt b/tt.rkt
index f444926..f95de28 100644 (file)
--- a/tt.rkt
+++ b/tt.rkt
@@ -138,7 +138,7 @@
                 [text     "Lorem ipsum"]
                 [nick     "foo"]
                 [uri      "bar"]
-                [actual   (str->msg nick uri (string-join (list ts text) tab))]
+                [actual   (str->msg nick uri (string-append ts tab text))]
                 [expected (msg 1605756129 ts nick uri text)])
                ; FIXME re-enable after handling tz offset
                ;(check-equal?