[librados2-perl.git] / test.pl

#!/usr/bin/perl 

use lib '.';
use strict;
use warnings;
use JSON;

use Data::Dumper;

use PVE::RADOS;

print "TEST1\n";
my $rados = PVE::RADOS::new();
print "TEST2\n";

my $res = $rados->mon_command({ prefix => 'mon dump', format => 'json' });
print Dumper($res);
$res = $rados->mon_command({ prefix => 'mon dump', format => 'json' });
print Dumper($res);

my $stat = $rados->cluster_stat;
print Dumper($stat);
Commit	Line	Data
00185d20 DM	1	#!/usr/bin/perl
	2
	3	use lib '.';
	4	use strict;
	5	use warnings;
	6	use JSON;
	7
	8	use Data::Dumper;
	9
	10	use PVE::RADOS;
	11
	12	print "TEST1\n";
	13	my $rados = PVE::RADOS::new();
	14	print "TEST2\n";
	15
	16	my $res = $rados->mon_command({ prefix => 'mon dump', format => 'json' });
	17	print Dumper($res);
	18	$res = $rados->mon_command({ prefix => 'mon dump', format => 'json' });
	19	print Dumper($res);
	20
	21	my $stat = $rados->cluster_stat;
	22	print Dumper($stat);