Dancer2-Plugin-Redis

 view release on metacpan or  search on metacpan

t/001-use.t  view on Meta::CPAN

use strictures 1;
use Test::More tests => 1 + 2;
use Test::NoWarnings;
use Plack::Test;
use HTTP::Request::Common;

use lib '.';
use t::Util;

BEGIN { t::Util::setenv }

use t::TestApp::Simple;

BEGIN { t::Util::setconf( \&t::TestApp::Simple::set ) }

############################################################################

my $app = t::TestApp::Simple->psgi_app;
ok( $app, 'Got App' );

t/002-get-set.t  view on Meta::CPAN

use strictures 1;
use Test::More tests => 1 + 4;
use Test::NoWarnings;
use Plack::Test;
use HTTP::Request::Common;

use lib '.';
use t::Util;

BEGIN { t::Util::setenv }

use t::TestApp::Simple;

BEGIN { t::Util::setconf( \&t::TestApp::Simple::set ) }

############################################################################

my $app = t::TestApp::Simple->psgi_app;
ok( $app, 'Got App' );

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

use strictures 1;
use Test::More tests => 1 + 5;
use Test::NoWarnings;
use Plack::Test;
use HTTP::Request::Common;

use lib '.';
use t::Util;

BEGIN { t::Util::setenv }

use t::TestApp::Simple;

BEGIN { t::Util::setconf( \&t::TestApp::Simple::set ) }

############################################################################

my $app = t::TestApp::Simple->psgi_app;
ok( $app, 'Got App' );

t/004-del.t  view on Meta::CPAN

use strictures 1;
use Test::More tests => 1 + 4;
use Test::NoWarnings;
use Plack::Test;
use HTTP::Request::Common;

use lib '.';
use t::Util;

BEGIN { t::Util::setenv }

use t::TestApp::Simple;

BEGIN { t::Util::setconf( \&t::TestApp::Simple::set ) }

############################################################################

my $app = t::TestApp::Simple->psgi_app;
ok( $app, 'Got App' );

t/Util.pm  view on Meta::CPAN

package t::Util;
use strictures 1;

use Test::More;
use Plack::Test;
use HTTP::Request::Common;

############################################################################
# Setup environment for Delti::WheelShop testing environment.

sub setenv {
  $ENV{PLACK_ENV} = $ENV{DANCER_ENVIRONMENT} = 'testing';
}

############################################################################
# Setup environment for Delti::WheelShop testing environment.

sub setconf {
  my ($set) = @_;
  $set->( environment => 'testing' );
  $set->( warnings    => 1 );