Add get_shortname to NP::Functions export_ok list; update perldocs.

git-svn-id: https://nagiosplug.svn.sourceforge.net/svnroot/nagiosplug/Nagios-Plugin/trunk@1537 f882894a-f735-0410-b71e-b25c423dba1c

1 files changed, 4 insertions, 1 deletions

diff --git a/t/Nagios-Plugin-Functions-01.t b/t/Nagios-Plugin-Functions-01.t
index 7401945..70db221 100644
--- a/t/Nagios-Plugin-Functions-01.t
+++ b/t/Nagios-Plugin-Functions-01.t
@@ -1,6 +1,6 @@
 
 use strict;
-use Test::More tests => 111;
+use Test::More tests => 112;
 
 BEGIN { use_ok("Nagios::Plugin::Functions", ":all"); }
 Nagios::Plugin::Functions::_fake_exit(1);
@@ -15,6 +15,9 @@ foreach my $m ("", qw(::Threshold ::Getopt ::Performance ::Range)) {
         is($a, $this_version, "Version number for $mod the same as Functions: $this_version");
 }
 
+# check get_shortname
+is(get_shortname, "NAGIOS-PLUGIN-FUNCTIONS-01", "get_shortname ok");
+
 # Hardcoded checks of constants
 ok(defined %ERRORS, '%ERRORS defined');
 is(OK,          $ERRORS{OK},            "OK        => $ERRORS{OK}");