CGI-Application-Framework

 view release on metacpan or  search on metacpan

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

$query->param('username',     'foo');
$query->param('password',     'bar');


$app->run;

ok($app->stash->{'User_OK'},                          '[login, custom _login_authenticate] valid user');
ok($app->stash->{'Password_OK'},                      '[login, custom _login_authenticate] valid password');

my $session_id;
if ($app->stash->{'Cookie'} =~ m{^\s*session_id=(\S*);\s+path=/\s*$}i ) {
    $session_id = $1;
}

like($session_id, qr/^[a-fA-F0-9]+$/,               '[login, custom _login_authenticate] Session looks valid');
is($app->session->{username}, 'bubba',              '[login, custom _login_authenticate] user is always bubba');
is($app->session->{fullname}, 'Bubba the Beatific', '[login, custom _login_authenticate] user is always beatific');


#######################################################################
# Fake that we've come from the login page with bad form parameters

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

# Fake that we've come from the login page with good parameters
$app   = MyTestApp->new(QUERY => $query);
$query->param('username',     'test');
$query->param('password',     'seekrit');
$app->run;

ok($app->stash->{'User_OK'},                          '[login, good parms] valid user');
ok($app->stash->{'Password_OK'},                      '[login, good parms] valid password');

undef $session_id;
if ($app->stash->{'Cookie'} =~ m{^\s*session_id=(\S*);\s+path=/\s*$}i ) {
    $session_id = $1;
}

like($session_id, qr/^[a-fA-F0-9]+$/, '[login, good parms] Session looks valid');

is($app->session->{username}, 'test', '[login, good parms] user is test');
is($app->session->{wubba},    'yes',  '[login, good parms] stored session value');

ok($app->stash->{'Seen_Run_Mode'}{'main_display'},  '[login, good parms] fall through to main_display');
is($app->stash->{'Final_Run_Mode'}, 'main_display', '[login, good parms] final page was main_display');

t/04-session.t  view on Meta::CPAN

# Fake that we've come from the login page with good parameters
$app   = MyTestApp->new(QUERY => $query);
$query->param('username',     'test');
$query->param('password',     'seekrit');
$app->run;

ok($app->stash->{'User_OK'},                          '[login, good parms] valid user');
ok($app->stash->{'Password_OK'},                      '[login, good parms] valid password');

my $session_id;
if ($app->stash->{'Cookie'} =~ m{^\s*session_id=(\S*);\s+path=/\s*$}i ) {
    $session_id = $1;
}

like($session_id, qr/^[a-fA-F0-9]+$/, '[login, good parms] Session looks valid');

is($app->session->{username}, 'test', '[login, good parms] user is test');
is($app->session->{wubba},    'yes',  '[login, good parms] session value wubba');

$app->session->{'tambourine'} = 'green';
is($app->session->{'tambourine'},    'green',  '[login, good parms] stored session value tambourine');

t/05-relogin.t  view on Meta::CPAN

# Fake that we've come from the login page with good parameters
$app   = MyTestApp->new(QUERY => $query);
$query->param('username',     'test');
$query->param('password',     'seekrit');
$app->run;

ok($app->stash->{'User_OK'},                          '[login, good parms] valid user');
ok($app->stash->{'Password_OK'},                      '[login, good parms] valid password');

my $session_id;
if ($app->stash->{'Cookie'} =~ m{^\s*session_id=(\S*);\s+path=/\s*$}i ) {
    $session_id = $1;
}

like($session_id, qr/^[a-fA-F0-9]+$/, '[login, good parms] Session looks valid');

is($app->session->{username}, 'test', '[login, good parms] user is test');
is($app->session->{wubba},    'yes',  '[login, good parms] session value wubba');

$app->session->{'consistency'} =   'the goblin of little minds';
is($app->session->{'consistency'}, 'the goblin of little minds',  '[login, good parms] stored session value consistency');

t/06-make_link.t  view on Meta::CPAN

    $query->param('rm',           'main_display');
    $app   = MyTestApp->new(QUERY => $query);
    $query->param('username',     'test');
    $query->param('password',     'seekrit');
    $app->run;

    ok($app->stash->{'User_OK'},                          '[login, good parms] valid user');
    ok($app->stash->{'Password_OK'},                      '[login, good parms] valid password');

    my $session_id;
    if ($app->stash->{'Cookie'} =~ m{^\s*session_id=(\S*);\s+path=/\s*$}i ) {
        $session_id = $1;
    }

    like($session_id, qr/^[a-fA-F0-9]+$/, '[login, good parms] Session looks valid');

    is($app->session->{username}, 'test', '[login, good parms] user is test');
    is($app->session->{wubba},    'yes',  '[login, good parms] session value wubba');

    $app->session->{'tambourine'} = 'green';
    is($app->session->{'tambourine'},    'green',  '[login, good parms] stored session value tambourine');

t/TestApp.pm  view on Meta::CPAN

    $stash->{'Seen_Run_Mode'}   = undef;
    $stash->{'User_OK'}         = undef;
    $stash->{'Password_OK'}     = undef;
    $stash->{'Suppress_Output'} = $self->param('suppress_output') || undef;
}
sub header_props {
    my $self = shift;
    my %args = @_;
    my $stash = $self->stash;

    $stash->{'Cookie'} = $args{'-cookie'};
}

sub _login_tmpl_params {
    ();
}

sub config_file {
    't/conf/testapp.conf';
}
sub db_config_file {