1# -*-Perl-*- Test Harness script for Bioperl
2# $Id: SearchIO_HTMLWriter.t 14995 2008-11-16 06:20:00Z cjfields $
3
4use strict;
5
6BEGIN {
7    use Bio::Root::Test;
8
9    test_begin(-tests => 8);
10
11    use_ok('Bio::SearchIO');
12    use_ok('Bio::SearchIO::Writer::TextResultWriter');
13}
14
15my ($searchio, $result,$iter,$hit,$hsp);
16
17$searchio = Bio::SearchIO->new('-format' => 'blast',
18                   '-file'   => test_input_file('HUMBETGLOA.tblastx'));
19
20$result = $searchio->next_result;
21
22isa_ok($result,'Bio::Search::Result::ResultI');
23$hit = $result->next_hit;
24is($hit->accession, 'AE000479');
25is($hit->bits, 33.6);
26$hsp = $hit->next_hsp;
27is($hit->hsp->bits,$hsp->bits);
28isa_ok($hsp->get_aln,'Bio::Align::AlignI');
29
30my $outfile = test_output_file();
31my $writertxt = Bio::SearchIO::Writer::TextResultWriter->new();
32my $outtxt = Bio::SearchIO->new(-writer => $writertxt,
33				 -file   => ">$outfile");
34$outtxt->write_result($result, 1);
35ok(-s $outfile);
36# tests checking Text file output?
37