From: Ian Jackson <ian.jackson@eu.citrix.com>
Date: Tue, 24 Sep 2019 12:24:36 +0000 (+0100)
Subject: TestSupport: Provide target_getfile_stash
X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=3cda4d98e947ff6d2a68adf0f9deedcb27958cc0;p=people%2Froyger%2Fosstest.git

TestSupport: Provide target_getfile_stash

No callers yet.

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

diff --git a/Osstest/TestSupport.pm b/Osstest/TestSupport.pm
index 896e275..6937b65 100644
--- a/Osstest/TestSupport.pm
+++ b/Osstest/TestSupport.pm
@@ -61,7 +61,7 @@ BEGIN {
                       target_cmd_inputfh_root sshuho
                       target_getfile target_getfile_root
                       target_putfile target_putfile_root
-		      target_getfile_root_stash
+		      target_getfile_stash target_getfile_root_stash
                       target_putfilecontents_stash
 		      target_putfilecontents_root_stash
                       target_put_guest_image target_editfile
@@ -573,6 +573,10 @@ sub target_getfile_something_stash ($$$$;$) {
     $tgf->($ho,$timeout,$rsrc,$lfile);
     return $lfile;
 }    
+sub target_getfile_stash ($$$;$) {
+    my ($ho,$timeout,$rsrc, $lleaf) = @_; # => full path of local file
+    &target_getfile_something_stash(\&target_getfile, @_);
+}
 sub target_getfile_root_stash ($$$;$) {
     my ($ho,$timeout,$rsrc, $lleaf) = @_; # => full path of local file
     &target_getfile_something_stash(\&target_getfile_root, @_);