ts-unixbench-run: kick off the benchmark on the target

by simply running it, as it requires.

There is a runvar called 'unixbench_params', for specifying
the arguments.

Signed-off-by: Dario Faggioli <dario.faggioli@citrix.com>

diff --git a/ts-unixbench-run b/ts-unixbench-run
new file mode 100755 (executable)
index 0000000..dc81a73
--- /dev/null
+++ b/ts-unixbench-run
@@ -0,0 +1,45 @@
+#!/usr/bin/perl -w
+# This is part of "osstest", an automated testing framework for Xen.
+# Copyright (C) 2009-2013 Citrix Inc.
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+use strict qw(vars);
+use DBI;
+use Osstest;
+use Osstest::TestSupport;
+
+tsreadconfig();
+
+# what we expect as argument list is:
+#  host=<somehost> [<someguest>]
+our $ho= selecthost($ARGV[0]); shift @ARGV;
+our $gho= $ho;
+if ( (0+@ARGV) == 1) {
+  $gho= selectguest($ARGV[0], $ho);
+  my $err= guest_check_ip($gho);
+  die "$err $gho->{Name}" if defined $err;
+}
+
+my $args= $r{ 'unixbench_params' };
+
+logm("Run unixbench with following parameters: $args");
+
+# XXX Arbitrary timeout...
+target_cmd_root($gho, <<END, 20000);
+        set -ex
+        cd /root/unixbench/
+        rm -rf results/*
+        time ./Run $args
+END