view release on metacpan or  search on metacpan

t/app_attrs.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More 0.89;
use HTTP::Request::Common qw/GET POST DELETE/;

use FindBin;
use lib "$FindBin::Bin/lib";

use TestApp;

ok(TestApp->installdb, 'Setup Database');
ok(TestApp->deploy_dbfixtures, 'Fixtures Deployed');


use Catalyst::Test 'TestApp';

ok my $user100 = request(GET '/doesattrs/user_default/100')->content,
  'got user 100';

is $user100, 'user_default,john@shutterstock.com',
  'got expected values for user 100';

ok my $user999 = request(GET '/doesattrs/user_default/999')->content,
  'got user 100';

is $user999, 'user_default,notfound',
  'got expected values for user 999 (not found)';

done_testing;