maint: remove Travis stuff which has been replaced with Github actions (#325)
[bioperl-live.git] / t / SeqIO / metafasta.t
blobcc454ab9af79f3d40ab19ec83c960337727bc146
1 # -*-Perl-*- Test Harness script for Bioperl
2 # $Id$
4 use strict;
6 BEGIN {
7     use Bio::Root::Test;
8     
9     test_begin(-tests => 6);
10         
11         use_ok('Bio::SeqIO::metafasta');
14 my $verbose = test_debug();
16 my $io = Bio::SeqIO->new(-format => 'metafasta',
17                                                                  -verbose => $verbose,
18                                                                  -file => test_input_file('test.metafasta'));
20 isa_ok($io, 'Bio::SeqIO');
21 ok(my $seq = $io->next_seq);
22 isa_ok($seq, 'Bio::Seq::Meta');
23 is($seq->seq, "ABCDEFHIJKLMNOPQRSTUVWXYZ");
24 is($seq->display_id,'test');