projects
/
webservice-scaleway.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
d06a69a
)
Make t/real.t clean up after itself properly
author
Marius Gavrilescu
<marius@ieval.ro>
Mon, 21 Sep 2015 17:29:57 +0000
(20:29 +0300)
committer
Marius Gavrilescu
<marius@ieval.ro>
Mon, 21 Sep 2015 17:34:27 +0000
(20:34 +0300)
t/real.t
patch
|
blob
|
blame
|
history
diff --git
a/t/real.t
b/t/real.t
index 07b9d2c07e29c6b736d1d3774087f8d98385b0eb..29df623fb4faea6fb9a69e2723b3d7f603d8be19 100644
(file)
--- a/
t/real.t
+++ b/
t/real.t
@@
-34,7
+34,7
@@
my @vols = $sw->volumes;
ok grep ({$_->name eq $vol->name} @vols), 'list_volumes';
my ($debian) = grep { $_->name =~ /debian jessie/i } $sw->images;
ok grep ({$_->name eq $vol->name} @vols), 'list_volumes';
my ($debian) = grep { $_->name =~ /debian jessie/i } $sw->images;
-my $srv = $sw->create_server('mysrv', $org, $debian, {1 =>
{%$vol}
});
+my $srv = $sw->create_server('mysrv', $org, $debian, {1 =>
$vol->id
});
note "Created new server $srv with name ", $srv->name;
is $sw->server($srv)->name, $srv->name, 'get_server';
$srv->{name} = 'testsrv';
note "Created new server $srv with name ", $srv->name;
is $sw->server($srv)->name, $srv->name, 'get_server';
$srv->{name} = 'testsrv';
@@
-52,8
+52,7
@@
note "This server can: ", join ' ', $sw->server_actions($srv);
#$sw->update_snapshot($snp);
#is $sw->snapshot($snp)->name, $snp->name, 'update_snapshot';
#$sw->update_snapshot($snp);
#is $sw->snapshot($snp)->name, $snp->name, 'update_snapshot';
-sleep 20;
-
+@vols = map { $_->{id} } values %{$srv->volumes};
$sw->delete_server($srv);
$sw->delete_ip($ip);
$sw->delete_server($srv);
$sw->delete_ip($ip);
-$sw->delete_volume($
vol)
;
+$sw->delete_volume($
_) for @vols
;
This page took
0.010864 seconds
and
4
git commands to generate.