2
## Bioperl Test Harness Script for Modules
4
# Before `make install' is performed this script should be runnable with
5
# `make test'. After `make install' it should work as `perl test.t'
10
# to handle systems with no installed Test module
11
# we include the t dir (where a copy of Test.pm is located)
13
eval { require Test; };
21
#use Bio::Tools::SeqAnal; # deprecated, don't use any more
22
use Bio::Tools::IUPAC;
27
my $ambiseq = new Bio::Seq (-seq => 'ARTCGTTGR',
30
my $stream = new Bio::Tools::IUPAC('-seq' => $ambiseq);
31
ok $stream->count(), 4;
34
while (my $uniqueseq = $stream->next_seq()) {
35
if( ! $uniqueseq->isa('Bio::Seq') ) {
37
last; # no point continuing if we get here