30 lines
1.1 KiB
Perl
30 lines
1.1 KiB
Perl
#!/usr/bin/perl
|
|
|
|
use It;
|
|
use Test::More tests => 1;
|
|
use strict;
|
|
use JMX::Jmx4Perl::Request;
|
|
use JMX::Jmx4Perl;
|
|
use Data::Dumper;
|
|
|
|
my $jmx = new It(verbose => 0)->jmx4perl;
|
|
|
|
my $resp = $jmx->request(new JMX::Jmx4Perl::Request(AGENT_VERSION));
|
|
my $value = $resp->{value};
|
|
my $version_exp = $JMX::Jmx4Perl::VERSION;
|
|
my ($base,$ext) = ($1,$3) if $version_exp =~ /^([\d.]+)(_(\d+))?$/;
|
|
$base = $base . ".0" unless $base =~ /^\d+\.\d+\.\d+$/;
|
|
$version_exp = $base . ($ext ? ".M" . $ext : "");
|
|
my $agent_version = $value->{agent};
|
|
if ($agent_version =~ /(\d+)\.(\d+)\.(\d+)(-SNAPSHOT)?/) {
|
|
$agent_version = "$1.$2$3";
|
|
}
|
|
#ok($agent_version >= $version_exp,"Jolokia-version " . $value->{agent} . " >= Jmx4Perl Version " . $version_exp);
|
|
print "Agent-Version:\n";
|
|
print Dumper($value);
|
|
ok($value->{protocol} > 0,"Protocol version " . $value->{protocol});
|
|
#print Dumper(\@resps);
|
|
my $resp = $jmx->request(new JMX::Jmx4Perl::Request(READ,"java.lang:type=Runtime","SystemProperties"));
|
|
$value = $resp->{value};
|
|
print "Java: ",$value->{'java.version'}," (",$value->{'java.vendor'},")\n";
|