X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=t%2FPOE-Component-IRC-Plugin-Logger-Irssi.t;fp=t%2FPOE-Component-IRC-Plugin-Logger-Irssi.t;h=ae2f79c2f839a06b0873fe9e142b95ee1d101cb8;hb=626d6c08f2dc8f118122641571e18da81ccfac8c;hp=0c1746c891af157c59ca45b822e3fd951e9b3c6b;hpb=dbd448818740446658e01651239b6f27a2809589;p=poe-component-irc-plugin-logger-irssi.git diff --git a/t/POE-Component-IRC-Plugin-Logger-Irssi.t b/t/POE-Component-IRC-Plugin-Logger-Irssi.t index 0c1746c..ae2f79c 100644 --- a/t/POE-Component-IRC-Plugin-Logger-Irssi.t +++ b/t/POE-Component-IRC-Plugin-Logger-Irssi.t @@ -1,3 +1,4 @@ +#!/usr/bin/perl use v5.14; use strict; use warnings; @@ -20,4 +21,3 @@ is $fmt->{part}->('mgv', 'marius@example.org', '#chan', 'bye'), '-!- mgv [marius is $fmt->{quit}->('mgv', 'marius@example.org', 'buh-bye'), '-!- mgv [marius@example.org] has quit [buh-bye]', 'quit'; is $fmt->{kick}->('mgv', 'troll', '#chan', 'trolling'), '-!- troll was kicked from #chan by mgv [trolling]', 'kick'; is $fmt->{topic_set_by}->('#chan', 'mgv', 0), "-!- Topic set by mgv [$localtime0]"; -