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
|
## $Id: primer3.t,v 1.6 2003/07/15 01:21:16 shawnh Exp $
# test for Bio::Tools::Primer3.pm
# written by Rob Edwards
use strict;
use constant NUMTESTS => 10;
BEGIN {
eval { require Test; };
if( $@ ) {
use lib 't','..';
}
use Test;
plan tests => NUMTESTS;
}
use Bio::Tools::Primer3;
ok(1);
my ($p3, $num, $primer);
ok $p3=Bio::Tools::Primer3->new(-file=>"t/data/primer3_output.txt");
ok $num=$p3->number_of_results;
ok $num, 4, "Got $num";
ok $num=$p3->all_results;
ok defined $num, 1, "Can't get all results";
ok $num=$p3->primer_results(1);
ok defined $num, 1, "Can't get results for 1";
ok $primer=$p3->next_primer;
ok ref($primer) eq "Bio::Seq::PrimedSeq", 1, "reference for primer stream is not right";
|
