t/02_IrcCallback.t

   1 # -*- mode: perl; coding: utf-8 -*-
   2 # $Id: 02_IrcCallback.t,v 1.2 2008-08-05 14:08:25 morimoto Exp $
   3 # $Source: /home/ishikawa/work/keitairc/tmp/keitairc/t/02_IrcCallback.t,v $
   4 # Copyright (c) 2003-2008 Jun Morimoto <morimoto@mrmt.net>
   5 # This program is covered by the GNU General Public License 2
   6 use strict;
   7 use warnings;
   8 use Test::More 'no_plan';
   9 use FindBin;
  10 use lib "$FindBin::Bin/../lib";
  11 BEGIN {
  12         use_ok('Keitairc::IrcCallback');
  13 }
  14
  15 can_ok('Keitairc::IrcCallback',
  16        qw/irc_start irc_registered irc_001 irc_public irc_join
  17         irc_part irc_quit irc_whoreply irc_mode irc_nick irc_notice
  18         irc_topic irc_topicraw irc_msg irc_ctcp_action irc_reconnect
  19         irc_connect irc_autoping/);
  20
  21 # TODO: write reasonable test