24 lines
784 B
Perl
24 lines
784 B
Perl
|
#!/usr/bin/perl
|
||
|
|
use Test::More;
|
||
|
|
use FindBin qw($Bin);
|
||
|
|
use Data::Dumper;
|
||
|
|
use JMX::Jmx4Perl::Config;
|
||
|
|
|
||
|
|
my $HAS_CONFIG_GENERAL;
|
||
|
|
BEGIN {
|
||
|
|
eval "use Config::General";
|
||
|
|
$HAS_CONFIG_GENERAL = $@ ? 0 : 1;
|
||
|
|
}
|
||
|
|
plan tests => $HAS_CONFIG_GENERAL ? 4 : 1;
|
||
|
|
$SIG{__WARN__} = sub { };
|
||
|
|
my $config = new JMX::Jmx4Perl::Config("$Bin/j4p_test.cfg");
|
||
|
|
if ($HAS_CONFIG_GENERAL) {
|
||
|
|
is(scalar(keys(%{$config->{server_config}})),2,"2 configuration entries read in");
|
||
|
|
ok($config->server_config_exists("jboss"),"JBoss configuration exists");
|
||
|
|
my $s = $config->get_server_config("weblogic");
|
||
|
|
is($s->{product},"Weblogic","Proper product found");
|
||
|
|
is(scalar(keys(%$s)),5,"Correct number of config elements");
|
||
|
|
} else {
|
||
|
|
ok(scalar(keys(%{$config->{config}})) == 0,"No config read in");
|
||
|
|
}
|