t/Matrix/InstanceSite.t

   1 # -*-Perl-*- Test Harness script for Bioperl
   2 # $Id$
   3
   4 use strict;
   5
   6 BEGIN {
   7     use Bio::Root::Test;
   8
   9     test_begin(-tests => 6);
  10
  11         use_ok('Bio::Matrix::PSM::InstanceSite');
  12 }
  13
  14 my %params=(-seq=>'TATAAT',-id=>"TATAbox1", -accession_number=>'ENSG00000122304', -mid=>'TB1',
  15             -desc=>'TATA box, experimentally verified in PRM1 gene',-relpos=>-35, -start=>1965);
  16
  17 ok my $instance = Bio::Matrix::PSM::InstanceSite->new(%params);
  18 is $instance->seq, 'TATAAT';
  19 is $instance->subseq(1,3),'TAT';
  20 is $instance->accession_number, 'ENSG00000122304';
  21 is $instance->end(1970), 1970;