3 # ## Bioperl Test Harness Script for Modules
8 test_begin
(-tests
=> 6);
10 use_ok
('Bio::Tools::Run::Coil');
15 my $factory = Bio
::Tools
::Run
::Coil
->new();
16 test_skip
(-requires_executable
=> $factory,
17 -requires_env
=> 'COILSDIR',
19 ok
$factory->isa('Bio::Tools::Run::Coil');
21 my $prot_file= test_input_file
("coil_protein_input");
23 my $seq1 = Bio
::Seq
->new();
24 my $seqstream = Bio
::SeqIO
->new(-file
=> $prot_file, -fmt
=> 'Fasta');
25 $seq1 = $seqstream->next_seq();
27 my $coil_present = $factory->executable();
28 unless ($coil_present) {
29 skip
("coil program not found", 3);
33 my @feat = $factory->predict_protein_features($seq1);
35 ok
$feat[0]->isa('Bio::SeqFeatureI');
36 ok
($feat[0]->start,71);
37 ok
($feat[0]->end,91);