X-Git-Url: https://git.xandkar.net/?a=blobdiff_plain;f=tt.rkt;h=7f663c2174e6b7b5675fd8eec1a8fa4c95241d24;hb=96ba4c69b4ed97b2999129380e8a4a2f51d69745;hp=f4449267bf49e7362e22aef3a4c064259dda0b99;hpb=a2a312fa4493259d1fddb1d1df4314815ac6bb0c;p=tt.git

diff --git a/tt.rkt b/tt.rkt
index f444926..7f663c2 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?
@@ -283,7 +283,7 @@
                 [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)]