diff options
| author | Tom Feist <shabble@metavore.org> | 2011-02-28 20:53:15 +0000 |
|---|---|---|
| committer | Tom Feist <shabble@metavore.org> | 2011-02-28 20:53:15 +0000 |
| commit | fa7b4c4482f718ffbcbfe580c37f9c2f2067ec43 (patch) | |
| tree | 3bc26cd3b873cd91d77067835206db27d4651e6a /testing/lib/Test | |
| parent | refactor everything to make tests more test-like. (diff) | |
| download | irssi-scripts-fa7b4c4482f718ffbcbfe580c37f9c2f2067ec43.tar.gz irssi-scripts-fa7b4c4482f718ffbcbfe580c37f9c2f2067ec43.zip | |
added other tests
Diffstat (limited to 'testing/lib/Test')
| -rw-r--r-- | testing/lib/Test/Irssi.pm | 2 | ||||
| -rw-r--r-- | testing/lib/Test/Irssi/Driver.pm | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/testing/lib/Test/Irssi.pm b/testing/lib/Test/Irssi.pm index d776573..4e2030b 100644 --- a/testing/lib/Test/Irssi.pm +++ b/testing/lib/Test/Irssi.pm @@ -237,7 +237,7 @@ class Test::Irssi { } method summarise_test_results { - foreach my $test ($self->completed_tests) { + foreach my $test (@{$self->completed_tests}) { my $name = $test->name; printf("Test %s\t\t-\t%s\n", $name, $test->passed?"pass":"fail"); } diff --git a/testing/lib/Test/Irssi/Driver.pm b/testing/lib/Test/Irssi/Driver.pm index 3b6000b..1319f2a 100644 --- a/testing/lib/Test/Irssi/Driver.pm +++ b/testing/lib/Test/Irssi/Driver.pm @@ -76,7 +76,7 @@ sub STOP { $self->parent->_logfile_fh->close(); say "\n\n"; - #$self->parent->summarise_test_results(); + $self->parent->summarise_test_results(); } ### Handle terminal STDIN. Send it to the background program's STDIN. @@ -183,7 +183,7 @@ sub test_complete { } # otherwise, we're done, and can shutdown. - #$kernel->yield('shutdown'); + #kernel->yield('shutdown'); } |