Skip to content
This repository
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

file 38 lines (31 sloc) 0.94 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38
#!/usr/local/bin/perl
#-*-Perl-*-
# ## Bioperl Test Harness Script for Modules
# #
use strict;
BEGIN {
   use Bio::Root::Test;
   test_begin(-tests => 6);

   use_ok('Bio::Tools::Run::Coil');
   use_ok('Bio::SeqIO');
}

SKIP: {
   my $factory = Bio::Tools::Run::Coil->new();
   test_skip(-requires_executable => $factory,
             -requires_env => 'COILSDIR',
             -tests => 4);
   ok $factory->isa('Bio::Tools::Run::Coil');

   my $prot_file= test_input_file("coil_protein_input");

   my $seq1 = Bio::Seq->new();
   my $seqstream = Bio::SeqIO->new(-file => $prot_file, -fmt => 'Fasta');
   $seq1 = $seqstream->next_seq();

   my $coil_present = $factory->executable();
   unless ($coil_present) {
      skip("coil program not found", 3);
   }

   $factory->quiet(1);
   my @feat = $factory->predict_protein_features($seq1);
   
   ok $feat[0]->isa('Bio::SeqFeatureI');
   ok ($feat[0]->start,71);
   ok ($feat[0]->end,91);
}
Something went wrong with that request. Please try again.