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
|
#-*-Perl-*-
## Bioperl Test Harness Script for Modules
## $Id: InstanceSite.t,v 1.4 2003/10/16 16:45:31 heikki Exp $
use strict;
BEGIN {
# to handle systems with no installed Test module
# we include the t dir (where a copy of Test.pm is located)
# as a fallback
eval { require Test; };
if( $@ ) {
use lib 't';
}
use Test;
plan tests => 6;
}
use Bio::Matrix::PSM::InstanceSite;
ok(1);
my %params=(-seq=>'TATAAT',-id=>"TATAbox1", -accession_number=>'ENSG00000122304', -mid=>'TB1',
-desc=>'TATA box, experimentally verified in PRM1 gene',-relpos=>-35, -start=>1965);
ok my $instance=new Bio::Matrix::PSM::InstanceSite(%params);
ok $instance->seq, 'TATAAT';
ok $instance->subseq(1,3),'TAT';
ok $instance->accession_number, 'ENSG00000122304';
ok $instance->end(1999), 1999;
|
