#-*-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;

