# $Id: 33correct_spelling.t 965 2007-03-01 19:11:23Z nicolaw $
my $rrdfile = -d 't' ? 't/33test.rrd' : '33test.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 => 5 if !$@;
}
use lib qw(./lib ../lib);
use RRD::Simple 1.35 ();
ok(my $rrd = RRD::Simple->new(),'new');
ok($rrd->create($rrdfile, "year",
bytesIn => 'GAUGE',
bytesOut => 'GAUGE',
faultsPerSec => 'COUNTER'
),'create');
ok($rrd->update($rrdfile,
bytesIn => 10039,
bytesOut => 389,
faultsPerSec => 4
),'update');
#
# Updating a data source with incorrect case while perl
# warnings are enabled will cause a warning message to be
# printed. This might alarm people if it is output during
# the unit tests, so we will disable warnings for this
# part of the tests.
#
my $oldW = $^W; $^W = 0;
ok($rrd->update($rrdfile,time+1,
bytesIn => 11003,
BytesOUT => 201,
faultsPerSec => 2
),'update');
$^W = $oldW;
ok(join(',',sort $rrd->sources($rrdfile)) eq 'bytesIn,bytesOut,faultsPerSec',
'sources');
unlink $rrdfile if -f $rrdfile;
1;