From 48df96665ec4b9e30469f7de2604578dae169f17 Mon Sep 17 00:00:00 2001
From: Tom Feist <shabble@metavore.org>
Date: Mon, 21 Feb 2011 06:08:19 +0000
Subject: added test and launcher script

---
 testing/t/002-init.t | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100755 testing/t/002-init.t

(limited to 'testing/t/002-init.t')

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__
+
+
+
-- 
cgit v1.2.3