bindings/perl-piped/t/base.t

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