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 896e275e8bdb101bc46e7e077a84c12c5715d854..6937b65d57485e1ba2e65d9b77a7e603770bbd91 100644 (file)
--- 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, @_);