From 7ec10e516a04a05a85cb82b30a8f9982f13c6c90 Mon Sep 17 00:00:00 2001 From: Tom Feist Date: Fri, 4 Mar 2011 04:12:47 +0000 Subject: working with TAP::Harness --- testing/test2.pl | 38 -------------------------------------- 1 file changed, 38 deletions(-) delete mode 100755 testing/test2.pl (limited to 'testing/test2.pl') diff --git a/testing/test2.pl b/testing/test2.pl deleted file mode 100755 index 661e66b..0000000 --- a/testing/test2.pl +++ /dev/null @@ -1,38 +0,0 @@ -#!/usr/bin/env perl - -use strict; -use warnings; - -use feature qw/say/; - -use lib 'blib/lib'; - -use Test::Irssi; - -my $tester = Test::Irssi->new - (irssi_binary => "/opt/stow/repo/irssi-debug/bin/irssi", - irssi_homedir => $ENV{HOME} . "/projects/tmp/test/irssi-debug"); - -my $test = $tester->new_test('test2'); -$test->add_input_sequence("/echo 'Window one'\n"); -$test->add_delay(5); -$test->add_input_sequence("/window new hide\n"); -$test->add_input_sequence("/win 2\n"); -for (1..10) { - $test->add_input_sequence($_); - $test->add_delay(0.2); -} -$test->add_input_sequence("\x01/echo \x05\n"); -$test->add_delay(10); -$test->add_input_sequence("\x1b\x31"); -$test->add_delay(10); -#$test->add_input_sequence("This is\x0acursor movement\x0a"); -# $test->add_delay(5); - - - -# $test->add_expected_output("Hello"); - - - -$tester->run; -- cgit v1.2.3