view release on metacpan or  search on metacpan

t/00_basic.t  view on Meta::CPAN

use strict;
use warnings;
use FindBin;
use lib "$FindBin::RealBin/../lib";
use Test::More;
use DBIx::Class::Storage::DBI::mysql;

BEGIN { use_ok 'DBIx::Class::Storage::DBI::mysql::backup' }

{
    is ref(DBIx::Class::Storage::DBI::mysql->new->can('backup')), 'CODE', 'ref backup is CODE';
    is ref(DBIx::Class::Storage::DBI::mysql->new->can('backup_filename')), 'CODE', 'ref backup_filename is CODE';
    is ref(DBIx::Class::Storage::DBI::mysql->new->can('dump')), 'CODE', 'ref dump is CODE';
}

done_testing;