Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
19 lines (13 sloc) 290 Bytes
# -*-Perl-*-
use Test;
use strict;
BEGIN {
use vars qw($NUMTESTS);
$NUMTESTS = 1;
plan tests => $NUMTESTS;
}
use Bio::Pedigree::Draw::PedPlot;
use Bio::Pedigree::Draw::PedPlot;
# get a Bio::Pedigree somehow
my $plotter = new Bio::Pedigree::Draw::PedPlot();
ok ($plotter);