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
|
# -*-Perl-*- Test Harness script for Bioperl
# $Id: Symbol.t 15112 2008-12-08 18:12:38Z sendu $
use strict;
BEGIN {
use lib '.';
use Bio::Root::Test;
test_begin(-tests => 9);
use_ok('Bio::Symbol::Symbol');
}
ok my $thymine = Bio::Symbol::Symbol->new(-name => 'Arg',
-token=> 'R');
my $a = Bio::Symbol::Symbol->new(-token => 'A' );
my $u = Bio::Symbol::Symbol->new(-token => 'U' );
my $g = Bio::Symbol::Symbol->new(-token => 'G' );
is($thymine->name, "Arg");
is($thymine->token, "R");
my $M = Bio::Symbol::Symbol->new(-name => 'Met',
-token => 'M',
-symbols => [ $a, $u, $g ]);
is($M->name, "Met");
is($M->token, 'M');
my @symbols = $M->symbols;
my @expected = ($a, $u, $g);
foreach ( 0..2 ) {
is($expected[$_], $symbols[$_]);
}
|
