3 # this exercises just the perl module .. not RRDtool as such ...
5 BEGIN { $| = 1; print "1..5\n"; }
7 print "not ok 1\n" unless $loaded;
14 my($what, $result) = @_ ;
15 print "not " unless $result;
16 print "ok $ok_count $what\n";
24 print "ok 1 module load\n";
26 ok("RRDp::start", RRDp::start "../src/rrdtool" > 0);
29 RRDp::cmd qw(create demo.rrd --start ), $now, qw(--step 100 ),
30 qw( DS:in:GAUGE:100:U:U RRA:AVERAGE:0.5:1:10 );
33 ok("RRDp::cmd", -s "demo.rrd" );
35 RRDp::cmd qw(last demo.rrd);
38 ok("RRDp::read", $$answer =~ /$now/);
42 ok("RRDp::end", $status == 0);