[Http-webtest-commits] HTTP-WebTest-Recorder/t init.wt,NONE,1.1 50-web.t,NONE,1.1

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

Update of /cvsroot/http-webtest/HTTP-WebTest-Recorder/t
In directory sc8-pr-cvs1:/tmp/cvs-serv27706/t

Added Files:
	init.wt 50-web.t 
Log Message:
Starting of functional tests


--- NEW FILE: init.wt ---
test_name = Empty list of request/response pairs
    url = "${::URL}webtest/list"
    text_require = ( List of Request/Response Pairs
                     No request/response have been recorded. )
end_test

--- NEW FILE: 50-web.t ---
#!/usr/bin/perl -w

use strict;

use HTTP::Request::Common;
use HTTP::Status;
use HTTP::WebTest;
use HTTP::WebTest::Utils qw(start_webserver stop_webserver);
use HTTP::WebTest::SelfTest;

use Test::More tests => 3;

require_ok('HTTP::WebTest::Recorder');

# test constructors
my $RECORDER = new HTTP::WebTest::Recorder;
isa_ok($RECORDER, 'HTTP::WebTest::Recorder');

my $PID = start_webserver(port => $PORT, server_sub => \&server_sub);

# tests of web UI for just started recorder
{
    if($ENV{TEST_RECORDING}) {
        warn "\nRecording test (port=$PORT). Press enter when finished\n";
        scalar <>;
    }

    my $webtest = HTTP::WebTest->new;
    $webtest->run_wtscript('t/init.wt',
                           { plugins        => [ '::HarnessReport' ],
                             default_report => 'no' }
                          );
}

END { stop_webserver($PID) if defined $PID }

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

    my $response = $RECORDER->handle($param{request});
    $param{connect}->send_response($response);
};