From: Dietmar Maurer <dietmar@proxmox.com>
Date: Thu, 16 Jan 2014 11:45:58 +0000 (+0100)
Subject: add simple test script
X-Git-Url: https://git.proxmox.com/?p=librados2-perl.git;a=commitdiff_plain;h=00185d206f37b6b8b9e8e97bf793453582475c9e

add simple test script
---

diff --git a/test.pl b/test.pl
new file mode 100755
index 0000000..e194953
--- /dev/null
+++ b/test.pl
@@ -0,0 +1,22 @@
+#!/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);