23 lines
458 B
Perl
23 lines
458 B
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
use FindBin qw($Bin);
|
||
|
|
use lib qq($Bin/lib);
|
||
|
|
use Data::Dumper;
|
||
|
|
|
||
|
|
use Test::More tests => 6;
|
||
|
|
|
||
|
|
BEGIN { use_ok("JMX::Jmx4Perl::Alias"); }
|
||
|
|
|
||
|
|
# Check names
|
||
|
|
is(MEMORY_HEAP->name,"memory:heap","Name");
|
||
|
|
|
||
|
|
# Check by name
|
||
|
|
for $_ (qw(memory:heap:used MEMORY_HEAP_USED)) {
|
||
|
|
my $heap = JMX::Jmx4Perl::Alias->by_name($_);
|
||
|
|
ok(MEMORY_HEAP_USED == $heap,"Equality");
|
||
|
|
ok($heap->isa("JMX::Jmx4Perl::Alias::Object"),"isa");
|
||
|
|
}
|
||
|
|
|