view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

t/test.out/borked7.err
t/test.out/borked8.err
t/test.out/click_button1
t/test.out/click_button2
t/test.out/click_button3
t/test.out/click_button4
t/test.out/click_button_image
t/test.out/click_link1
t/test.out/click_link2
t/test.out/click_link3
t/test.out/content-type
t/test.out/cookie1
t/test.out/cookie2
t/test.out/cookie2a
t/test.out/cookie3
t/test.out/cookies-in-redirect
t/test.out/default-report-yes
t/test.out/delay
t/test.out/file-upload
t/test.out/form_name
t/test.out/handle-redirects-no

lib/HTTP/WebTest/Plugin/SetRequest.pm  view on Meta::CPAN

	}
    }

    # set request uri
    $request->uri($url) if defined $url;

    # set request method (with default GET)
    if(defined $method) {
	if($method =~ /^POST$/i) {
	    $request->method('POST');
	    # ensure correct default value for content-type header
	    $request->header(Content_Type =>
			     'application/x-www-form-urlencoded');
	} else {
	    $request->method('GET');
	}
    } else {
	$request->method('GET');
    }

    # set request params

t/02-generic.t  view on Meta::CPAN

{
    my $tests = [ { url => abs_url($URL, '/show-headers'),
		    method => 'post',
		    text_require => [ 'Content-Type: ' .
				      'application/x-www-form-urlencoded' ] },
		];

    check_webtest(webtest => $WEBTEST,
		  server_url => $URL,
		  tests => $tests,
		  check_file => 't/test.out/content-type');
}

# 28: test 'http_headers' param
{
    my $tests = [ { url => abs_url($URL, '/show-headers'),
		    http_headers => [ Accept => 'text/plain, text/html' ],
		    text_require => [ 'Accept: text/plain, text/html' ] },
		  { url => abs_url($URL, '/show-headers'),
		    http_headers => [ User_Agent => 'Override User-Agent' ],
		    text_require => [ 'User-Agent: Override User-Agent' ] },