1 #! /usr/bin/perl
3 # this exercises just the perl module .. not RRDtool as such ...
5 BEGIN { $| = 1; print "1..5\n"; }
6 END {
7 print "not ok 1\n" unless $loaded;
8 unlink "demo.rrd";
9 }
11 sub ok
12 {
13 $ok_count++;
14 my($what, $result) = @_ ;
15 print "not " unless $result;
16 print "ok $ok_count $what\n";
17 }
19 use RRDp;
21 $loaded = 1;
22 $ok_count = 1;
24 print "ok 1 module load\n";
26 ok("RRDp::start", RRDp::start "../../src/rrdtool" > 0);
28 $now=time();
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 );
32 $answer = RRDp::read;
33 ok("RRDp::cmd", -s "demo.rrd" );
35 RRDp::cmd qw(last demo.rrd);
36 $answer = RRDp::read;
38 ok("RRDp::read", $$answer =~ /$now/);
40 $status = RRDp::end;
42 ok("RRDp::end", $status == 0);