1 files changed, 14 insertions, 0 deletions

diff --git a/t/Nagios-Plugin-Base.t b/t/Nagios-Plugin-Base.t
new file mode 100644
index 0000000..589f331
--- /dev/null
+++ b/t/Nagios-Plugin-Base.t
@@ -0,0 +1,14 @@
+
+use strict;
+use Test::More tests => 11;
+
+use_ok("Nagios::Plugin::Base");
+my $this_version=$Nagios::Plugin::Base::VERSION;
+foreach my $m ("", qw(::Threshold ::Getopt ::Performance ::Range)) {
+        my $mod = "Nagios::Plugin$m";
+        use_ok($mod);
+        # Lots of hackery below. Easier to say $mod->VERSION, but this is probably a recent perl thing
+        my $v = "$mod"."::VERSION";
+        my $a = eval "\$$v";
+        is($a, $this_version, "Version number for $mod the same as Base: $this_version");
+}