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__
|
