1use strict; 2 3use Test::More; 4 5use SVG::Graph; 6use SVG::Graph::Data::Datum; 7 8my $graph = SVG::Graph->new( width => 600, height => 600, margin => 30 ); 9 10my $group = $graph->add_frame(); 11 12my $xval = 1; 13my $yval = 1; 14my $zval = 1; 15 16my @d = (); 17for ( 1 .. 20 ) { 18 push @d, 19 SVG::Graph::Data::Datum->new( 20 x => $xval++, 21 y => $yval++, 22 z => $zval++ 23 ); 24 $xval = $xval % 2; 25 $yval = $yval % 3; 26 $zval = $zval % 4; 27} 28 29 30my $data = SVG::Graph::Data->new( data => \@d ); 31 32$group->add_data($data); 33 34$group->add_glyph('bubble'); 35 36ok($graph->draw()); 37 38done_testing(); 39