use strict;
use Test::More;
use_ok 'GD::Graph::lines';
my $g = GD::Graph::lines->new();
$g->set(
x_tick_number => 'auto',
x_min_value => 100,
x_max_value => 800,
);
$g->set_legend('Thanks to Bob Rogers');
ok eval { $g->plot([
[map 100+$_*10, 1 .. 30],
[map rand() - 0.5, 1..30],
]) } or diag "error: ". ($g->error||$@);
done_testing();