[Xen-devel] [PATCH RFC OSSTEST v1 07/12] ts-debian-di-install: Allow Di Version to come from runvars

[Ian Campbell <ian.campbell@xxxxxxxxxx>]

and following the lead of the suite arrange for a version selected
from the defaults to be written back to the runvars.

Signed-off-by: Ian Campbell <ian.campbell@xxxxxxxxxx>
---
 Osstest/Debian.pm    | 15 ++++++++++++++-
 ts-debian-di-install |  3 ++-
 2 files changed, 16 insertions(+), 2 deletions(-)

diff --git a/Osstest/Debian.pm b/Osstest/Debian.pm
index 93b0ad4..f236b41 100644
--- a/Osstest/Debian.pm
+++ b/Osstest/Debian.pm
@@ -35,7 +35,7 @@ BEGIN {
     @ISA         = qw(Exporter);
     @EXPORT      = qw(debian_boot_setup
                       debian_overlays
-                      debian_guest_suite
+                      debian_guest_suite debian_guest_diversion
                       %preseed_cmds
                       preseed_base
                       preseed_create
@@ -1352,4 +1352,17 @@ sub debian_guest_suite ($) {
     return $gho->{Suite};
 }
 
+sub debian_guest_diversion ($) {
+    my ($gho) = @_;
+
+    $gho->{DiVersion} //= guest_var($gho,'diversion',undef);
+
+    if (!$gho->{DiVersion}) {
+       $gho->{DiVersion} = $c{TftpDiVersion};
+       store_runvar("$gho->{Guest}_diversion", $gho->{DiVersion});
+    }
+
+    return $gho->{DiVersion};
+}
+
 1;
diff --git a/ts-debian-di-install b/ts-debian-di-install
index 9a513d3..9875bef 100755
--- a/ts-debian-di-install
+++ b/ts-debian-di-install
@@ -151,7 +151,8 @@ sub setup_netboot($$$)
        die if $r{ "$gho->{Guest}_netboot_kernel" }
        ||     $r{ "$gho->{Guest}_netboot_ramdisk" };
 
-       my $di_path = 
$c{TftpPath}.'/'.$ho->{Tftp}{DiBase}.'/'.${arch}.'/'.$c{TftpDiVersion}.'-'.$ho->{Suite};
+       my $di_path = $c{TftpPath}.'/'.$ho->{Tftp}{DiBase}.'/'.${arch}.'/'.\
+           debian_guest_diversion($ho).'-'.$ho->{Suite};
 
         if (${arch} =~ m/amd64|i386/) {
            $kernel = "$di_path/vmlinuz-xen";
-- 
2.6.1


_______________________________________________
Xen-devel mailing list
Xen-devel@xxxxxxxxxxxxx
http://lists.xen.org/xen-devel