testing/t/001-use.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

#!/usr/bin/env perl

use strict;
use warnings;

use Test::More;
use Data::Dumper;

BEGIN {
    use_ok 'Test::Irssi';
}


my $test = new_ok 'Test::Irssi',
  [irssi_binary => 'null', irssi_homedir => 'null'];

my @methods = qw/logfile terminal_height terminal_width irssi_homedir irssi_binary/;
can_ok($test, @methods);

undef $test;

done_testing;

__END__