← Back to branch summary

~ubuntu-branches/ubuntu/precise/nagios-plugins/precise-proposed

« back to all changes in this revision

Viewing changes to plugins/t/check_smtp.t

  • Committer: Bazaar Package Importer
  • Author(s): Guido Trotter
  • Date: 2004-06-15 15:37:48 UTC
  • Revision ID: james.westby@ubuntu.com-20040615153748-pq7702qdzghqfcns
Tags: upstream-1.3.1.0
Import upstream version 1.3.1.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
plugins/t/check_smtp.t
 
1
#! /usr/bin/perl -w
 
2
 
 
3
#use strict;
 
4
use Cache;
 
5
use Test;
 
6
use vars qw($tests);
 
7
 
 
8
BEGIN {$tests = 3; plan tests => $tests}
 
9
 
 
10
my $null = '';
 
11
my $cmd;
 
12
my $str;
 
13
my $t;
 
14
 
 
15
$cmd = "./check_smtp $Cache::mailhost";
 
16
$str = `$cmd`;
 
17
$t += ok $?>>8,0;
 
18
print "Test was: $cmd\n" if ($?);
 
19
 
 
20
$cmd = "./check_smtp -H $Cache::mailhost -p 25 -t 1 -w 9 -c 9 -t 10 -e 220";
 
21
$str = `$cmd`;
 
22
$t += ok $?>>8,0;
 
23
print "Test was: $cmd\n" if ($?);
 
24
 
 
25
$cmd = "./check_smtp -H $Cache::mailhost -p 25 -wt 9 -ct 9 -to 10 -e 220";
 
26
$str = `$cmd`;
 
27
$t += ok $?>>8,0;
 
28
print "Test was: $cmd\n" if ($?);
 
29
 
 
30
exit(0) if defined($Test::Harness::VERSION);
 
31
exit($tests - $t);