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

irc.client: For tests that need to wait, wait 0.1 seconds instead of 1 second.

db4
Bruno Deferrari 2008-07-29 00:52:42 -03:00
parent a0782fb599
commit 5fd42c4e54
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -43,7 +43,7 @@ IN: irc.client.tests
":some.where 001 factorbot :Welcome factorbot" ":some.where 001 factorbot :Welcome factorbot"
} make-client } make-client
{ [ connect-irc ] { [ connect-irc ]
[ drop 1 seconds sleep ] [ drop 0.1 seconds sleep ]
[ profile>> nickname>> ] [ profile>> nickname>> ]
[ terminate-irc ] [ terminate-irc ]
} cleave ] unit-test } cleave ] unit-test
@ -57,8 +57,8 @@ IN: irc.client.tests
} make-client } make-client
{ [ "factorbot" set-nick ] { [ "factorbot" set-nick ]
[ connect-irc ] [ connect-irc ]
[ drop 1 seconds sleep ] [ drop 0.1 seconds sleep ]
[ join-messages>> 1 seconds mailbox-get-timeout ] [ join-messages>> 0.1 seconds mailbox-get-timeout ]
[ terminate-irc ] [ terminate-irc ]
} cleave } cleave
[ class ] [ trailing>> ] bi ] unit-test [ class ] [ trailing>> ] bi ] unit-test
@ -109,7 +109,7 @@ IN: irc.client.tests
[ listeners>> [ listeners>>
[ "#factortest" [ <irc-channel-listener> ] keep ] dip set-at ] [ "#factortest" [ <irc-channel-listener> ] keep ] dip set-at ]
[ connect-irc ] [ connect-irc ]
[ drop 1 seconds sleep ] [ drop 0.1 seconds sleep ]
[ listeners>> [ "#factortest" ] dip at participants>> ] [ listeners>> [ "#factortest" ] dip at participants>> ]
[ terminate-irc ] [ terminate-irc ]
} cleave } cleave
@ -124,7 +124,7 @@ IN: irc.client.tests
{ "somedude" f } } clone >>participants ] keep { "somedude" f } } clone >>participants ] keep
] dip set-at ] ] dip set-at ]
[ connect-irc ] [ connect-irc ]
[ drop 1 seconds sleep ] [ drop 0.1 seconds sleep ]
[ listeners>> [ "#factortest" ] dip at participants>> ] [ listeners>> [ "#factortest" ] dip at participants>> ]
[ terminate-irc ] [ terminate-irc ]
} cleave } cleave
@ -139,7 +139,7 @@ IN: irc.client.tests
{ "somedude" f } } clone >>participants ] keep { "somedude" f } } clone >>participants ] keep
] dip set-at ] ] dip set-at ]
[ connect-irc ] [ connect-irc ]
[ drop 1 seconds sleep ] [ drop 0.1 seconds sleep ]
[ listeners>> [ "#factortest" ] dip at participants>> ] [ listeners>> [ "#factortest" ] dip at participants>> ]
[ terminate-irc ] [ terminate-irc ]
} cleave } cleave
@ -154,7 +154,7 @@ IN: irc.client.tests
{ "somedude" f } } clone >>participants ] keep { "somedude" f } } clone >>participants ] keep
] dip set-at ] ] dip set-at ]
[ connect-irc ] [ connect-irc ]
[ drop 1 seconds sleep ] [ drop 0.1 seconds sleep ]
[ listeners>> [ "#factortest" ] dip at participants>> ] [ listeners>> [ "#factortest" ] dip at participants>> ]
[ terminate-irc ] [ terminate-irc ]
} cleave } cleave