38 lines
967 B
Perl
38 lines
967 B
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 =>0)->jmx4perl;
|
|
my ($ret,$content);
|
|
|
|
|
|
# ====================================================
|
|
# Relative value checks
|
|
my %s = (
|
|
":90" => [ 0, "OK" ],
|
|
"0.2:" => [ 0, "OK" ],
|
|
":0.2" => [ 1, "WARNING" ],
|
|
"81:82" => [ 1, "WARNING" ]
|
|
);
|
|
|
|
my @args = ();
|
|
|
|
for my $base (qw(MEMORY_HEAP_MAX java.lang:type=Memory/HeapMemoryUsage/max 1000000000)) {
|
|
push @args,"--alias MEMORY_HEAP_USED --base $base"
|
|
}
|
|
push @args,"--alias MEMORY_HEAP_USED --base-mbean java.lang:type=Memory --base-attribute=HeapMemoryUsage --base-path=max";
|
|
|
|
for my $arg (@args) {
|
|
for my $k (keys %s) {
|
|
($ret,$content) = exec_check_perl4jmx("$arg -w $k");
|
|
#print Dumper($ret,$content);
|
|
is($ret,$s{$k}->[0],"$arg -w $k : $ret");
|
|
ok($content =~ /^$s{$k}->[1]/,"$arg -w $k : " . $s{$k}->[1]);
|
|
}
|
|
}
|
|
|