pie.t

mrtg 监控,请认真阅读您的文件包然后写出其具体功能

use lib './t';
use strict;
use GIFgraph::pie;

$::WRITE = 0;
require 'ff.pl';

my @data = ( 
	["1st","2nd","3rd","4th","5th","6th"],
	[    1,    2,    5,    6,    3,  1.5],
);

my @opts = (
	{},
	{
		 'start_angle'	=> 90,
		'title' 		=> 'A pie chart',
		'label'			=> 'Just data',
	},
);

print "1..1\n";
($::WARN) && warn "\n";

foreach my $i (1)
{
	my $fn = 't/pie' . $i . '.gif';

	my $checkImage = get_test_data($fn);
	my $opts = $opts[$i];

	my $g = new GIFgraph::pie( );
	$g->set( %$opts );
	my $Image = $g->plot( \@data );

	print (($checkImage eq $Image ? "ok" : "not ok"). " $i\n");
	($::WARN) && warn (($checkImage eq $Image ? "ok" : "not ok"). " $i\n");

	write_file($fn, $Image) if ($::WRITE);
}