← Back to branch summary

~ubuntu-branches/ubuntu/raring/bioperl/raring

« back to all changes in this revision

Viewing changes to t/BioGraphics.t

  • Committer: Bazaar Package Importer
  • Author(s): Charles Plessy
  • Date: 2008-03-18 14:44:57 UTC
  • mfrom: (4 hardy)
  • mto: This revision was merged to the branch mainline in revision 6.
  • Revision ID: james.westby@ubuntu.com-20080318144457-1jjoztrvqwf0gruk
http://bugs.debian.org/448890
* debian/control:
  - Removed MIA Matt Hope (dopey) from the Uploaders field.
    Thank you for your work, Matt. I hope you are doing well.
  - Downgraded some recommended package to the 'Suggests' priority,
    according to the following discussion on Upstream's mail list.
    http://bioperl.org/pipermail/bioperl-l/2008-March/027379.html
    (Closes: #448890)
* debian/copyright converted to machine-readable format.

Show diffs side-by-side

added added

removed removed

Lines of Context:
t/BioGraphics.t
1
1
# This is -*-Perl-*- code
2
2
## Bioperl Test Harness Script for Modules
3
3
##
4
 
# $Id: BioGraphics.t,v 1.14 2003/11/15 19:12:09 lstein Exp $
 
4
# $Id: BioGraphics.t,v 1.17.4.2 2006/11/30 09:24:00 sendu Exp $
5
5
 
6
6
# Before `make install' is performed this script should be runnable with
7
7
# `make test'. After `make install' it should work as `perl test.t'
9
9
use strict;
10
10
use vars qw($NUMTESTS $DEBUG);
11
11
 
12
 
use lib '..','.','./blib/lib';
13
 
use constant IMAGES => './t/data/biographics';
14
 
use constant FILES  => './t/data/biographics';
 
12
use File::Spec;
 
13
use constant IMAGES => File::Spec->catfile(qw(t data biographics));
 
14
use constant FILES => File::Spec->catfile(qw(t data biographics));
15
15
use constant IMAGE_TESTS => 0;
16
16
 
17
17
my $error;
31
31
    plan tests => $NUMTESTS;
32
32
 
33
33
    eval {
34
 
        require GD;
 
34
        require GD;
35
35
        require Text::Shellwords;
36
 
        require Bio::Graphics::FeatureFile;
37
 
        require Bio::Graphics;
38
36
    };
39
37
    if( $@ ) {
40
38
        print STDERR "GD or Text::Shellwords modules are not installed. This means that Bio::Graphics module is unusable. Skipping tests.\n";
41
39
      $error = 1;
42
40
    }
 
41
 
 
42
    require Bio::Graphics::FeatureFile;
 
43
    require Bio::Graphics;
43
44
}
44
45
 
45
 
exit 0 if $error;
46
 
 
47
46
END { 
48
47
    foreach ( $Test::ntest..$NUMTESTS) {
49
48
        skip('unable to run all of the Bio::Graphics tests',1);
50
49
    }
51
50
}
52
51
 
 
52
exit 0 if $error;
 
53
 
53
54
my $verbose = -1;
54
55
my $write   = 0;
55
56