From 00185d206f37b6b8b9e8e97bf793453582475c9e Mon Sep 17 00:00:00 2001
From: Dietmar Maurer <dietmar@proxmox.com>
Date: Thu, 16 Jan 2014 12:45:58 +0100
Subject: [PATCH] add simple test script

---
 test.pl | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100755 test.pl

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);
-- 
2.39.2