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/test3.pl | 47 ----------------------------------------------- 1 file changed, 47 deletions(-) delete mode 100755 testing/test3.pl (limited to 'testing/test3.pl') diff --git a/testing/test3.pl b/testing/test3.pl deleted file mode 100755 index 57be5ed..0000000 --- a/testing/test3.pl +++ /dev/null @@ -1,47 +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"); - -say "Created test instance"; - -my $test = $tester->new_test('test1'); - -$test->add_input_sequence("/echo Hello cats\n"); -$test->add_delay(1); -$test->add_input_sequence("/echo Hello Again\n"); -$test->add_input_sequence("this is a lang test"); -$test->add_pattern_match(qw/long/, 'prompt', 'prompt contains hello'); -$test->add_pattern_match(qw/longfdajkfd/, 'prompt', 'prompt contains hello'); - - -my $test2 = $tester->new_test('test2'); -$test2->add_delay(2); -$test2->add_input_sequence("\x01"); -$test2->add_delay(0.1); -$test2->add_input_sequence("\x0b"); -$test2->add_delay(0.1); -$test2->add_input_sequence("/clear\n"); -$test2->add_delay(0.1); -$test2->add_input_sequence("/echo moo\n"); - -my $quit = $tester->new_test('quit'); -$quit->add_input_sequence("/quit\n"); - -# for (1..10) { -# $test->add_input_sequence("\xff"); -# $test->add_delay(0.1); - -# } - -$tester->run; -- cgit v1.2.3