view release on metacpan or  search on metacpan

t/borders.t  view on Meta::CPAN

}


sub add_tracks
{
	my $panel = shift;
	
	# ruler
	can_ok($panel, qw(add_track));
	$panel->add_track(
		Bio::Graphics::Feature->new(-start => $gene_minus->start-100, -end => $gene_minus->end),
		-glyph  => 'arrow',
		-bump   => 0,
		-double => 1,
		-tick   => 2
	);
	ok(1, 'ruler made');
	
	$panel->add_track
	(
		$gene_minus,
		-glyph => 'decorated_gene',
		-description => sub { "default border"},
		-decoration_visible => 1,	
		-height => 12,
		-decoration_color		=> 'white',
		-decoration_border       => 1, #default is solid
		-decoration_border_color => '' #default is black
	);
	ok(1, 'track1 added');
	
	$panel->add_track
	(
		$gene_minus,
		-description => sub { "red dashed border"},
		-glyph => 'decorated_gene',
		-decoration_visible => 1,	
		-height => 12,
		-decoration_color		=> 'white',
		-decoration_border       => 'dashed', #dashed looks solid
		-decoration_border_color => 'red'
	);
	ok(1, 'track2 added');
	
	$panel->add_track
	(
		$gene_minus,
		-description => sub { "red solid border"},
		-glyph => 'decorated_gene',
		-decoration_visible => 1,	
		-height => 12,
		-decoration_color		=> 'white',
		-decoration_border       => 'solid', 
		-decoration_border_color => 'red'
	);
	ok(1, 'track3 added');
	
	$panel->add_track
	(
		$gene_minus,
		-description => sub { "transparent red border"},
		-glyph => 'decorated_gene',
		-decoration_visible => 1,	
		-height => 12,
		-decoration_color		=> 'transparent', #special colour to make outlines
		-decoration_border       => 'solid', 
		-decoration_border_color => 'red'
	);
	ok(1, 'track4 added');
	
	$panel->add_track
	(
		$gene_minus,
		-description => sub { "border as callback"},
		-glyph => 'decorated_gene',
		-decoration_visible => 1,	
		-height => 12,
		-decoration_color		=> 'white',
		-decoration_border       => sub { 
				my ($feature, $option_name, $part_no, $total_parts, $glyph) = @_;	
				return 'solid' if ($glyph->active_decoration->name eq "TM");
				return 'dashed' if ($glyph->active_decoration->type eq "SignalP4");
				return '1';
		},
		-decoration_border_color => sub { 
				my ($feature, $option_name, $part_no, $total_parts, $glyph) = @_;	
				return 'blue' if ($glyph->active_decoration->name eq "TM");
				return 'red' if ($glyph->active_decoration->type eq "SignalP4");
				return '';
		},
	);
	ok(1, 'track5 added');
};

# write image
my $png = $panel->png;
is($png,$panel->png,'png created');
my $imgfile = "t/data/borders.png";
system("rm $imgfile") if (-e $imgfile);
open(IMG,">$imgfile") or die "could not write to file $imgfile";
print IMG $png;
close(IMG);
ok(-e $imgfile, 'imgfile created');
my $filesize = -s $imgfile;
isnt($filesize,0, 'check nonzero filesize');

SKIP: {
    eval{ require GD::SVG };
    skip "GD::SVG not installed", 2 if $@;

	my $svg = $panel2->svg;
	#is($svg,$panel2->svg,'svg created');
	my $svgfile = "t/data/borders.svg";
	system("rm $svgfile") if (-e $svgfile);
	open(IMG,">$svgfile") or die "could not write to file $svgfile";
	print IMG $svg;
	close(IMG);
	ok(-e $svgfile, 'svgfile created');
	$filesize = -s $svgfile;
	isnt($filesize,0, 'check nonzero filesize');
}