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

irc.client: Fix detach chat (wasn't sending a PART message)

db4
Bruno Deferrari 2009-09-16 19:58:45 -03:00
parent a4aa0dddbe
commit ef98f1de68
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/irc/client/internals/internals-tests.factor
View File

@ -99,7 +99,13 @@ M: mb-writer dispose drop ;
! Test join ! Test join
[ { "JOIN #factortest" } [ [ { "JOIN #factortest" } [
"#factortest" %join %pop-output-line "#factortest" %join %pop-output-line
] unit-test
] spawning-irc
[ { "PART #factortest" } [
"#factortest" %join %pop-output-line drop
"#factortest" chat> remove-chat %pop-output-line
] unit-test ] unit-test
] spawning-irc ] spawning-irc

2
extra/irc/client/internals/internals.factor
View File

@ -172,7 +172,7 @@ M: irc-nick-chat remove-chat name>> unregister-chat ;
M: irc-server-chat remove-chat drop +server-chat+ unregister-chat ; M: irc-server-chat remove-chat drop +server-chat+ unregister-chat ;
M: irc-channel-chat remove-chat M: irc-channel-chat remove-chat
[ part new annotate-message irc-send ] [ name>> "PART " prepend string>irc-message irc-send ]
[ name>> unregister-chat ] bi ; [ name>> unregister-chat ] bi ;
: (speak) ( message irc-chat -- ) swap annotate-message irc-send ; : (speak) ( message irc-chat -- ) swap annotate-message irc-send ;