[Bioperl-guts-l] bioperl-live/t raw.t,NONE,1.1

Brian Osborne bosborne at pub.open-bio.org
Tue Sep 6 22:15:52 EDT 2005


Update of /home/repository/bioperl/bioperl-live/t
In directory pub.open-bio.org:/tmp/cvs-serv5443/t

Added Files:
	raw.t 
Log Message:
Add missing SeqIO test


--- NEW FILE: raw.t ---
# -*-Perl-*-
# $Id: raw.t,v 1.1 2005/09/07 02:15:50 bosborne Exp $
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.t'

use strict;
use vars qw($NUMTESTS);
BEGIN {
	$NUMTESTS = 5;
	# to handle systems with no installed Test module
	# we include the t dir (where a copy of Test.pm is located)
	# as a fallback
	eval { require Test; };
	if ( $@ ) {
		use lib 't';
	}
	use Test;
	plan tests => $NUMTESTS;
}

use Bio::SeqIO::raw;
use Bio::Root::IO;

my $verbose = $ENV{'BIOPERLDEBUG'};
ok(1);

my $io = Bio::SeqIO->new(-format => 'raw',
								 -verbose => $verbose,
								 -file => Bio::Root::IO->catfile
								 (qw(t data test.raw) ));

ok(my $seq = $io->next_seq);
ok($seq->length, 358);
ok($seq = $io->next_seq);
ok($seq->length, 158);



More information about the Bioperl-guts-l mailing list