 USING: kernel tools.test accessors arrays sequences qualified
-       io.streams.string io.streams.duplex namespaces
-       irc.client.private ;
+       io.streams.string io.streams.duplex namespaces threads
+       calendar irc.client.private ;
 EXCLUDE: irc.client => join ;
 IN: irc.client.tests
 

                     parse-irc-line irc-message-origin ] unit-test
] with-variable

! Client tests
{ } [ { "" } make-client connect-irc ] unit-test
: make-client ( lines -- irc-client )
   "someserver" irc-port "factorbot" f <irc-profile> <irc-client>
   swap [ 2nip <test-stream> f ] curry >>connect ;

: set-nick ( irc-client nickname -- )
     [ nick>> ] dip >>name drop ;

: with-dummy-client ( quot -- )
     rot with-variable ; inline
