X-Git-Url: https://git.xandkar.net/?a=blobdiff_plain;f=tt.rkt;h=f95de28f195ec1f6687f4ea316003460b10a790c;hb=eb8717693d87251a3fdaeedfc588dc59f43ce23e;hp=8930ae9474a57fd9eecc8998dafdb6ec5e6889a6;hpb=0e16a46c445dfa47d74b3a6ffcaee5e09a763f8c;p=tt.git

diff --git a/tt.rkt b/tt.rkt
index 8930ae9..f95de28 100644
--- 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?
@@ -166,7 +166,7 @@
   (string-split str (regexp "[\r\n]+")))
 
 (module+ test
-  (check-equal? (str->lines "abc\ndef\n\nghi") '("abc" "def" "ghi")))
+         (check-equal? (str->lines "abc\ndef\n\nghi") '("abc" "def" "ghi")))
 
 (define (str->msgs nick uri str)
   (filter-map (λ (line) (str->msg nick uri line)) (str->lines str)))