view release on metacpan or  search on metacpan

t/blast.t  view on Meta::CPAN

ok(!-e "$basename.$_", "deleted db file with expected suffix: $_")
    for qw(phr pin psq);
#   for qw(pdb phr pin pjs pog pos pot psq ptf pto);    # too stringent!
ok(!-e $filename,   'deleted query file');
ok(!-e $report_m6,  'deleted tabular report file');
ok(!-e $report_xml, 'deleted XML report file');

SKIP: {
    skip <<"EOT", 5 unless $ENV{$NET_VAR};
remote BLAST tests!
These tests are long to run and can hang if NCBI servers are too busy.
To enable them use:
\$ $NET_VAR=1 make test
EOT

    my $db = $db_class->new( file => 'core_nt', remote => 1 );
    cmp_ok $db->type, 'eq', 'nucl', 'got expected -db_type';
    $basename = $db->filename;
    explain $basename;

    my $query = $qr_class->new( seqs => file('test', 'nuclquery.fasta') );