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

irc.client: Improve tests a bit

db4
Bruno Deferrari 2008-06-03 19:53:27 -03:00
parent e6a4802ff8
commit 63089a2124
1 changed files with 29 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,6 +1,6 @@
USING: kernel tools.test accessors arrays sequences qualified USING: kernel tools.test accessors arrays sequences qualified
io.streams.string io.streams.duplex namespaces io.streams.string io.streams.duplex namespaces threads
irc.client.private ; calendar irc.client.private ;
EXCLUDE: irc.client => join ; EXCLUDE: irc.client => join ;
IN: irc.client.tests IN: irc.client.tests
@ -12,6 +12,9 @@ IN: irc.client.tests
"someserver" irc-port "factorbot" f <irc-profile> <irc-client> "someserver" irc-port "factorbot" f <irc-profile> <irc-client>
swap [ 2nip <test-stream> f ] curry >>connect ; swap [ 2nip <test-stream> f ] curry >>connect ;
: set-nick ( irc-client nickname -- )
[ nick>> ] dip >>name drop ;
: with-dummy-client ( quot -- ) : with-dummy-client ( quot -- )
rot with-variable ; inline rot with-variable ; inline
@ -37,7 +40,7 @@ privmsg new
[ ":someuser!n=user@some.where PRIVMSG #factortest :hi" [ ":someuser!n=user@some.where PRIVMSG #factortest :hi"
parse-irc-line f >>timestamp ] unit-test parse-irc-line f >>timestamp ] unit-test
{ "" } make-client dup nick>> "factorbot" >>name drop current-irc-client [ { "" } make-client dup "factorbot" set-nick current-irc-client [
{ t } [ irc-client> nick>> name>> me? ] unit-test { t } [ irc-client> nick>> name>> me? ] unit-test
{ "factorbot" } [ irc-client> nick>> name>> ] unit-test { "factorbot" } [ irc-client> nick>> name>> ] unit-test
@ -51,5 +54,26 @@ privmsg new
parse-irc-line irc-message-origin ] unit-test parse-irc-line irc-message-origin ] unit-test
] with-variable ] with-variable
! Client tests ! Test login and nickname set
{ } [ { "" } make-client connect-irc ] unit-test { "factorbot" } [ { "NOTICE AUTH :*** Looking up your hostname..."
"NOTICE AUTH :*** Checking ident"
"NOTICE AUTH :*** Found your hostname"
"NOTICE AUTH :*** No identd (auth) response"
":some.where 001 factorbot :Welcome factorbot"
} make-client
[ connect-irc ] keep 1 seconds sleep
nick>> name>> ] unit-test
! TODO: Channel join messages
! { ":factorbot!n=factorbo@some.where JOIN :#factortest"
! ":ircserver.net MODE #factortest +ns"
! ":ircserver.net 353 factorbot @ #factortest :@factorbot "
! ":ircserver.net 366 factorbot #factortest :End of /NAMES list."
! ":ircserver.net 477 factorbot #factortest :[ircserver-info] blah blah"
! } make-client dup "factorbot" set-nick
! TODO: user join
! ":somedude!n=user@isp.net JOIN :#factortest"
! TODO: channel message
! ":somedude!n=user@isp.net PRIVMSG #factortest :hello"
! TODO: direct private message
! ":somedude!n=user@isp.net PRIVMSG factorbot2 :hello"