http-webtest-commits

[Ilya M. <m_...@us...>]

Update of /cvsroot/http-webtest/HTTP-WebTest/t
In directory usw-pr-cvs1:/tmp/cvs-serv19365/t

Added Files:
	11-delay.t 
Log Message:
Added Delay plugin


--- NEW FILE: 11-delay.t ---
#!/usr/bin/perl -w

# $Id: 11-delay.t,v 1.1 2002/06/19 10:29:32 m_ilya Exp $

# This script tests HTTP::WebTest::Plugin::Delay plugin

use strict;
use HTTP::Status;
use Test;

use HTTP::WebTest;
use Time::HiRes qw(gettimeofday);

require 't/config.pl';
require 't/utils.pl';

use vars qw($HOSTNAME $PORT $URL $TEST);

BEGIN { plan tests => 4 }

# init tests
my $PID = start_webserver(port => $PORT, server_sub => \&server_sub);
my $WEBTEST = HTTP::WebTest->new;
my $OPTS = { plugins => [ '::Delay' ] };


# try to stop server even we have been crashed
END { stop_webserver($PID) if defined $PID }

{
    if(defined $ENV{TEST_FAST}) {
	skip('skip: delay tests are disabled', 1);
	skip('skip: delay tests are disabled', 1);
    } else {
	my $start = gettimeofday;

	my $tests = [ { url => abs_url($URL, '/test'),
			delay => 1 } ];

	check_webtest(webtest => $WEBTEST,
		      server_url => $URL,
		      opts => $OPTS,
		      tests => $tests,
		      check_file => 't/test.out/delay');

	my $delay = int(((gettimeofday - $start) * 10 + 0.10) / 10);
	ok($delay == 1);
    }
}

{
    if(defined $ENV{TEST_FAST}) {
	skip('skip: delay tests are disabled', 1);
	skip('skip: delay tests are disabled', 1);
    } else {
	my $start = gettimeofday;

	my $tests = [ { url => abs_url($URL, '/test'),
			delay => 2 } ];

	check_webtest(webtest => $WEBTEST,
		      server_url => $URL,
		      opts => $OPTS,
		      tests => $tests,
		      check_file => 't/test.out/delay');

	my $delay = int(((gettimeofday - $start) * 10 + 0.10) / 10);
	ok($delay == 2);
    }
}

# here we handle connects to our mini web server
sub server_sub {
    my %param = @_;

    my $request = $param{request};
    my $connect = $param{connect};

    $connect->send_error(RC_NOT_FOUND);
}