2 # ## Bioperl Test Harness Script for Modules
10 test_begin(-tests => $NTESTS,
11 -requires_modules => [qw(IPC::Run)]);
12 use_ok('Bio::Tools::Run::Glimmer');
13 use_ok('Bio::Root::IO');
17 my $fasta_file = test_input_file('H_pylori_J99.fasta');
18 my $icm_file = test_input_file('H_pylori_J99.glimmer3.icm');
20 my $factory = Bio::Tools::Run::Glimmer->new(-program => 'glimmer3',
22 isa_ok $factory, 'Bio::Tools::Run::Glimmer';
24 my $seqstream = Bio::SeqIO->new(-file => $fasta_file, -format => 'fasta');
25 my $seq = $seqstream->next_seq();
28 test_skip(-requires_executable => $factory, -tests => 107);
30 my $glimmer3 = $factory->run($seq);
31 isa_ok $glimmer3, 'Bio::Tools::Glimmer';
33 while (my $gene = $glimmer3->next_prediction()) {
34 isa_ok $gene, 'Bio::SeqFeature::Generic';