aboutsummaryrefslogtreecommitdiffstats
path: root/testing/t/002-init.t
blob: df61e1ed5c4524565711a16a2049ce7852096190 (plain) (blame)
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
28
29
30
31
32
33
#!/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  => "/opt/stow/repo/irssi-debug/bin/irssi",
   irssi_homedir => $ENV{HOME} . "/projects/tmp/test/irssi-debug"];

if (-f $test->logfile) {
    ok(unlink $test->logfile, 'deleted old logfile');
}

my $drv = $test->_driver;
isa_ok($drv, 'Test::Irssi::Driver', 'driver created ok');

diag "Starting POE session";
$test->run();

done_testing;

__END__