diff options
| author | Tom Feist <shabble@metavore.org> | 2011-02-24 01:59:38 +0000 |
|---|---|---|
| committer | Tom Feist <shabble@metavore.org> | 2011-02-24 01:59:38 +0000 |
| commit | 754328bfe7acbc9409fd4d38340d76aabf96845c (patch) | |
| tree | 8f8ec9ab17dce112c9b3e4f0c8a24ba45ffc2d2c /testing/test.pl | |
| parent | added test and launcher script (diff) | |
| download | irssi-scripts-754328bfe7acbc9409fd4d38340d76aabf96845c.tar.gz irssi-scripts-754328bfe7acbc9409fd4d38340d76aabf96845c.zip | |
more work on testing system for irssi. Most of the screenscraping now works,
trying to finalise an API for actual testing usage.
Diffstat (limited to 'testing/test.pl')
| -rwxr-xr-x | testing/test.pl | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/testing/test.pl b/testing/test.pl index b062160..5d2c1dd 100755 --- a/testing/test.pl +++ b/testing/test.pl @@ -8,6 +8,7 @@ use feature qw/say/; use lib 'blib/lib'; use Test::Irssi; +use Test::Irssi::API; my $test = Test::Irssi->new (irssi_binary => "/opt/stow/repo/irssi-debug/bin/irssi", @@ -15,4 +16,12 @@ my $test = Test::Irssi->new say "Created test instance"; +my $api = $test->api; + +$api->create_test('test1', 'bacon'); +$api->simulate_input("test1", "/echo This is a test\n"); +$api->simulate_delay("test1", 0.5); +$api->expect_output("test1", qr/is a test/); + +$api->run_tests; $test->run; |