[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?
(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)))