diff options
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; |