Commit f05a97fc authored by Francesc Guasch's avatar Francesc Guasch
Browse files

test(grants: remove clones

issue #700
parent 82b6c778
......@@ -42,6 +42,8 @@ our $CONT_POOL= 0;
our $USER_ADMIN;
our $CHAIN = 'RAVADA';
our $RVD_BACK;
our %ARG_CREATE_DOM = (
KVM => []
,Void => []
......@@ -122,6 +124,8 @@ sub new_pool_name {
sub rvd_back {
my ($connector, $config) = @_;
return $RVD_BACK if $RVD_BACK && !$connector && !$config;
init($connector,$config,0) if $connector;
my $rvd = Ravada->new(
......@@ -133,6 +137,7 @@ sub rvd_back {
$ARG_CREATE_DOM{KVM} = [ id_iso => search_id_iso('Alpine') ];
$RVD_BACK = $rvd;
return $rvd;
}
......@@ -157,6 +162,7 @@ sub init {
$Ravada::Domain::MIN_FREE_MEMORY = 512*1024;
rvd_back() if !$RVD_BACK;
}
sub _remove_old_domains_vm {
......
......@@ -20,7 +20,6 @@ use_ok('Ravada');
my @VMS = vm_names();
init($test->connector);
rvd_back();
#########################################################3
sub test_defaults {
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment