t/Primer.t

   1 # -*-Perl-*- Test Harness script for Bioperl
   2 # $Id$
   3
   4
   5 use strict;
   6
   7 BEGIN {
   8     use lib 't/lib';
   9     use BioperlTest;
  10
  11     test_begin(-tests => 18);
  12
  13     use_ok('Bio::SeqFeature::Primer');
  14 }
  15
  16 my ($primer, $location, $start, $end, $strand, $id, $tm, $tme);
  17
  18 ok $primer=Bio::SeqFeature::Primer->new(-seq=>'CTTTTCATTCTGACTGCAACG');
  19 is $primer->seq->seq, "CTTTTCATTCTGACTGCAACG";
  20 is $primer->primary_tag, "Primer";
  21 ok $location=$primer->location(500);
  22 is $location,500;
  23 ok $start=$primer->start(2);
  24 is $start, 2;
  25 ok $end=$primer->end(19);
  26 is $end, 19;
  27 ok $strand=$primer->strand(-1);
  28 is $strand, -1;
  29 ok $id=$primer->display_id('test');
  30 is $id, "test";
  31 ok $tm = $primer->Tm;
  32 ok $tme = $primer->Tm_estimate;
  33 is int($tm), 52;
  34 is int($tme), 58;