* Add a command `forwardPort' to forward a TCP port on the host to a

  TCP port on the guest.  Useful during testing (e.g. to access a web
  server in the guest through a web browser on the host).

svn path=/nixos/trunk/; revision=26987

1 files changed, 10 insertions, 0 deletions

diff --git a/lib/test-driver/Machine.pm b/lib/test-driver/Machine.pm
index 919ab7c0764c..68b374c86aa7 100644
--- a/lib/test-driver/Machine.pm
+++ b/lib/test-driver/Machine.pm
@@ -519,4 +519,14 @@ sub sleep {
 }
 
 
+# Forward a TCP port on the host to a TCP port on the guest.  Useful
+# during interactive testing.
+sub forwardPort {
+    my ($self, $hostPort, $guestPort) = @_;
+    $hostPort = 8080 unless defined $hostPort;
+    $guestPort = 80 unless defined $guestPort;
+    $self->sendMonitorCommand("hostfwd_add tcp::$hostPort-:$guestPort");
+}
+
+
 1;