Fixed warnings when no uom specified for add_perfdata

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

1 files changed, 9 insertions, 1 deletions

diff --git a/t/Nagios-Plugin-01.t b/t/Nagios-Plugin-01.t
index db12c35..3ada472 100644
--- a/t/Nagios-Plugin-01.t
+++ b/t/Nagios-Plugin-01.t
@@ -1,7 +1,7 @@
 # Nagios::Plugin original test cases
 
 use strict;
-use Test::More tests => 12;
+use Test::More tests => 13;
 
 BEGIN { use_ok('Nagios::Plugin') };
 
@@ -41,6 +41,14 @@ $p->add_perfdata(
 cmp_ok( $p->all_perfoutput, 'eq', "size=1kB;10:25;~:25", "Perfdata correct");
 #diag "dumping perfdata:  ". Dumper ($p->perfdata);
 
+$p->add_perfdata(
+        label => "time",
+        value => "3.52",
+        threshold => $t,
+        );
+
+is( $p->all_perfoutput, "size=1kB;10:25;~:25 time=3.52;10:25;~:25", "Perfdata correct when no uom specified");
+
 my $expected = {qw(
                    -1    WARNING
                    1     WARNING