[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index] [Xen-devel] [PATCH 04/27] Osstest/TestSupport.pm: Introduce target_getfile_[root_]stash()
From: Dario Faggioli <raistlin@xxxxxxxx> As an analogue to target_putfilecontents_[root_]stash(). (While at it, fix one whitespace damaged line.) Signed-off-by: Dario Faggioli <dario.faggioli@xxxxxxxxxx> Cc: Wei Liu <wei.liu2@xxxxxxxxxx> Cc: Ian Campbell <Ian.Campbell@xxxxxxxxxx> Cc: Ian Jackson <Ian.Jackson@xxxxxxxxxxxxx> --- Changes from RFCv1: * adding this was requested during review. --- Osstest/TestSupport.pm | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) diff --git a/Osstest/TestSupport.pm b/Osstest/TestSupport.pm index cdff8d5..67befd0 100644 --- a/Osstest/TestSupport.pm +++ b/Osstest/TestSupport.pm @@ -53,7 +53,8 @@ BEGIN { target_getfile target_getfile_root target_putfile target_putfile_root target_putfilecontents_stash - target_putfilecontents_root_stash + target_putfilecontents_root_stash + target_getfile_stash target_getfile_root_stash target_put_guest_image target_editfile target_editfile_root target_file_exists target_run_apt @@ -473,6 +474,20 @@ sub target_putfilecontents_root_stash ($$$$;$) { tpfcs_core(\&target_putfile_root, @_); } +sub tgfs_core { + my ($tgetfilef,$ho,$timeout,$rsrc,$lleaf) = @_; + target_somefile_getleaf(\$lleaf,$rsrc,$ho); + $tgetfilef->($ho, $timeout, $rsrc, "$stash/$lleaf"); +} +sub target_getfile_stash ($$$;$) { + my ($ho,$timeout,$rsrc,$lleaf) = @_; + tgfs_core(\&target_getfile, @_); +} +sub target_getfile_root_stash ($$$;$) { + my ($ho,$timeout,$rsrc,$lleaf) = @_; + tgfs_core(\&target_getfile_root, @_); +} + sub target_file_exists ($$) { my ($ho,$rfile) = @_; my $out= target_cmd_output($ho, "if test -e $rfile; then echo y; fi"); _______________________________________________ Xen-devel mailing list Xen-devel@xxxxxxxxxxxxx http://lists.xen.org/xen-devel
|
Lists.xenproject.org is hosted with RackSpace, monitoring our |