bump version to 1.4.1

[librados2-perl.git] / test.pl

diff --git a/test.pl b/test.pl
index e194953e4dbce9c2e57996d93a8edc744544acc8..98c3da5032ca01989e5a4504a874e7b1e750a05c 100755 (executable)
--- a/test.pl
+++ b/test.pl
@@ -4,17 +4,19 @@ use lib '.';
 use strict;
 use warnings;
 use JSON;
+use PVE::RPCEnvironment;
 
 use Data::Dumper;
 
 use PVE::RADOS;
 
-print "TEST1\n";
+my $rpcenv = PVE::RPCEnvironment->init('cli');
+
 my $rados = PVE::RADOS::new();
-print "TEST2\n";
 
-my $res = $rados->mon_command({ prefix => 'mon dump', format => 'json' });
+my $res = $rados->mon_command({ prefix => 'get_command_descriptions'});
 print Dumper($res);
+
 $res = $rados->mon_command({ prefix => 'mon dump', format => 'json' });
 print Dumper($res);