view release on metacpan or  search on metacpan

t/lib/Apache2/Controller/Test/Funk.pm  view on Meta::CPAN

=cut

sub qs {
    my $qs = q{};
    while (defined $_[0] && defined $_[1]) {
        my $var = shift;
        my $val = shift;
        $qs .= '&' if $qs;
        if (ref $val) {
            croak "wrong ref type, only array allowed\n" if ref $val ne 'ARRAY';
            $qs .= join('&', map "$var=".uri_escape($_), @{$val});
        }
        else {
            $qs .= "$var=".uri_escape($val);
        }
    }
    return $qs;
}

1;

t/openid.t  view on Meta::CPAN

use Apache2::Controller::Test::OpenIDServer;

# start up the openid test server
my $openid_server = Apache2::Controller::Test::OpenIDServer->new();
my $openid_port = $openid_server->port;
my $openid_url_base = "http://localhost:$openid_port";
diag("openid_url_base: $openid_url_base");

my $openid_url = "$openid_url_base/a2ctest";
my $esc_openid_url = uri_escape($openid_url);

# set the server running in the background
my $openid_server_pid = $openid_server->background;
diag("openid server backgrounded, pid is '$openid_server_pid'");

# use the test libs after forking... although it doesn't seem to matter
use Apache::Test;
use Apache::TestUtil;
use Apache::TestRequest qw( GET_HEAD GET_BODY GET_STR );
plan tests => 25, need_module qw(

t/session.t  view on Meta::CPAN

my $ua = Apache::TestRequest::user_agent(
    cookie_jar              => $jar, 
    requests_redirectable   => 0,
);
Apache::TestRequest::lwp_debug(2);

use TestApp::Session::Controller;

my $url = "/session";

my $get = "$url/set?data=".uri_escape($testdata_dump);
my $response = GET_BODY $get;

ok t_cmp($response, "Set session data.\n", "Set data.");

$response = GET_BODY "$url/read";
my $session = Load($response);
my $response_testdata = $session->{testdata};

ok t_cmp(Dump($response_testdata), $testdata_dump, "Read data.");