steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

irc.client: Remove unused imports, add authors.txt, add more tests.

db4
Bruno Deferrari 2008-06-27 17:47:25 -03:00
parent 46a1e4a065
commit 69266e3c4d
3 changed files with 16 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
extra/irc/client/authors.txt
View File

@ -1,2 +1,3 @@
Bruno Deferrari
Doug Coleman Doug Coleman
Slava Pestov Slava Pestov

20
extra/irc/client/client-tests.factor
View File

@ -1,7 +1,8 @@
USING: kernel tools.test accessors arrays sequences qualified USING: kernel tools.test accessors arrays sequences qualified
io.streams.string io.streams.duplex namespaces threads io.streams.string io.streams.duplex namespaces threads
calendar irc.client.private ; calendar irc.client.private concurrency.mailboxes classes ;
EXCLUDE: irc.client => join ; EXCLUDE: irc.client => join ;
RENAME: join irc.client => join_
IN: irc.client.tests IN: irc.client.tests
! Utilities ! Utilities
@ -64,13 +65,16 @@ privmsg new
[ connect-irc ] keep 1 seconds sleep [ connect-irc ] keep 1 seconds sleep
nick>> name>> ] unit-test nick>> name>> ] unit-test
! TODO: Channel join messages { join_ "#factortest" } [
! { ":factorbot!n=factorbo@some.where JOIN :#factortest" { ":factorbot!n=factorbo@some.where JOIN :#factortest"
! ":ircserver.net MODE #factortest +ns" ":ircserver.net MODE #factortest +ns"
! ":ircserver.net 353 factorbot @ #factortest :@factorbot " ":ircserver.net 353 factorbot @ #factortest :@factorbot "
! ":ircserver.net 366 factorbot #factortest :End of /NAMES list." ":ircserver.net 366 factorbot #factortest :End of /NAMES list."
! ":ircserver.net 477 factorbot #factortest :[ircserver-info] blah blah" ":ircserver.net 477 factorbot #factortest :[ircserver-info] blah blah"
! } make-client dup "factorbot" set-nick } make-client dup "factorbot" set-nick
[ connect-irc ] keep 1 seconds sleep
join-messages>> 5 seconds mailbox-get-timeout
[ class ] [ trailing>> ] bi ] unit-test
! TODO: user join ! TODO: user join
! ":somedude!n=user@isp.net JOIN :#factortest" ! ":somedude!n=user@isp.net JOIN :#factortest"
! TODO: channel message ! TODO: channel message

6
extra/irc/client/client.factor
View File

@ -1,8 +1,8 @@
! Copyright (C) 2007 Doug Coleman, Slava Pestov. ! Copyright (C) 2008 Bruno Deferrari, Doug Coleman, Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: arrays combinators concurrency.mailboxes fry io strings USING: combinators concurrency.mailboxes fry io strings
io.encodings.8-bit io.sockets kernel namespaces sequences io.encodings.8-bit io.sockets kernel namespaces sequences
sequences.lib splitting threads calendar classes.tuple splitting threads calendar classes.tuple
classes ascii assocs accessors destructors continuations ; classes ascii assocs accessors destructors continuations ;
IN: irc.client IN: irc.client