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
|
# -*-Perl-*- Test Harness script for Bioperl
# $Id: MicrosatelliteMarker.t 15112 2008-12-08 18:12:38Z sendu $
use strict;
BEGIN {
use lib '.';
use Bio::Root::Test;
test_begin(-tests => 8);
use_ok('Bio::Map::SimpleMap');
use_ok('Bio::Map::Position');
use_ok('Bio::Map::Microsatellite');
}
my $map = Bio::Map::SimpleMap->new(-units => 'MB',
-type => 'oo-121');
my $position = Bio::Map::Position->new(-map => $map,
-value => 20
);
my $o_usat = Bio::Map::Microsatellite->new
(-name=>'Chad Super Marker 2',
-sequence => 'gctgactgatcatatatatatatatatatatatatatatatcgcgatcgtgatttt',
-motif => 'at',
-repeats => 15,
-repeat_start_position => 12,
-position => $position,
);
is($o_usat->get_leading_flank(), "gctgactgatc");
is($o_usat->get_trailing_flank(), "cgcgatcgtgatttt");
is($o_usat->motif(), 'at');
is($o_usat->repeats(), 15);
is($o_usat->repeat_start_position, 12);
|
