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/test2.pl | |
| 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/test2.pl | 38 |
1 files changed, 0 insertions, 38 deletions
diff --git a/testing/test2.pl b/testing/test2.pl deleted file mode 100755 index 661e66b..0000000 --- a/testing/test2.pl +++ /dev/null @@ -1,38 +0,0 @@ -#!/usr/bin/env perl - -use strict; -use warnings; - -use feature qw/say/; - -use lib 'blib/lib'; - -use Test::Irssi; - -my $tester = Test::Irssi->new - (irssi_binary => "/opt/stow/repo/irssi-debug/bin/irssi", - irssi_homedir => $ENV{HOME} . "/projects/tmp/test/irssi-debug"); - -my $test = $tester->new_test('test2'); -$test->add_input_sequence("/echo 'Window one'\n"); -$test->add_delay(5); -$test->add_input_sequence("/window new hide\n"); -$test->add_input_sequence("/win 2\n"); -for (1..10) { - $test->add_input_sequence($_); - $test->add_delay(0.2); -} -$test->add_input_sequence("\x01/echo \x05\n"); -$test->add_delay(10); -$test->add_input_sequence("\x1b\x31"); -$test->add_delay(10); -#$test->add_input_sequence("This is\x0acursor movement\x0a"); -# $test->add_delay(5); - - - -# $test->add_expected_output("Hello"); - - - -$tester->run; |