power: refuse to set power state for shared hosts

diff --git a/Osstest/TestSupport.pm b/Osstest/TestSupport.pm
index e3683691e0db99c539a59bd06cb55f8dd7f908ac..255bbe2bf1e593b25b98a129739058dd36092c93 100644 (file)
--- a/Osstest/TestSupport.pm
+++ b/Osstest/TestSupport.pm
@@ -633,6 +633,9 @@ sub power_cycle_time ($) {
 
 sub power_cycle ($) {
     my ($ho) = @_;
+    $mjobdb->host_check_allocated($ho);
+    die "refusing to set power state for host $ho->{Name} shared with others\n"
+       if $ho->{SharedOthers};
     power_state($ho, 0);
     sleep(power_cycle_time($ho));
     power_state($ho, 1);