TestSupport: Provide target_cmd_inputfh_root

No caller yet.

Signed-off-by: Ian Jackson <Ian.Jackson@eu.citrix.com>
Acked-by: Ian Campbell <ian.campbell@citrix.com>

diff --git a/Osstest/TestSupport.pm b/Osstest/TestSupport.pm
index 91829a0ac7b2da4af0a47f03316578cb9cc98ea8..3fc8e1590c0b2d78eca2a58a94df6d9654b4ac88 100644 (file)
--- a/Osstest/TestSupport.pm
+++ b/Osstest/TestSupport.pm
@@ -50,6 +50,7 @@ BEGIN {
 
                       target_cmd_root target_cmd target_cmd_build
                       target_cmd_output_root target_cmd_output
+                      target_cmd_inputfh_root
                       target_getfile target_getfile_root
                       target_putfile target_putfile_root
                       target_putfilecontents_stash
@@ -655,6 +656,11 @@ sub tcmdout {
 sub target_cmd_output ($$;$) { tcmdout('osstest',@_); }
 sub target_cmd_output_root ($$;$) { tcmdout('root',@_); }
 
+sub target_cmd_inputfh_root ($$$;$$) {
+    my ($tho,$stdinfh,$tcmd,@rest) = @_;
+    tcmd($stdinfh,undef,'root',$tho,$tcmd,@rest);
+}
+
 sub poll_loop ($$$&) {
     my ($maxwait, $interval, $what, $code) = @_;
     # $code should return undef when all is well