@@ -48,9 +48,9 @@ use Osstest::TestSupport;
tsreadconfig();
-die unless @ARGV==2;
-
-our ($action, $whhost) = @ARGV;
+die unless @ARGV>=2;
+our $action = shift @ARGV;
+our $whhost = shift @ARGV;
our $ho;
@@ -137,6 +137,7 @@ sub noop_if_playing () {
#---------- actions ----------
sub act_prealloc () {
+ die if @ARGV;
noop_if_playing();
compute_test_sharetype();
$ho = selecthost($whhost, undef, 1);
@@ -145,6 +146,7 @@ sub act_prealloc () {
}
sub act_start_test () {
+ die if @ARGV;
compute_test_sharetype();
$ho = selecthost($whhost);
return unless $ho->{Shared};
@@ -153,6 +155,7 @@ sub act_start_test () {
}
sub act_post_test_ok () {
+ die if @ARGV;
compute_test_sharetype();
$ho = selecthost($whhost);
return unless $ho->{Shared};