diff options
| author | Tom Feist <shabble@metavore.org> | 2011-03-04 04:12:47 +0000 |
|---|---|---|
| committer | Tom Feist <shabble@metavore.org> | 2011-03-04 04:12:47 +0000 |
| commit | 7ec10e516a04a05a85cb82b30a8f9982f13c6c90 (patch) | |
| tree | 98e01316dbd57e4b0debb2d5d444b19cef5bf026 /testing/tests/001-basic.t | |
| parent | testing: cleaned up a lot of the testing logic. Subtests are now reported at ... (diff) | |
| download | irssi-scripts-7ec10e516a04a05a85cb82b30a8f9982f13c6c90.tar.gz irssi-scripts-7ec10e516a04a05a85cb82b30a8f9982f13c6c90.zip | |
working with TAP::Harness
Diffstat (limited to '')
| -rwxr-xr-x | testing/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) { |