From: Ian Jackson <ian.jackson@eu.citrix.com>
Date: Wed, 20 Nov 2013 11:56:05 +0000 (+0000)
Subject: more_prepareguest_hvm: honour xopt NoCdromImage
X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=b9d18bf739ffaffae5482500ffbf8873fdb5a4ba;p=people%2Fdariof%2Fosstest.git

more_prepareguest_hvm: honour xopt NoCdromImage

Signed-off-by: Ian Jackson <ian.jackson@eu.citrix.com>
---

diff --git a/Osstest/TestSupport.pm b/Osstest/TestSupport.pm
index a9cdc9c..0381fd8 100644
--- a/Osstest/TestSupport.pm
+++ b/Osstest/TestSupport.pm
@@ -1368,24 +1368,30 @@ sub more_prepareguest_hvm ($$$$;@) {
     my $passwd= 'xenvnc';
 
     prepareguest_part_lvmdisk($ho, $gho, $disk_mb);
-    
-    my $specimage= $r{"$gho->{Guest}_image"};
-    die "$gho->{Guest} ?" unless $specimage;
-    my $limage= $specimage =~ m,^/, ? $specimage : "$c{Images}/$specimage";
-    $gho->{Rimage}= "/root/$flight.$job.".basename($specimage);
-    target_putfile_root($ho, 1000, $limage,$gho->{Rimage}, '-p');
 
-    my $postimage_hook= $xopts{PostImageHook};
-    $postimage_hook->() if $postimage_hook;
+    my @disks = "phy:$gho->{Lvdev},hda,w";
+
+    if (!$xopts{NoCdromImage}) {
+	my $specimage= $r{"$gho->{Guest}_image"};
+	die "$gho->{Guest} ?" unless $specimage;
+	my $limage= $specimage =~ m,^/, ? $specimage : "$c{Images}/$specimage";
+	$gho->{Rimage}= "/root/$flight.$job.".basename($specimage);
+	target_putfile_root($ho, 1000, $limage,$gho->{Rimage}, '-p');
+
+	my $postimage_hook= $xopts{PostImageHook};
+	$postimage_hook->() if $postimage_hook;
+
+	push @disks, "file:$gho->{Rimage},hdc:cdrom,r";
+    }
+    my $disks = join ",\t\t\n", map { "'$_'" } @disks;
 
     my $cfg = <<END;
 kernel      = 'hvmloader'
 builder     = 'hvm'
 #
 disk        = [
-            'phy:$gho->{Lvdev},hda,w',
-            'file:$gho->{Rimage},hdc:cdrom,r'
-            ]
+		$disks
+	      ]
 #
 usb=1
 usbdevice='tablet'