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
|
#-*-Perl-*-
## Bioperl Test Harness Script for Modules
# 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;
use ExtUtils::MakeMaker;
use constant TEST_COUNT => 18;
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 test => TEST_COUNT;
}
use Bio::SCF;
# object-oriented interface
my $scf = Bio::SCF->new('./test.scf');
ok($scf);
ok($scf->bases_length,1525);
ok($scf->samples_length,18610);
ok($scf->base(10),'C');
ok($scf->score(10),6);
ok($scf->index(10),151);
ok($scf->base_score('C',10),6);
ok($scf->sample('C',10)>$scf->sample('G',10));
ok($scf->write('./temp.scf'));
ok(-S './temp.scf',-S './test.scf');
# tied interface
my %h;
tie %h,'Bio::SCF','./test.scf';
ok(tied %h);
ok($h{bases_length},1525);
ok($h{bases_length},scalar @{$h{bases}});
ok($h{samples_length},18610);
ok($h{bases}[10],'C');
ok($h{C}[10],6);
ok($h{index}[10],151);
ok($h{samples}{C}[10]>$h{samples}{G}[10]);
|
