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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
# -*-Perl-*-
## Bioperl Test Harness Script for Modules
## $Id: Mutation.t,v 1.4 2001/01/25 22:13:40 jason Exp $
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl test.t'
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 => 18;
}
use Bio::LiveSeq::Mutation;
my $a = Bio::LiveSeq::Mutation->new();
ok defined $a;
$a->seq('aaa');
ok $a->seq, 'aaa';
$a->seqori('ggg');
ok $a->seqori, 'ggg';
$a->pos(-4);
ok $a->pos, -4;
$a->pos(5);
ok $a->pos, 5;
ok ($a->len, 3);
$a->len(9);
ok ($a->len, 9);
$a->transpos(55);
ok $a->transpos, 55;
$a->issue(1);
ok $a->issue, 1;
$a->label(57);
ok $a->label, '57';
$a->prelabel(57);
ok $a->prelabel, '57';
$a->postlabel(57);
ok $a->postlabel, '57';
$a->lastlabel(57);
ok $a->lastlabel, '57';
#constuctor test
$b = Bio::LiveSeq::Mutation->new('-seq'=>'AC',
'-seqori' => 'GG',
'-pos' => 5,
'-len' => 2,
);
ok defined $b;
ok $b->seqori, 'GG';
ok $b->len, 2;
ok $b->seq, 'AC';
ok $b->pos, 5;
|
