[Xen-devel] [OSSTEST PATCH 02/26] power: Osstest::PDU::*: use parent ::unsupported

[Ian Jackson <ian.jackson@xxxxxxxxxxxxx>]

This will allow us to introduce default methods, which everyone
inherits unless overridden.  These changes are all textually
identical.

We will do ipmi_try in a moment: that one is special as it actually
has a parent module.

Signed-off-by: Ian Jackson <ian.jackson@xxxxxxxxxxxxx>
---
 Osstest/PDU/eth008.pm    | 2 ++
 Osstest/PDU/guest.pm     | 2 ++
 Osstest/PDU/ipmi.pm      | 2 ++
 Osstest/PDU/ipmi_try.pm  | 2 ++
 Osstest/PDU/ipmiextra.pm | 2 ++
 Osstest/PDU/manual.pm    | 2 ++
 Osstest/PDU/msw.pm       | 2 ++
 Osstest/PDU/pause.pm     | 2 ++
 Osstest/PDU/statedb.pm   | 2 ++
 Osstest/PDU/xenuse.pm    | 2 ++
 10 files changed, 20 insertions(+)

diff --git a/Osstest/PDU/eth008.pm b/Osstest/PDU/eth008.pm
index bd57edbb..61eb420a 100644
--- a/Osstest/PDU/eth008.pm
+++ b/Osstest/PDU/eth008.pm
@@ -23,6 +23,8 @@ use Osstest;
 use Osstest::TestSupport;
 use LWP::UserAgent;
 
+use parent qw(Osstest::PDU::unsupported);
+
 sub new {
     my ($class, $ho, $methname, $pdu, $user, $pass, $port, @opts) = @_;
     return bless { Host => $ho,
diff --git a/Osstest/PDU/guest.pm b/Osstest/PDU/guest.pm
index 61d9dcd5..779ba6c2 100755
--- a/Osstest/PDU/guest.pm
+++ b/Osstest/PDU/guest.pm
@@ -25,6 +25,8 @@ use Osstest;
 use Osstest::TestSupport;
 use IO::File;
 
+use parent qw(Osstest::PDU::unsupported);
+
 sub new {
     my ($class, $ho) = @_;
     return bless { Target => $ho }, $class;
diff --git a/Osstest/PDU/ipmi.pm b/Osstest/PDU/ipmi.pm
index ceb4cf03..98e8957f 100644
--- a/Osstest/PDU/ipmi.pm
+++ b/Osstest/PDU/ipmi.pm
@@ -23,6 +23,8 @@ use Osstest;
 use Osstest::TestSupport;
 use IO::File;
 
+use parent qw(Osstest::PDU::unsupported);
+
 sub new {
     my ($class, $ho, $methname, $mgmt, $user, $pass, @opts) = @_;
     $user ||= get_host_property($ho, 'IpmiUser') || 'ADMIN';
diff --git a/Osstest/PDU/ipmi_try.pm b/Osstest/PDU/ipmi_try.pm
index 172f4ec5..64b43dd2 100644
--- a/Osstest/PDU/ipmi_try.pm
+++ b/Osstest/PDU/ipmi_try.pm
@@ -24,6 +24,8 @@ use Osstest::TestSupport;
 use IO::File;
 use Osstest::PDU::ipmi;
 
+use parent Osstest::PDU::unsupported;
+
 BEGIN {
     use Exporter ();
     our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
diff --git a/Osstest/PDU/ipmiextra.pm b/Osstest/PDU/ipmiextra.pm
index d4515e34..b17f6320 100644
--- a/Osstest/PDU/ipmiextra.pm
+++ b/Osstest/PDU/ipmiextra.pm
@@ -23,6 +23,8 @@ use Osstest;
 use Osstest::TestSupport;
 use IO::File;
 
+use parent qw(Osstest::PDU::unsupported);
+
 sub new {
     my ($class, $ho, $methname, $when, $mgmt, $user, $pass, @opts) = @_;
     return bless { Host => $ho,
diff --git a/Osstest/PDU/manual.pm b/Osstest/PDU/manual.pm
index 28d0b8a1..78f24db9 100644
--- a/Osstest/PDU/manual.pm
+++ b/Osstest/PDU/manual.pm
@@ -23,6 +23,8 @@ use warnings;
 use Osstest;
 use IO::File;
 
+use parent qw(Osstest::PDU::unsupported);
+
 our $tty;
 
 sub new {
diff --git a/Osstest/PDU/msw.pm b/Osstest/PDU/msw.pm
index 1645b5f6..19d9f56b 100644
--- a/Osstest/PDU/msw.pm
+++ b/Osstest/PDU/msw.pm
@@ -22,6 +22,8 @@ use warnings;
 
 use Osstest;
 
+use parent qw(Osstest::PDU::unsupported);
+
 sub new {
     my ($class, $ho, $methname, @args) = @_;
 
diff --git a/Osstest/PDU/pause.pm b/Osstest/PDU/pause.pm
index aaa77c30..33327d47 100644
--- a/Osstest/PDU/pause.pm
+++ b/Osstest/PDU/pause.pm
@@ -23,6 +23,8 @@ use Osstest;
 use Osstest::TestSupport;
 use IO::File;
 
+use parent qw(Osstest::PDU::unsupported);
+
 sub new {
     my ($class, $ho, $methname, $on, $off) = @_;
     if (!defined $on) {
diff --git a/Osstest/PDU/statedb.pm b/Osstest/PDU/statedb.pm
index 1c9d16e0..0a445b1b 100644
--- a/Osstest/PDU/statedb.pm
+++ b/Osstest/PDU/statedb.pm
@@ -24,6 +24,8 @@ use Osstest;
 use Osstest::Executive;
 use Osstest::TestSupport;
 
+use parent qw(Osstest::PDU::unsupported);
+
 sub power_state_await ($$$) {
     my ($sth, $want, $msg) = @_;
     poll_loop(30,1, "power: $msg $want", sub {
diff --git a/Osstest/PDU/xenuse.pm b/Osstest/PDU/xenuse.pm
index 3071b663..2ce0dd22 100644
--- a/Osstest/PDU/xenuse.pm
+++ b/Osstest/PDU/xenuse.pm
@@ -24,6 +24,8 @@ use Osstest;
 use Osstest::TestSupport;
 use IO::File;
 
+use parent qw(Osstest::PDU::unsupported);
+
 sub new {
     my ($class, $ho) = @_;
     return bless { Host => $ho }, $class;
-- 
2.11.0


_______________________________________________
Xen-devel mailing list
Xen-devel@xxxxxxxxxxxxxxxxxxxx
https://lists.xenproject.org/mailman/listinfo/xen-devel