From 71c173db56f8e462fbaa8c0472788c04982478db Mon Sep 17 00:00:00 2001
From: Tom Feist <shabble@metavore.org>
Date: Mon, 21 Feb 2011 01:58:22 +0000
Subject: start of makign this a proper module

---
 testing/t/001-use.t | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100755 testing/t/001-use.t

(limited to 'testing/t')

diff --git a/testing/t/001-use.t b/testing/t/001-use.t
new file mode 100755
index 0000000..60f1bb9
--- /dev/null
+++ b/testing/t/001-use.t
@@ -0,0 +1,25 @@
+#!/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';
+my @methods = qw/logfile terminal_height terminal_width irssi_homedir irssi_binary/;
+can_ok($trie, @methodss);
+
+undef $test
+
+done_testing;
+
+__END__
+
+
+
-- 
cgit v1.2.3


From e589c5008130742df8826cc6774e91a211892d6a Mon Sep 17 00:00:00 2001
From: Tom Feist <shabble@metavore.org>
Date: Mon, 21 Feb 2011 03:43:03 +0000
Subject: start of a test.  Only checks if things load, but that's proving hard
 enogh so far.

---
 testing/t/001-use.t | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'testing/t')

diff --git a/testing/t/001-use.t b/testing/t/001-use.t
index 60f1bb9..6ebbb5a 100755
--- a/testing/t/001-use.t
+++ b/testing/t/001-use.t
@@ -11,11 +11,13 @@ BEGIN {
 }
 
 
-my $test = new_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($trie, @methodss);
+can_ok($test, @methods);
 
-undef $test
+undef $test;
 
 done_testing;
 
-- 
cgit v1.2.3


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')

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


From 7ec10e516a04a05a85cb82b30a8f9982f13c6c90 Mon Sep 17 00:00:00 2001
From: Tom Feist <shabble@metavore.org>
Date: Fri, 4 Mar 2011 04:12:47 +0000
Subject: working with TAP::Harness

---
 testing/t/002-init.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'testing/t')

diff --git a/testing/t/002-init.t b/testing/t/002-init.t
index df61e1e..b688f9f 100755
--- a/testing/t/002-init.t
+++ b/testing/t/002-init.t
@@ -19,7 +19,7 @@ if (-f $test->logfile) {
     ok(unlink $test->logfile, 'deleted old logfile');
 }
 
-my $drv = $test->_driver;
+my $drv = $test->driver;
 isa_ok($drv, 'Test::Irssi::Driver', 'driver created ok');
 
 diag "Starting POE session";
-- 
cgit v1.2.3