3 # Copyright (c) 2006 Jonathan Rockway <jrockway@cpan.org>
7 Tests if Catalyst can fork/exec other processes successfully
14 use lib "$FindBin::Bin/lib";
15 use Catalyst::Test qw(TestApp);
18 plan skip_all => 'YAML required' if $@;
20 plan skip_all => 'Using remote server'
21 if $ENV{CATALYST_SERVER};
23 plan skip_all => 'Skipping fork tests: no /bin/ls'
24 if !-e '/bin/ls'; # see if /bin/ls exists
26 plan tests => 13; # otherwise
30 ok(my $result = get('/fork/system/%2Fbin%2Fls'), 'system');
31 my @result = split /$/m, $result;
32 $result = join q{}, @result[-4..-1];
34 my $result_ref = eval { Load($result) };
35 ok($result_ref, 'is YAML');
36 is($result_ref->{result}, 0, 'exited OK');
41 ok(my $result = get('/fork/backticks/%2Fbin%2Fls'), '`backticks`');
42 my @result = split /$/m, $result;
43 $result = join q{}, @result[-4..-1];
45 my $result_ref = eval { Load($result) };
46 ok($result_ref, 'is YAML');
47 is($result_ref->{code}, 0, 'exited successfully');
48 like($result_ref->{result}, qr{^/bin/ls[^:]}, 'contains ^/bin/ls$');
49 like($result_ref->{result}, qr{\n.*\n}m, 'contains two newlines');
53 ok(my $result = get('/fork/fork'), 'fork');
54 my @result = split /$/m, $result;
55 $result = join q{}, @result[-4..-1];
57 my $result_ref = eval { Load($result) };
58 ok($result_ref, 'is YAML');
59 isnt($result_ref->{pid}, 0, q{fork's "pid" wasn't 0});
60 isnt($result_ref->{pid}, $$, 'fork got a new pid');
61 is($result_ref->{result}, 'ok', 'fork was effective');