plugins-scripts/t/check_rpc.t

   1 #! /usr/bin/perl -w -I ..
   2 #
   3 # Remote Procedure Call (RPC) Tests via check_rpc
   4 #
   5 #
   6
   7 use strict;
   8 use Test;
   9 use NPTest;
  10
  11 use vars qw($tests);
  12 BEGIN {$tests = 2; plan tests => $tests}
  13
  14 my $successOutput = '/^check_rpc/';
  15
  16 my $t;
  17
  18 $t += checkCmd( "./check_rpc -V",   3, $successOutput );
  19
  20 exit(0) if defined($Test::Harness::VERSION);
  21 exit($tests - $t);