more work on testing system for irssi. Most of the screenscraping now works,

trying to finalise an API for actual testing usage.

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;