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
|
## $Id: Primer.t,v 1.1 2003/07/11 15:19:41 shawnh Exp $
# test for Bio::SeqFeature::Primer
# written by Rob Edwards
use strict;
use constant NUMTESTS => 16;
BEGIN {
eval { require Test; };
if( $@ ) {
use lib 't','..';
}
use Test;
plan tests => NUMTESTS;
}
use Bio::SeqFeature::Primer;
ok(1);
my ($primer, $location, $start, $end, $strand, $id, $tm);
ok $primer=Bio::SeqFeature::Primer->new(-seq=>'CTTTTCATTCTGACTGCAACG');
ok $primer->seq->seq eq "CTTTTCATTCTGACTGCAACG";
ok $primer->primary_tag eq "Primer";
ok $location=$primer->location(500);
ok $location==500;
ok $start=$primer->start(2);
ok $start == 2;
ok $end=$primer->end(19);
ok $end == 19;
ok $strand=$primer->strand(-1);
ok $strand == -1;
ok $id=$primer->display_id('test');
ok $id eq "test";
ok $tm = $primer->Tm;
ok int($tm) == 58;
|
