# $Id: 32exported_function_interface.t 965 2007-03-01 19:11:23Z nicolaw $ chdir('t') if -d 't'; my $rrdfile = -d 't' ? 't/32test.rrd' : '32test.rrd'; unlink $rrdfile if -f $rrdfile; use strict; BEGIN { use Test::More; eval "use RRDs"; plan skip_all => "RRDs.pm *MUST* be installed!" if $@; plan tests => 12 if !$@; } use lib qw(./lib ../lib); use RRD::Simple 1.35 qw(:all); use vars qw($rra %retention_periods %scheme_graphs @schemes %graph_return); require 'answers.pl'; ok(create($rrdfile, bytesIn => 'GAUGE', bytesOut => 'GAUGE', faultsPerSec => 'COUNTER' ),'create'); my $updated = time(); ok(update($rrdfile, bytesIn => 10039, bytesOut => 389, faultsPerSec => 0.4 ),'update'); ok(last_update($rrdfile) - $updated < 5 && last_update($rrdfile), 'last_update'); ok(join(',',sort(sources($rrdfile))) eq 'bytesIn,bytesOut,faultsPerSec', 'sources'); ok(my $period = retention_period($rrdfile),'retention_period'); my $default_period = $RRD::Simple::VERSION >= 1.33 ? 'mrtg' : 'year'; ok(abs($retention_periods{$default_period} - $period) < 1000,'retention_period result'); SKIP: { my $deep = 0; eval { require Test::Deep; Test::Deep->import(); $deep = 1; }; if (!$deep || $@) { skip 'Test::Deep not available', 1; } my $info = info($rrdfile); cmp_deeply( $info->{rra}, $rra, "info rra", ); } (my $imgbasename = $rrdfile) =~ s/\.rrd$//; ok(graph($rrdfile,destination => './'),'graph'); # By default we only have up to a year to graph # for unless we specify the 3 year scheme, so # dont bother checking for a 3years graph image. for (qw(daily weekly monthly annual)) { my $img = "$imgbasename-$_.png"; ok(-f $img,"$img"); unlink $img if -f $img; } unlink $_ for glob('*.png'); unlink $rrdfile if -f $rrdfile; 1;