← Back to branch summary

~ubuntu-branches/ubuntu/raring/bioperl/raring

« back to all changes in this revision

Viewing changes to t/metafasta.t

  • Committer: Bazaar Package Importer
  • Author(s): Charles Plessy
  • Date: 2008-03-18 14:44:57 UTC
  • mfrom: (4 hardy)
  • mto: This revision was merged to the branch mainline in revision 6.
  • Revision ID: james.westby@ubuntu.com-20080318144457-1jjoztrvqwf0gruk
http://bugs.debian.org/448890
* debian/control:
  - Removed MIA Matt Hope (dopey) from the Uploaders field.
    Thank you for your work, Matt. I hope you are doing well.
  - Downgraded some recommended package to the 'Suggests' priority,
    according to the following discussion on Upstream's mail list.
    http://bioperl.org/pipermail/bioperl-l/2008-March/027379.html
    (Closes: #448890)
* debian/copyright converted to machine-readable format.

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/metafasta.t
 
1
# -*-Perl-*-
 
2
# $Id: metafasta.t,v 1.1 2005/09/07 02:04:21 bosborne Exp $
 
3
# Before `make install' is performed this script should be runnable with
 
4
# `make test'. After `make install' it should work as `perl test.t'
 
5
 
 
6
use strict;
 
7
use vars qw($NUMTESTS);
 
8
BEGIN {
 
9
        $NUMTESTS = 4;
 
10
        # to handle systems with no installed Test module
 
11
        # we include the t dir (where a copy of Test.pm is located)
 
12
        # as a fallback
 
13
        eval { require Test; };
 
14
        if ( $@ ) {
 
15
                use lib 't';
 
16
        }
 
17
        use Test;
 
18
        plan tests => $NUMTESTS;
 
19
}
 
20
 
 
21
use Bio::SeqIO::metafasta;
 
22
use Bio::Root::IO;
 
23
 
 
24
my $verbose = $ENV{'BIOPERLDEBUG'};
 
25
ok(1);
 
26
 
 
27
my $io = Bio::SeqIO->new(-format => 'metafasta',
 
28
                                                                 -verbose => $verbose,
 
29
                                                                 -file => Bio::Root::IO->catfile
 
30
                                                                 (qw(t data test.metafasta) ));
 
31
 
 
32
ok(my $seq = $io->next_seq);
 
33
ok($seq->seq, "ABCDEFHIJKLMNOPQRSTUVWXYZ");
 
34
ok($seq->display_id,'test');