use 5.010;
use strict;
use warnings;
use Test::More tests => 4;
use Test::NoWarnings;
use Business::DPD;
my $dpd = Business::DPD->new;
$dpd->connect_schema;
my $schema = $dpd->schema;
isa_ok($schema,'DBIx::Class');
can_ok($schema,'resultset');
ok($schema->resultset('DpdCountry')->search->count,'can search & count on resultset');