1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
use 5.10.1;
use strict;
use warnings;
use lib qw(. lib t);
use Test::More tests => 11;
use Capture::Tiny ':all';
use Cwd;
delete @::ENV{'PATH', 'IFS', 'CDPATH', 'ENV', 'BASH_ENV'};
$ENV{'PATH'} = '';
my $topdir = cwd;
my $popts = "-I. -Ilib ";
$popts .= $ENV{'HARNESS_PERL_SWITCHES'} if ($ENV{'HARNESS_PERL_SWITCHES'});
my ($stdout, $stderr, $exit);
($stdout, $stderr, $exit) = capture {
system(
"PROJECT=tests $^X $popts ./extensions/Push/bin/bugzilla-pushd.pl -f -p $topdir/data/tests/push.pid onepass"
);
};
diag($stdout, $stderr, $exit) if ($stderr);
like($stderr, qr{Starting up}, "start pushd stderr");
like($stdout, qr{Sending all queued messages}, "start pushd stdout");
is($exit, 0, "start pushd exit");
($stdout, $stderr, $exit) = capture {
system(
"PROJECT=tests $^X $popts ./extensions/Push/bin/bugzilla-pushd.pl -d -p $topdir/data/tests/push.pid start"
);
};
diag($stdout, $stderr, $exit) if ($stderr);
is($stderr, "", "start pushd stderr");
like($stdout, qr/Starting bugzilla-pushd.pl server/, "start pushd stdout");
is($exit, 0, "start pushd exit");
($stdout, $stderr, $exit) = capture {
system(
"PROJECT=tests $^X $popts ./extensions/Push/bin/bugzilla-pushd.pl -d -p $topdir/data/tests/push.pid check"
);
};
diag($stdout, $stderr, $exit) if ($stderr);
is($stderr, "", "check pushd stderr");
like($stdout, qr{bugzilla-pushd.pl running}, "check pushd stdout");
is($exit, 0, "check pushd exit");
($stdout, $stderr, $exit) = capture {
system(
"PROJECT=tests $^X $popts ./extensions/Push/bin/bugzilla-pushd.pl -d -p $topdir/data/tests/push.pid stop"
);
};
diag($stdout, $stderr, $exit) if ($stderr);
is($stderr, "", "stop pushd stderr");
## BUGBUG could not figure out why daemon doesn't keep running during tests ...
SKIP: {
skip "Doesn't work in tests...", 1;
like($stdout, qr/Process .* is gone/, "stop pushd stdout");
is($exit, 0, "check pushd exit");
}
|
GitWeb
