From 527b50fa5691601997284c2b9d082e0e4d43b01b Mon Sep 17 00:00:00 2001 From: Bruno Deferrari Date: Sat, 7 Mar 2009 20:43:25 -0200 Subject: [PATCH] irc.client: Fix strings>privmsg, add test --- extra/irc/client/client-tests.factor | 5 +++++ extra/irc/client/client.factor | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/extra/irc/client/client-tests.factor b/extra/irc/client/client-tests.factor index 4f25531eee..07b9df2ab7 100644 --- a/extra/irc/client/client-tests.factor +++ b/extra/irc/client/client-tests.factor @@ -58,6 +58,11 @@ M: mb-writer dispose drop ; string>irc-message forward-name ] unit-test ] with-irc +{ privmsg "#channel" "hello" } [ + "#channel" "hello" strings>privmsg + [ class ] [ target>> ] [ trailing>> ] tri +] unit-test + ! Test login and nickname set [ { "factorbot2" } [ ":some.where 001 factorbot2 :Welcome factorbot2" %push-line diff --git a/extra/irc/client/client.factor b/extra/irc/client/client.factor index 7986a726ba..c7e90eb802 100755 --- a/extra/irc/client/client.factor +++ b/extra/irc/client/client.factor @@ -313,7 +313,7 @@ DEFER: (connect-irc) [ forward-message ] [ process-message ] [ irc-end? not ] tri ; : strings>privmsg ( name string -- privmsg ) - privmsg new [ (>>trailing) ] keep [ (>>target) ] keep ; + " :" prepend append "PRIVMSG " prepend string>irc-message ; : maybe-annotate-with-name ( name obj -- obj ) { { [ dup string? ] [ strings>privmsg ] } -- 2.34.1