From: Tobias Oetiker <tobi@oetiker.ch>
Date: Fri, 13 Jun 2014 09:02:44 +0000 (+0200)
Subject: actually do a test with the data
X-Git-Tag: v1.5.0-rc1~76^2
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=refs%2Fpull%2F502%2Fhead;p=thirdparty%2Frrdtool-1.x.git

actually do a test with the data
---

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');