t/02_IrcBuffer.t

   1 # -*- mode: perl; coding: utf-8 -*-
   2 # $Id: 02_IrcBuffer.t,v 1.2 2008-08-05 14:08:25 morimoto Exp $
   3 # $Source: /home/ishikawa/work/keitairc/tmp/keitairc/t/02_IrcBuffer.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
  12 BEGIN{
  13         use_ok('Keitairc::IrcBuffer');
  14 }
  15
  16 can_ok('Keitairc::IrcBuffer',
  17        qw/new add_nick list_nick remove_nick get_nick_realname op_nick
  18         deop_nick get_nick_op channels now name2cid cid2name part join
  19         mtime unread_lines topic buffer_ptr add_message
  20         compact_channel_name simple_escape colorize update_timestamp/);
  21
  22 # TODO: write reasonable test