view release on metacpan or  search on metacpan

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

    use lib qw( ../../CatalystX-CRUD/trunk/lib );
    use_ok('CatalystX::CRUD::Model::RDBO');
    use_ok('CatalystX::CRUD::Object::RDBO');
    use_ok('Rose::DBx::TestDB');
    use_ok('Rose::DB::Object');
}

use lib qw( t/lib );
use Catalyst::Test 'MyApp';
use Data::Dump qw( dump );
use HTTP::Request::Common;

diag( "testing against Catalyst-Runtime version "
        . $Catalyst::Runtime::VERSION );

ok( my $res = request('/foo/test'), "get /foo/test" );

#dump $res->headers;

is( $res->headers->{status}, 200, "get 200" );

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

    # if we do not have required modules, skip everything
    eval { require CatalystX::CRUD::Controller::REST; use JSON; };
    if ($@) {
        warn "$@";
        skip "CatalystX::CRUD::Controller::REST not installed", 21;
    }

    use lib qw( t/lib );
    use Catalyst::Test 'MyApp';
    use Data::Dump qw( dump );
    use HTTP::Request::Common;

    diag( "testing against Catalyst-Runtime version "
            . $Catalyst::Runtime::VERSION );

    my $res;

    ok( $res = request('/rest/foo/1'), "GET /rest/1" );
    is( $res->code, 200, "get 200" );
    is_deeply(
        decode_json( $res->content ),