• Your recent searches
Apache-SWIT
1 match

 view release on metacpan or  search on metacpan

t/apache/010_tester.t  view on Meta::CPAN 

		, fields => { file => "$td/uuu" });
is(read_file("$td/uuu"), 'Push');
is(unlink("$td/uuu"), 1);
is_deeply(\@res, [ "hhhh\n" ]);

$t->the_page_r(base_url => '/test/swit/r');
$t->the_page_u(fields => { file => "$td/CTYPE" });
is($t->mech->ct, "text/plain");
unlike(ASTU_Read_Error_Log(), qr/\[error\]/);

$t->the_page_r(base_url => '/test/swit/r');
$t->the_page_u(fields => { file => "$td/RESPOND" });
$t->content_like(qr/RESPONSE/);
is(-f "$td/RESPOND", undef);
like(ASTU_Read_Access_Log(), qr/RESPOND.*HTTP/);

my $uri = $t->mech->uri;
$t->mech->get($uri);
is($t->mech->status, 200) or ASTU_Wait;

$t->mech->post($t->mech->uri, { file => "$td/RESPOND" }
	, 'Accept-Encoding', 'gzip,deflate');
is($t->mech->status, 200) or ASTU_Wait;

my $resp = $t->mech->response->as_string;
unlike($resp, qr/RESPONSE/);
like($resp, qr/Content-Encoding: gzip/);

T::Test->make_aliases("another/page" => 'T::SWIT');
$t->root_location('/test');
@res = $t->another_page_r(make_url => 1);
is_deeply(\@res, [ <<ENDS ]);
<html>
<body>
<form action="u">
hello world
<input type="text" name="file" />
<input type="submit" name="but" value="Push" />
<a href="r">This</a>
reqboo
</form>
</body>
</html>
ENDS

# works
is($t->ok_follow_link(text => 'This'), 1);
$t->ok_get('/test/www/hello.html');
my $_hc = $t->mech->content;
my $_uri = $t->mech->uri;

$t->content_like(qr/HELLO, HTML/);
is($t->mech->response->headers->content_encoding, "gzip") or ASTU_Wait;

$t->ok_get('/test/www/hello.svg');
is($t->mech->response->headers->content_encoding, "gzip") or ASTU_Wait;

$t->ok_get('/test/www/hello.xhtml');
is($t->mech->response->headers->content_encoding, "gzip") or ASTU_Wait;

$t->ok_get('/test/www/nothing.html', 404);

$t->ok_get($_uri);
is($t->mech->content, $_hc);

# relative to root location
$t->ok_get('www/hello.html', 200);

$t->mech->max_redirect(0);
$t->ok_get("/test/swit/u?file=$td/uuu", 302);
$t->mech->max_redirect(7);

$t->ok_get("/test/ht_page/r?redir=1");
is($t->mech->content, $_hc);

$t->ok_get("/test/ht_page/r?internal=1");
is($t->mech->content, $_hc);
like($t->mech->uri, qr#/test/ht_page/r\?internal=1#);



( run in 0.943 second using v1.01-cache-2.11-cpan-39bf76dae61 )