← Back to branch summary

~ubuntu-branches/ubuntu/gutsy/bioperl/gutsy

« back to all changes in this revision

Viewing changes to t/primer3.t

  • Committer: Bazaar Package Importer
  • Author(s): Matt Hope
  • Date: 2004-04-18 14:24:11 UTC
  • mfrom: (1.2.1 upstream) (2.1.1 warty)
  • Revision ID: james.westby@ubuntu.com-20040418142411-gr92uexquw4w8liq
Tags: 1.4-1
* New upstream release
* Examples and working code are installed by default to usr/bin,
  this has been moved to usr/share/doc/bioperl/bin

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/primer3.t
 
1
## $Id: primer3.t,v 1.6 2003/07/15 01:21:16 shawnh Exp $
 
2
 
 
3
# test for Bio::Tools::Primer3.pm
 
4
# written by Rob Edwards
 
5
 
 
6
use strict;
 
7
use constant NUMTESTS => 10;
 
8
 
 
9
BEGIN {
 
10
    eval { require Test; };
 
11
    if( $@ ) {
 
12
        use lib 't','..';
 
13
    }
 
14
    use Test;
 
15
 
 
16
    plan tests => NUMTESTS;
 
17
}
 
18
 
 
19
use Bio::Tools::Primer3;
 
20
ok(1);
 
21
 
 
22
my ($p3, $num, $primer);
 
23
 
 
24
ok $p3=Bio::Tools::Primer3->new(-file=>"t/data/primer3_output.txt");
 
25
ok $num=$p3->number_of_results;
 
26
ok $num, 4, "Got $num";
 
27
ok $num=$p3->all_results;
 
28
ok defined $num, 1, "Can't get all results";
 
29
ok $num=$p3->primer_results(1);
 
30
ok defined $num, 1, "Can't get results for 1";
 
31
ok $primer=$p3->next_primer;
 
32
ok ref($primer) eq "Bio::Seq::PrimedSeq", 1, "reference for primer stream is not right";
 
33