summaryrefslogtreecommitdiffstats
path: root/t
diff options
context:
space:
mode:
authorTon Voon <tonvoon@users.sourceforge.net>2006-08-31 08:19:01 (GMT)
committerTon Voon <tonvoon@users.sourceforge.net>2006-08-31 08:19:01 (GMT)
commit2b422c372ee109303984ca8bac6f5ea3d5976dc0 (patch)
tree6e2d247d164efc18a6bedb5b0c162c3471bab6f6 /t
parenta70a6ff5acf2a2b252328427293801ce0ff42888 (diff)
downloadmonitoring-plugin-perl-2b422c372ee109303984ca8bac6f5ea3d5976dc0.tar.gz
Consistent version numbers across all modules. Inherited from Nagios::Plugin::Base
git-svn-id: https://nagiosplug.svn.sourceforge.net/svnroot/nagiosplug/Nagios-Plugin/trunk@1471 f882894a-f735-0410-b71e-b25c423dba1c
Diffstat (limited to 't')
-rw-r--r--t/Nagios-Plugin-Base.t14
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 @@
1
2use strict;
3use Test::More tests => 11;
4
5use_ok("Nagios::Plugin::Base");
6my $this_version=$Nagios::Plugin::Base::VERSION;
7foreach my $m ("", qw(::Threshold ::Getopt ::Performance ::Range)) {
8 my $mod = "Nagios::Plugin$m";
9 use_ok($mod);
10 # Lots of hackery below. Easier to say $mod->VERSION, but this is probably a recent perl thing
11 my $v = "$mod"."::VERSION";
12 my $a = eval "\$$v";
13 is($a, $this_version, "Version number for $mod the same as Base: $this_version");
14}