diff options
author | Tom Feist <shabble@metavore.org> | 2011-03-04 03:06:03 +0000 |
---|---|---|
committer | Tom Feist <shabble@metavore.org> | 2011-03-04 03:06:03 +0000 |
commit | bdcbcad70d9f5380b5be7c68dfdb2d0ef7365924 (patch) | |
tree | 142db82dfe822042ff8b972e15eff62225a05960 /testing/t | |
parent | Test::Irssi::Test - whitespace cleanup (diff) | |
download | irssi-scripts-bdcbcad70d9f5380b5be7c68dfdb2d0ef7365924.tar.gz irssi-scripts-bdcbcad70d9f5380b5be7c68dfdb2d0ef7365924.zip |
testing: cleaned up a lot of the testing logic. Subtests are now reported at the end.
Diffstat (limited to '')
-rwxr-xr-x | testing/test3.pl | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/testing/test3.pl b/testing/test3.pl index 1c783ac..57be5ed 100755 --- a/testing/test3.pl +++ b/testing/test3.pl @@ -20,11 +20,13 @@ my $test = $tester->new_test('test1'); $test->add_input_sequence("/echo Hello cats\n"); $test->add_delay(1); $test->add_input_sequence("/echo Hello Again\n"); -$test->add_input_sequence("this is a long test"); +$test->add_input_sequence("this is a lang test"); $test->add_pattern_match(qw/long/, 'prompt', 'prompt contains hello'); +$test->add_pattern_match(qw/longfdajkfd/, 'prompt', 'prompt contains hello'); + my $test2 = $tester->new_test('test2'); -$test2->add_delay(1); +$test2->add_delay(2); $test2->add_input_sequence("\x01"); $test2->add_delay(0.1); $test2->add_input_sequence("\x0b"); @@ -33,6 +35,9 @@ $test2->add_input_sequence("/clear\n"); $test2->add_delay(0.1); $test2->add_input_sequence("/echo moo\n"); +my $quit = $tester->new_test('quit'); +$quit->add_input_sequence("/quit\n"); + # for (1..10) { # $test->add_input_sequence("\xff"); # $test->add_delay(0.1); |