view release on metacpan or  search on metacpan

t/01-rdbo.t  view on Meta::CPAN

    if ( !@sqlite_version ) {
        skip "sqlite3 cmd line tool not found", 14;
    }

    use lib 't/MyRDBO/lib';

    # require to defer till skip checks
    require Catalyst::Test;
    Catalyst::Test->import('MyRDBO');

    use HTTP::Request::Common;
    use Data::Dump qw( dump );
    use JSON::XS;

    #dump MyRDBO::Controller::CRUD::Test::Foo->config;

    ok( my $res = request('/crud/test/foo'), "response for /crud/test/foo" );

    #dump $res;

    is( $res->headers->{status}, '302', "redirect" );

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

    if ( !@sqlite_version ) {
        skip "sqlite3 cmd line tool not found", 8;
    }

    use lib 't/MyDBIC/lib';

    # require to defer till skip checks
    require Catalyst::Test;
    Catalyst::Test->import('MyDBIC');

    use HTTP::Request::Common;
    use Data::Dump qw( dump );
    use JSON::XS;

    ok( my $res = request('/crud/test/foo'), "response for /crud/test/foo" );

    #dump $res;

    is( $res->headers->{status}, '302', "redirect" );
    like( $res->headers->{location},
        qr{/crud/test/foo/count}, "redirect to count" );