Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
Projets publics
Ravada-Mirror
Commits
2a8de0ab
Commit
2a8de0ab
authored
Jun 19, 2019
by
Francesc Guasch
Browse files
test(volatile): check clone with different public IP
Successfully reproduced problem reported by @rogerferre issue #1099
parent
c203689e
Changes
1
Hide whitespace changes
Inline
Side-by-side
t/vm/v20_volatile_clones.t
View file @
2a8de0ab
...
...
@@ -357,6 +357,32 @@ sub test_old_machine_req {
$domain
->
remove
(
user_admin
);
}
sub
test_ips
{
my
$vm
=
shift
;
my
$domain
=
create_domain
(
$vm
);
$domain
->
volatile_clones
(
1
);
my
$public_ip
=
$vm
->
_data
('
public_ip
');
my
$out
=
`
ip -4 -o a
`;
my
@ip
;
for
my
$line
(
split
/\n/
,
$out
)
{
my
(
$if
,
$ip
)
=
$line
=~
/\s(\w+)\s+inet\s+(\d+\.\d+\.\d+\.\d+)/
;
push
@ip
,(
$ip
)
if
$if
!~
/^virbr/
;
}
for
my
$ip
(
@ip
)
{
$vm
->
_data
('
public_ip
',
$ip
);
my
$clone
=
$domain
->
clone
(
name
=>
new_domain_name
,
user
=>
user_admin
);
like
(
$clone
->
display
(
user_admin
),
qr(^spice://$ip)
);
$clone
->
remove
(
user_admin
);
}
$domain
->
remove
(
user_admin
);
}
######################################################################3
clean
();
...
...
@@ -373,6 +399,8 @@ for my $vm_name ( vm_names() ) {
skip
(
$msg
,
10
)
if
!
$vm
;
diag
("
Testing volatile clones for
$vm_name
");
test_ips
(
$vm
);
test_volatile_clone_req
(
$vm
);
test_volatile_clone
(
$vm
);
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment