view release on metacpan or  search on metacpan

t/svg.t  view on Meta::CPAN

use Test::More;

use Algorithm::Networksort;
use strict;
use warnings;

my $nw = nwsrt(inputs => 7, algorithm => "hibbard");
my $show_svg = 0;

eval "use Test::XML::Easy";
if ($@)
{
	plan skip_all => "Test::XML::Easy required for verifying SVG"
}
else
{
	plan tests => 2;
}

	#
	# Start with a simple network.
	#
	my $svg = $nw->graph_svg();

	is_well_formed_xml($svg, "Test with default SVG settings");
	diag($svg) if ($show_svg);

	#
	# Now create one that has the defaults changed.
	#
	$nw->title($nw->inputs . " input network using " . $nw->algorithm);

	$nw->colorsettings(
		background => 'grey',
		compbegin => 'red',
		compend => 'blue');

	$nw->graphsettings(
		vt_margin => 25,
		vt_sep => 16,
		indent => 8,
		hz_margin => 20,
		hz_sep => 16,
		inputradius => 0,
		inputline => 3,
		compline => 4);

	$svg = $nw->graph_svg();
	is_well_formed_xml($svg, "Test with defaults changed");

	diag($svg) if ($show_svg);