jmx4perl/it/t/50_check_base.t
2017-10-31 14:38:28 +01:00

41 lines
1.3 KiB
Perl

use strict;
use warnings;
use Test::More qw(no_plan);
use Data::Dumper;
use It;
require "check_jmx4perl/base.pl";
my $jmx = It->new(verbose =>1)->jmx4perl;
my ($ret,$content);
# ====================================================
# Basic checks
my %s = (
":10000000000" => [ 0, "OK" ],
"0.2:" => [ 0, "OK" ],
":0.2" => [ 2, "CRITICAL" ],
"5:6" => [ 2, "CRITICAL" ]
);
for my $k (keys %s) {
($ret,$content) = exec_check_perl4jmx("--mbean java.lang:type=Memory --attribute HeapMemoryUsage",
"--path used -c $k");
#print Dumper($ret,$content);
is($ret,$s{$k}->[0],"Memory -c $k : $ret");
ok($content =~ /^$s{$k}->[1]/m,"Memory -c $k : " . $s{$k}->[1]);
}
# ====================================================
# Alias attribute checks
for my $k (keys %s) {
($ret,$content) = exec_check_perl4jmx("--alias MEMORY_HEAP_USED -c $k --method post");
#print Dumper($ret,$content);
is($ret,$s{$k}->[0],"MEMORY_HEAP_USED -c $k : $ret");
ok($content =~ /^$s{$k}->[1]/m,"MEMORY_HEAP_USED $k : " . $s{$k}->[1]);
}
($ret,$content) = exec_check_perl4jmx("--mbean java.lang:type=Memory --attribute HeapMemoryUsage --path used");
is($ret,0,"No warning and no critical is always success");
ok($content =~ /in range/,"Data has been povided");