← Back to branch summary

~ubuntu-branches/ubuntu/precise/bioperl/precise

« back to all changes in this revision

Viewing changes to t/SearchIO/Writer/GbrowseGFF.t

  • Committer: Bazaar Package Importer
  • Author(s): Ilya Barygin
  • Date: 2010-01-27 22:48:22 UTC
  • mfrom: (3.1.4 squeeze)
  • Revision ID: james.westby@ubuntu.com-20100127224822-ebot4qbrjxcv38au
Tags: 1.6.1-1ubuntu1
* Merge from Debian testing, remaining changes:
  - disable tests, they produce a FTBFS trying to access the network 
    during run.

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/SearchIO/Writer/GbrowseGFF.t
 
1
# -*-Perl-*- Test Harness script for Bioperl
 
2
# $Id: GbrowseGFF.t 16089 2009-09-15 21:34:07Z cjfields $
 
3
 
 
4
use strict;
 
5
 
 
6
BEGIN {     
 
7
    use lib '.';
 
8
    use Bio::Root::Test;
 
9
    
 
10
    test_begin(-tests => 4);
 
11
        
 
12
    use_ok('Bio::SearchIO');
 
13
}
 
14
 
 
15
my $in = Bio::SearchIO->new(-format => 'blast',
 
16
                            -file   => test_input_file('brassica_ATH.WUBLASTN'));
 
17
 
 
18
my $outfile = test_output_file();
 
19
 
 
20
my $out = Bio::SearchIO->new(-output_format  => 'GbrowseGFF',
 
21
                            -prefix => 'Sequence',
 
22
                            -output_cigar   => 1,
 
23
                            -output_signif  => 1,
 
24
                            -file           => ">$outfile");
 
25
ok($out);
 
26
while( my $r = $in->next_result ) {
 
27
    ok($out->write_result($r));
 
28
}
 
29
 
 
30
ok(-s $outfile);
 
31
 
 
32
# tests checking file output?