← Back to branch summary

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

« back to all changes in this revision

Viewing changes to t/MultiFile.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/MultiFile.t
 
1
# -*-Perl-*- mode (to keep my emacs happy)
 
2
# $Id: MultiFile.t,v 1.1 2005/08/28 03:41:56 bosborne Exp $
 
3
 
 
4
use strict;
 
5
 
 
6
BEGIN {
 
7
        eval { require Test; };
 
8
        if ( $@ ) {
 
9
                use lib 't';
 
10
        }
 
11
        use Test;
 
12
        plan tests => 3;
 
13
}
 
14
 
 
15
use Bio::SeqIO;
 
16
use Bio::SeqIO::MultiFile;
 
17
 
 
18
ok(1);
 
19
 
 
20
my $verbose = $ENV{'BIOPERLDEBUG'} || 0;
 
21
 
 
22
my $mf = Bio::SeqIO::MultiFile->new(-format => 'Fasta' ,
 
23
                                                                                                -verbose => $verbose,
 
24
                                                                                                -files =>
 
25
                                                                                                [ Bio::Root::IO->catfile
 
26
                                                                                                ("t","data","multi_1.fa"),
 
27
                                                                                                Bio::Root::IO->catfile
 
28
                                                                                                ("t","data","multi_2.fa")]);
 
29
ok defined $mf;
 
30
my $count = 0;
 
31
eval {
 
32
        while (my $seq = $mf->next_seq() ) {
 
33
                $count++;
 
34
                # $temp = $seq->display_id;
 
35
        }
 
36
};
 
37
ok( $count,12 );