[libvirt] [PATCH tck 3/5] Add DomainBuilder->rminterface function.
From: Cédric Bosdonnat <cedric.bosdonnat(a)free.fr>
---
lib/Sys/Virt/TCK/DomainBuilder.pm | 7 +++++++
1 file changed, 7 insertions(+)
diff --git a/lib/Sys/Virt/TCK/DomainBuilder.pm b/lib/Sys/Virt/TCK/DomainBuilder.pm
index 7a20008..e9453ee 100644
--- a/lib/Sys/Virt/TCK/DomainBuilder.pm
+++ b/lib/Sys/Virt/TCK/DomainBuilder.pm
@@ -271,6 +271,13 @@ sub disk {
return $self;
}
+
+sub rminterface {
+ my $self = shift;
+
+ return pop @{$self->{interfaces}};
+}
+
sub interface {
my $self = shift;
my %params = @_;
--
2.1.4