plugins-scripts/t/check_rpc.t

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