t/02_IrcBuffer.t

   1 # -*- mode: perl; coding: utf-8 -*-
   2 # Copyright (c) 2003-2008 Jun Morimoto <morimoto@mrmt.net>
   3 # This program is covered by the GNU General Public License 2
   4 use strict;
   5 use warnings;
   6 use Test::More 'no_plan';
   7 use FindBin;
   8 use lib "$FindBin::Bin/../lib";
   9
  10 BEGIN{
  11         use_ok('Keitairc::IrcBuffer');
  12 }
  13
  14 can_ok('Keitairc::IrcBuffer',
  15        qw/new add_nick list_nick remove_nick get_nick_realname op_nick
  16         deop_nick get_nick_op channels format_time format_date name2cid
  17         cid2name part join mtime unread_lines topic buffer_ptr add_message
  18         compact_channel_name simple_escape colorize update_timestamp/);
  19
  20 # TODO: write reasonable test