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
|
# -*-Perl-*- Test Harness script for Bioperl
# $Id: SearchIO_HTMLWriter.t 14995 2008-11-16 06:20:00Z cjfields $
use strict;
BEGIN {
use Bio::Root::Test;
test_begin(-tests => 8);
use_ok('Bio::SearchIO');
use_ok('Bio::SearchIO::Writer::HTMLResultWriter');
}
my ($searchio, $result,$iter,$hit,$hsp);
$searchio = Bio::SearchIO->new('-format' => 'blast',
'-file' => test_input_file('HUMBETGLOA.tblastx'));
$result = $searchio->next_result;
isa_ok($result,'Bio::Search::Result::ResultI');
$hit = $result->next_hit;
is($hit->accession, 'AE000479');
is($hit->bits, 33.6);
$hsp = $hit->next_hsp;
is($hit->hsp->bits,$hsp->bits);
isa_ok($hsp->get_aln,'Bio::Align::AlignI');
my $outfile = test_output_file();
my $writerhtml = Bio::SearchIO::Writer::HTMLResultWriter->new();
my $outhtml = Bio::SearchIO->new(-writer => $writerhtml,
-file => ">$outfile");
$outhtml->write_result($result, 1);
ok(-s $outfile);
# tests checking HTML file output?
|
