Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Make the online test K-Line proof

  • Loading branch information...
commit 4db0d955f447b73851a1fea9a5151e27d5ff8d5a 1 parent 369589e
@bingos authored
Showing with 10 additions and 0 deletions.
  1. +10 −0 t/02_behavior/06_online.t
View
10 t/02_behavior/06_online.t
@@ -21,6 +21,7 @@ POE::Session->create(
irc_registered
irc_connected
irc_001
+ irc_465
irc_error
irc_socketerr
irc_disconnected
@@ -118,6 +119,15 @@ sub irc_001 {
$irc->yield('quit');
}
+sub irc_465 {
+ my $irc = $_[SENDER]->get_heap();
+ TODO: {
+ local $TODO = "Hey we is K-lined";
+ pass('ERR_YOUREBANNEDCREEP');
+ };
+ $_[HEAP]->{tests}--;
+}
+
sub irc_error {
TODO: {
local $TODO = "K-lines or other unforeseen issues could derail this test";

0 comments on commit 4db0d95

Please sign in to comment.
Something went wrong with that request. Please try again.