diff --git a/t/vm/45_vol_swap.t b/t/vm/45_vol_swap.t index 56d63d6ec..e844212a2 100644 --- a/t/vm/45_vol_swap.t +++ b/t/vm/45_vol_swap.t @@ -40,7 +40,7 @@ sub test_domain_with_swap { name => new_domain_name ,user => user_admin ); - is($clone->is_base,1); + is($clone->is_base,0); $clone2->start(user_admin); $clone2->shutdown_now(user_admin); diff --git a/t/vm/c10_copy.t b/t/vm/c10_copy.t index 28f9dfadd..4ae8d396e 100644 --- a/t/vm/c10_copy.t +++ b/t/vm/c10_copy.t @@ -156,6 +156,35 @@ sub test_copy_change_ram { $base->remove(user_admin); } +sub test_copy_req_nonbase { + my $vm_name = shift; + my $domain = create_domain($vm_name); + + my $name_copy = new_domain_name(); + + my $req; + eval { $req = Ravada::Request->clone( + id_domain => $domain->id + , name => $name_copy + , uid => user_admin->id + ); + }; + is($@,'') or return; + is($req->status(),'requested'); + rvd_back->_process_all_requests_dont_fork(); + is($req->status(),'done'); + is($req->error,''); + + my $copy = rvd_back->search_domain($name_copy); + ok($copy,"[$vm_name] Expecting domain $name_copy"); + + is($domain->is_base,1); + + $copy->remove(user_admin); + $domain->remove(user_admin); + +} + ##########################################################################3 clean(); @@ -182,6 +211,8 @@ for my $vm_name ('Void', 'KVM') { test_copy_request($vm_name); test_copy_change_ram($vm_name); + + test_copy_req_nonbase($vm_name); } }