1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
# -*-Perl-*-
## Bioperl Test Harness Script for Modules
## $Id: Species.t,v 1.6 2001/01/25 22:13:40 jason Exp $
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.t'
#-----------------------------------------------------------------------
# Test script for Bio::Species.pm
# Hilmar Lapp <Hilmar.Lapp@pharma.novartis.com>, <hlapp@gmx.net>
# Fairly rudimentary
# Header code for this test was borrowed from Blast.t
use strict;
BEGIN {
# 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 => 9;
}
use Bio::Species;
ok(1);
my $sps = Bio::Species->new();
ok defined $sps;
my $msg = 'bug in either Species->classification() or elsewhere in Bio::Species';
$sps->classification('sapiens', 'Homo', 'Hominidae',
'Catarrhini', 'Primates', 'Eutheria', 'Mammalia',
'Vertebrata', 'Chordata', 'Metazoa', 'Eukaryota');
ok $sps->binomial(), 'Homo sapiens', $msg;
$sps->classification('sapiens', 'Homo', 'Hominidae',
'Catarrhini', 'Primates', 'Eutheria', 'Mammalia',
'Vertebrata', 'Chordata', 'Metazoa', 'Eukaryota');
$sps->sub_species('sapiensis');
ok $sps->binomial(), 'Homo sapiens', $msg;
ok $sps->binomial('FULL'), 'Homo sapiens sapiensis', $msg;
ok $sps->sub_species(), 'sapiensis', $msg;
$sps->classification(qw( sapiens Homo Hominidae
Catarrhini Primates Eutheria Mammalia Vertebrata
Chordata Metazoa Eukaryota));
ok $sps->binomial(), 'Homo sapiens', $msg;
# test cmd line initializtion
my $species = new Bio::Species( -classification =>
[ qw( sapiens Homo Hominidae
Catarrhini Primates Eutheria
Mammalia Vertebrata
Chordata Metazoa Eukaryota) ] );
ok( $species);
ok $species->binomial(), 'Homo sapiens';
|
