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
|
# -*-Perl-*- Test Harness script for Bioperl
# $Id: Measure.t 15112 2008-12-08 18:12:38Z sendu $
use strict;
BEGIN {
use lib '.';
use Bio::Root::Test;
test_begin(-tests => 21);
use_ok 'Bio::Phenotype::Measure';
}
my $measure = Bio::Phenotype::Measure->new( -context => "height",
-description => "desc",
-start => 10,
-end => 150,
-unit => "cm",
-comment => "comment" );
isa_ok( $measure, "Bio::Phenotype::Measure" );
ok( $measure->to_string() );
is( $measure->context(), "height" );
is( $measure->description(), "desc" );
is( $measure->start(), 10 );
is( $measure->end(), 150 );
is( $measure->unit(), "cm" );
is( $measure->comment(), "comment" );
$measure->init();
is( $measure->context(), "" );
is( $measure->description(), "" );
is( $measure->start(), "" );
is( $measure->end(), "" );
is( $measure->unit(), "" );
is( $measure->comment(), "" );
is( $measure->context( "A" ), "A" );
is( $measure->description( "B" ), "B" );
is( $measure->start( "C" ), "C" );
is( $measure->end( "D" ), "D" );
is( $measure->unit( "E" ), "E" );
is( $measure->comment( "F" ), "F" );
|
