1
## $Id: Primer.t,v 1.2.6.1 2006/11/30 09:24:00 sendu Exp $
3
# test for Bio::SeqFeature::Primer
4
# written by Rob Edwards
7
use constant NUMTESTS => 18;
10
eval { require Test; };
16
plan tests => NUMTESTS;
19
use Bio::SeqFeature::Primer;
22
my ($primer, $location, $start, $end, $strand, $id, $tm, $tme);
24
ok $primer=Bio::SeqFeature::Primer->new(-seq=>'CTTTTCATTCTGACTGCAACG');
25
ok $primer->seq->seq eq "CTTTTCATTCTGACTGCAACG";
26
ok $primer->primary_tag eq "Primer";
27
ok $location=$primer->location(500);
29
ok $start=$primer->start(2);
31
ok $end=$primer->end(19);
33
ok $strand=$primer->strand(-1);
35
ok $id=$primer->display_id('test');
38
ok $tme = $primer->Tm_estimate;