view release on metacpan or  search on metacpan

t/003-main.t  view on Meta::CPAN

	unlike($result, qr{gabor});
	unlike($result, qr{Login failed});
	unlike($result, qr{badpw});
	like($result,  qr{text/css});
}

# failed logins:
{
	my $result = $t->cgiapp("/", $cookie, {rm => "login_process"});
	my $newcookie = $t->extract_cookie($result);
	is($newcookie, $cookie, "Cookie did not change");
	like($result, qr{Login form});
	unlike($result, qr{gabor});
	like($result, qr{Login failed});
	unlike($result, qr{badpw});
}

{
	my $result = $t->cgiapp("/", $cookie, {rm => "login_process", username => "gabor", password=> "badpw"});
	like($result, qr{Login form});
	like($result, qr{gabor});

t/lib/CGI/FileManager/Test.pm  view on Meta::CPAN

	return $self->cgiapp($path_info, $cookie, $params);
}

=head2 extract_cookie

my $cookie_value = $t->extract_cookie($result);

=cut
sub extract_cookie {
	my ($self, $result) = @_;
	if ($result =~ /^Set-Cookie: $self->{cookie}=([^;]*);/m) {
		return $1;
	} else {
		return "";
	}
}

=pod

sub cookie_set {
	my ($result, $cookie) = @_;
	$T->like($result, qr{^Set-Cookie: $COOKIE=$cookie; domain=$ENV{HTTP_HOST}; path=/}m, 'cookie set');
}


sub setup_sessions {
	my $n = shift;
	my @sids;
	foreach my $i (1 .. $n) {
		my $s = PTI::DB::Session->create;
		push @sids, $s->sid;
	}