[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)))
[num_workers
15]) ; 15 was fastest out of the tried 1, 5, 10, 15 and 20.
(command-line
- #:once-any
+ #:once-each
[("-c" "--cached")
"Read cached data instead of downloading."
(set! use-cache #t)]