summaryrefslogtreecommitdiffstats
path: root/plugins-scripts/t/check_rpc.t
diff options
context:
space:
mode:
Diffstat (limited to 'plugins-scripts/t/check_rpc.t')
-rw-r--r--plugins-scripts/t/check_rpc.t23
1 files changed, 13 insertions, 10 deletions
diff --git a/plugins-scripts/t/check_rpc.t b/plugins-scripts/t/check_rpc.t
index afcb867..9fff0ee 100644
--- a/plugins-scripts/t/check_rpc.t
+++ b/plugins-scripts/t/check_rpc.t
@@ -1,19 +1,22 @@
1#! /usr/bin/perl -w -I ..
2#
3# Remote Procedure Call (RPC) Tests via check_rpc
4#
5# $Id$
6#
7
1use strict; 8use strict;
2use Test; 9use Test;
3use vars qw($tests); 10use NPTest;
4 11
12use vars qw($tests);
5BEGIN {$tests = 2; plan tests => $tests} 13BEGIN {$tests = 2; plan tests => $tests}
6 14
7my $null = ''; 15my $successOutput = '/^check_rpc/';
8my $cmd; 16
9my $str; 17my $t;
10my $t=0;
11 18
12$cmd = "./check_rpc -V"; 19$t += checkCmd( "./check_rpc -V", 0, $successOutput );
13$str = `$cmd`;
14$t += ok $?>>8,0;
15print "Test was: $cmd\n" if ($?);
16$t += ok $str, '/^check_rpc/';
17 20
18exit(0) if defined($Test::Harness::VERSION); 21exit(0) if defined($Test::Harness::VERSION);
19exit($tests - $t); 22exit($tests - $t);