Updating test harness

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

1 files changed, 7 insertions, 4 deletions

diff --git a/plugins/t/check_mysql.t b/plugins/t/check_mysql.t
index ae2a008..0fae65f 100644
--- a/plugins/t/check_mysql.t
+++ b/plugins/t/check_mysql.t
@@ -1,11 +1,12 @@
 #! /usr/bin/perl -w
 
 use strict;
+use Helper;
 use Cache;
 use Test;
 use vars qw($tests);
 
-BEGIN {$tests = 1; plan tests => $tests}
+BEGIN {$tests = 2; plan tests => $tests}
 
 exit(0) unless (-x "./check_mysql");
 
@@ -14,10 +15,12 @@ my $cmd;
 my $str;
 my $t;
 
-$cmd = "./check_mysql -H 127.0.0.1 -P 3306";
+my $mysqlserver = get_option("mysqlserver","host for MYSQL tests");
+
+$cmd = "./check_mysql -H $mysqlserver -P 3306";
 $str = `$cmd`;
-$t += ok $?>>8,0;
-print "Test was: $cmd\n" if ($?);
+$t += ok $?>>8,2;
+$t += ok $str, '/Access denied for user: /';
 
 exit(0) if defined($Test::Harness::VERSION);
 exit($tests - $t);