From db55cbea9b49d84e8616164137d0f64a5928d3d0 Mon Sep 17 00:00:00 2001 From: Tobias Oetiker Date: Fri, 13 Jun 2014 11:02:44 +0200 Subject: [PATCH] actually do a test with the data --- bindings/perl-shared/t/callback.t | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/bindings/perl-shared/t/callback.t b/bindings/perl-shared/t/callback.t index fbc2961b..cc8e870c 100755 --- a/bindings/perl-shared/t/callback.t +++ b/bindings/perl-shared/t/callback.t @@ -3,7 +3,7 @@ use Data::Dumper; use FindBin; -BEGIN { $| = 1; print "1..1\n"; } +BEGIN { $| = 1; print "1..2\n"; } END { print "not ok 1\n" unless $loaded; unlink "demo.rrd"; @@ -54,9 +54,12 @@ my $result = RRDs::graphv "callback.png", "DEF:c=cb//:c:AVERAGE", "LINE:a#00b6e4:a", "LINE:b#10b634:b", - "LINE:c#503d14:c"; - + "LINE:c#503d14:c", + "VDEF:av=a,AVERAGE", + "PRINT:av:%lf"; + if (my $ERROR = RRDs::error) { die "RRD ERROR: $ERROR\n"; } +ok("callback",$result->{'print[0]'} eq '0.719267'); -- 2.47.2