p );
$t->request( GET '/test' )
->code_isnt(500)
->content_is("OK")
->content_isnt("FAIL")
->header_is("X-Test", "MyApp")
->header_isnt("X-Framework", "Perl Kelp");
$t->request(
pp1, 'Kelp';
isa_ok $app2, 'Kelp';
isnt refaddr $app1->routes, refaddr $app2->routes, 'not the same app routes ok';
$app1->routes->add('/', sub { 'hello' });
isnt
scalar @{$app1->routes->routes
dd_route( '/a' => sub { 1 } );
$t->request_ok( GET '/a' );
$t->request( GET '//a' )->code_isnt(200);
}
# Cookies
{
my $cookie_val = 'kelper';
# A route to set a cookie
$app->add