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