t/02_Config.t

   1 # -*- mode: perl; coding: utf-8 -*-
   2 # $Id: 02_Config.t,v 1.7 2008-12-29 13:49:16 morimoto Exp $
   3 # $Source: /home/ishikawa/work/keitairc/tmp/keitairc/t/02_Config.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::Config');
  14 }
  15
  16 use Cwd;
  17 use Keitairc::Log;
  18
  19 can_ok('Keitairc::Config', qw/new file/);
  20
  21 my $version = '10.1';
  22 my $c = new Keitairc::Config({
  23         version => $version,
  24         silent => 1,
  25         argv => ["$FindBin::Bin/02_Config/dot.keitairc"]
  26                      });
  27 isa_ok($c, 'AppConfig');
  28 is($c->version(), $version, 'version');
  29 is($c->irc_desc(), 'Andre Limmoenman', 'irc_desc');
  30 is($c->irc_port(), 6667, 'irc_port');
  31 is($c->irc_nick(), 'adr', 'irc_nick');
  32 is($c->irc_username(), 'andre', 'irc_username');
  33 is($c->irc_server(), 'irc.example.com', 'irc_server');
  34 is($c->irc_password(), 'javel', 'irc_password');
  35 is($c->irc_charset(), 'iso-2022-jp-1', 'irc_charset');
  36 is($c->web_host(), 'your-keitairc-server.example.com', 'web_host');
  37 is($c->web_port(), 8080, 'web_port');
  38 is($c->web_password(), '1234', 'web_password');
  39 is($c->web_title(), 'keitairc', 'web_title');
  40 is($c->web_lines(), 100, 'web_lines');
  41 is($c->web_root(), '/', 'web_root');
  42 is($c->web_charset(), 'shiftjis', 'web_charset');
  43 is($c->ping_delay(), 30, 'ping_delay');
  44 is($c->reconnect_delay(), 10, 'reconnect_delay');
  45 is($c->cookie_ttl(), 86400 * 3, 'cookie_ttl');
  46 is($c->session_ttl(), 60 * 30, 'session_ttl');
  47 is($c->pid_dir(), '/var/run', 'pid_dir');
  48 is($c->pid_file(), 'keitairc.pid', 'pid_file');
  49 is($c->plugin_dir(), '/usr/share/keitairc/lib/plugins', 'plugin_dir');
  50 is($c->template_dir(), '/usr/share/keitairc/lib/templates', 'template_dir');
  51 is($c->public_dir(), '/usr/share/keitairc/lib/public', 'public_dir');
  52 is($c->fontsize(), '+0', 'fontsize');
  53 is($c->mobile_fontsize(), -1, 'mobile_fontsize');
  54 ok($c->reverse_message(), 'reverse_message');
  55 ok($c->reverse_recent(), 'reverse_recent');
  56 ok($c->reverse_unread(), 'reverse_unread');
  57 ok($c->show_joinleave(), 'show_joinleave');
  58 ok($c->follow_nick(), 'follow_nick');
  59 ok(!$c->debug(), 'debug');
  60 exit;