1
# -*-Perl-*- Test Harness script for Bioperl
2
# $Id: SearchIO_HitTableWriter.t 14995 2008-11-16 06:20:00Z cjfields $
10
test_begin(-tests => 8);
12
use_ok('Bio::SearchIO');
13
use_ok('Bio::SearchIO::Writer::HitTableWriter');
16
my ($searchio, $result, $hit, $hsp);
18
$searchio = Bio::SearchIO->new('-format' => 'blast',
19
'-file' => test_input_file('HUMBETGLOA.tblastx'));
21
$result = $searchio->next_result;
23
isa_ok($result,'Bio::Search::Result::ResultI');
24
$hit = $result->next_hit;
25
is($hit->accession, 'AE000479');
27
$hsp = $hit->next_hsp;
28
is($hit->hsp->bits,$hsp->bits);
29
isa_ok($hsp->get_aln,'Bio::Align::AlignI');
31
my $writer = Bio::SearchIO::Writer::HitTableWriter->new(
32
-columns => [qw(query_name
42
my $outfile = test_output_file();
43
my $out = Bio::SearchIO->new(-writer => $writer,
44
-file => ">$outfile");
45
$out->write_result($result, 1);
48
# tests checking file output?