summaryrefslogtreecommitdiffstats
path: root/plugins/t/check_ftp.t
diff options
context:
space:
mode:
Diffstat (limited to 'plugins/t/check_ftp.t')
-rw-r--r--plugins/t/check_ftp.t32
1 files changed, 32 insertions, 0 deletions
diff --git a/plugins/t/check_ftp.t b/plugins/t/check_ftp.t
new file mode 100644
index 0000000..c3f74d9
--- /dev/null
+++ b/plugins/t/check_ftp.t
@@ -0,0 +1,32 @@
1#! /usr/bin/perl -w
2
3#use strict;
4use Cache;
5use Test;
6use vars qw($tests);
7
8BEGIN {$tests = 3; plan tests => $tests}
9
10my $null = '';
11my $cmd;
12my $str;
13my $t;
14
15$cmd = "./check_ftp $Cache::hostname -wt 300 -ct 600";
16$str = `$cmd`;
17$t += ok $?>>8,0;
18print "Test was: $cmd\n" if ($?);
19$t += ok $str, '/FTP ok - [0-9]+ second response time/';
20
21#$cmd = "./check_ftp $Cache::noserver -wt 0 -ct 0";
22#$str = `$cmd`;
23#$t += ok $?>>8,2;
24#print "Test was: $cmd\n" unless ($?);
25
26$cmd = "./check_ftp $Cache::nullhost -wt 0 -ct 0 -to 1";
27$str = `$cmd`;
28$t += ok $?>>8,2;
29print "Test was: $cmd\n" unless ($?);
30
31exit(0) if defined($Test::Harness::VERSION);
32exit($tests - $t);