Commit 7c19ce88 authored by Francesc Guasch's avatar Francesc Guasch
Browse files

test: check import base

parent 4ef0dba8
use warnings;
use strict;
use Carp qw(confess);
use Test::More;
use lib 't/lib';
use Test::Ravada;
no warnings "experimental::signatures";
use feature qw(signatures);
init();
clean();
my $base = "zz-test-base";
sub _set_no_password() {
my $sth = connector->dbh->prepare("UPDATE networks set requires_password=0");
}
for my $vm_name ( 'KVM' ) {
_set_no_password();
my $domain = import_domain($vm_name);
is($domain->is_base,1);
my $clone = $domain->clone(
user => user_admin
,name => new_domain_name
);
is($clone->id_base,$domain->id);
$clone->start(user_admin);
}
end();
done_testing();
Supports Markdown
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