aboutsummaryrefslogtreecommitdiffstats
path: root/testing/tests
diff options
context:
space:
mode:
authorTom Feist <shabble@metavore.org>2011-03-04 04:12:47 +0000
committerTom Feist <shabble@metavore.org>2011-03-04 04:12:47 +0000
commit7ec10e516a04a05a85cb82b30a8f9982f13c6c90 (patch)
tree98e01316dbd57e4b0debb2d5d444b19cef5bf026 /testing/tests
parenttesting: cleaned up a lot of the testing logic. Subtests are now reported at ... (diff)
downloadirssi-scripts-7ec10e516a04a05a85cb82b30a8f9982f13c6c90.tar.gz
irssi-scripts-7ec10e516a04a05a85cb82b30a8f9982f13c6c90.zip
working with TAP::Harness
Diffstat (limited to '')
-rwxr-xr-xtesting/tests/001-basic.t (renamed from testing/test3.pl)7
1 files changed, 6 insertions, 1 deletions
diff --git a/testing/test3.pl b/testing/tests/001-basic.t
index 57be5ed..4373855 100755
--- a/testing/test3.pl
+++ b/testing/tests/001-basic.t
@@ -5,7 +5,7 @@ use warnings;
use feature qw/say/;
-use lib 'blib/lib';
+#use lib 'blib/lib';
use Test::Irssi;
@@ -14,8 +14,10 @@ my $tester = Test::Irssi->new
irssi_homedir => $ENV{HOME} . "/projects/tmp/test/irssi-debug");
say "Created test instance";
+$tester->run_headless(1);
my $test = $tester->new_test('test1');
+$test->description("simple echo tests");
$test->add_input_sequence("/echo Hello cats\n");
$test->add_delay(1);
@@ -26,6 +28,8 @@ $test->add_pattern_match(qw/longfdajkfd/, 'prompt', 'prompt contains hello');
my $test2 = $tester->new_test('test2');
+$test2->description("cursor movement and deletion");
+
$test2->add_delay(2);
$test2->add_input_sequence("\x01");
$test2->add_delay(0.1);
@@ -36,6 +40,7 @@ $test2->add_delay(0.1);
$test2->add_input_sequence("/echo moo\n");
my $quit = $tester->new_test('quit');
+$quit->description('quitting');
$quit->add_input_sequence("/quit\n");
# for (1..10) {