1
# -*-Perl-*- Test Harness script for Bioperl
2
# $Id: Mutation.t 15112 2008-12-08 18:12:38Z sendu $
10
test_begin(-tests => 19);
12
use_ok('Bio::LiveSeq::Mutation');
16
my $a = Bio::LiveSeq::Mutation->new();
46
is $a->prelabel, '57';
49
is $a->postlabel, '57';
52
is $a->lastlabel, '57';
55
$b = Bio::LiveSeq::Mutation->new('-seq'=>'AC',