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;
22
use Bio::Tools::IUPAC;
27
my $ambiseq = new Bio::Seq (-seq => 'ARTCGTTGR', -type =>
30
my $stream = new Bio::Tools::IUPAC('-seq' => $ambiseq);
33
while (my $uniqueseq = $stream->next_seq()) {
34
if( ! $uniqueseq->isa('Bio::Seq') ) {
36
last; # no point continuing if we get here