[PATCH 2/3] Extend domain builder

[gstenzel@xxxxxxxxxxxxxxxxxx]

Extends domain builder with features like kernel and initrd command
line parameter etc which are used in subsequent patches

Signed-off-by: Gerhard Stenzel <gstenzel@xxxxxxxxxxxxxxxxxx>

Index: libvirt-tck/lib/Sys/Virt/TCK/DomainBuilder.pm
===================================================================
--- libvirt-tck.orig/lib/Sys/Virt/TCK/DomainBuilder.pm
+++ libvirt-tck/lib/Sys/Virt/TCK/DomainBuilder.pm
@@ -172,6 +172,34 @@ sub boot_init {
     return $self;
 }
 
+sub boot_cmdline {
+    my $self = shift;
+    my $cmdline = shift;
+
+    my $kernel = $self->{boot}->{kernel};
+    my $initrd = $self->{boot}->{initrd};
+
+    $self->{boot} = {
+	type => "kernel",
+	kernel => $kernel,
+	initrd => $initrd,
+	cmdline => $cmdline
+    };
+
+    return $self;
+}
+
+sub clear_kernel_initrd_cmdline {
+    my $self = shift;
+
+    $self->{boot} = {
+	type => "kernel",
+	kernel => "",
+	initrd => "",
+	cmdline => ""
+    };
+    return $self;
+}
 
 sub on_reboot {
     my $self = shift;
@@ -222,6 +250,12 @@ sub loader {
 }
 
 
+sub rmdisk {
+    my $self = shift;
+
+    return pop @{$self->{disks}};
+}
+
 sub disk {
     my $self = shift;
     my %params = @_;
@@ -235,6 +269,30 @@ sub disk {
     return $self;
 }
 
+sub interface {
+    my $self = shift;
+    my %params = @_;
+
+    die "type parameter is required" unless $params{type};
+    die "source parameter is required" unless $params{source};
+    die "model parameter is required" unless $params{model};
+
+    push @{$self->{interfaces}}, \%params;
+
+    return $self;
+}
+
+sub graphics {
+    my $self = shift;
+    my %params = @_;
+
+    die "type parameter is required" unless $params{type};
+
+    push @{$self->{graphics}}, \%params;
+
+    return $self;
+}
+
 
 sub filesystem {
     my $self = shift;
@@ -344,6 +402,36 @@ sub as_xml {
 		     dir => $fs->{dst});
 	$w->endTag("filesystem");
     }
+    foreach my $interface (@{$self->{interfaces}}) {
+	$w->startTag("interface",
+		     type => $interface->{type});
+
+	$w->emptyTag("mac",
+		     address =>  $interface->{mac});
+	$w->emptyTag("source",
+		     network => $interface->{source});
+	$w->emptyTag("model",
+		     type => $interface->{model});
+	if( $interface->{filterref}) {
+	    $w->emptyTag("filterref",
+			 filter => $interface->{filterref});
+	}
+	$w->endTag("interface");
+    }
+    foreach my $graphic (@{$self->{graphics}}) {
+	$w->startTag("graphics",
+		     type => $graphic->{type});
+
+	$w->emptyTag("port",
+		     port => $graphic->{port});
+	$w->emptyTag("autoport",
+		     autoport => $graphic->{autoport});
+	$w->emptyTag("listen",
+		     listen => $graphic->{listen});
+	$w->emptyTag("keymap",
+		     keymap => $graphic->{keymap});
+	$w->endTag("graphics");
+    }
     $w->emptyTag("console", type => "pty");
     $w->endTag("devices");
     $w->endTag("domain");

--
libvir-list mailing list
libvir-list@xxxxxxxxxx
https://www.redhat.com/mailman/listinfo/libvir-list