aboutsummaryrefslogtreecommitdiffstats
path: root/testing/t
diff options
context:
space:
mode:
authorTom Feist <shabble@metavore.org>2011-02-21 06:08:19 +0000
committerTom Feist <shabble@metavore.org>2011-02-21 06:08:19 +0000
commit48df96665ec4b9e30469f7de2604578dae169f17 (patch)
treee10f975350901cee75e38928068905e54feb60d4 /testing/t
parentmostly working except for callback handling. Removed original auto-testing (diff)
downloadirssi-scripts-48df96665ec4b9e30469f7de2604578dae169f17.tar.gz
irssi-scripts-48df96665ec4b9e30469f7de2604578dae169f17.zip
added test and launcher script
Diffstat (limited to 'testing/t')
-rwxr-xr-xtesting/t/002-init.t33
1 files changed, 33 insertions, 0 deletions
diff --git a/testing/t/002-init.t b/testing/t/002-init.t
new file mode 100755
index 0000000..df61e1e
--- /dev/null
+++ b/testing/t/002-init.t
@@ -0,0 +1,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__
+
+
+