adding a failing test -- under dev server, fork() doesn't work

[catagits/Catalyst-Runtime.git] / t / lib / TestApp / Controller / Fork.pm

#!/usr/bin/perl
# Fork.pm 
# Copyright (c) 2006 Jonathan Rockway <jrockway@cpan.org>

package TestApp::Controller::Fork;

use strict;
use warnings;
use base 'Catalyst::Controller';
use YAML;

sub fork : Global {
    my ($self, $c, $ls) = @_;
    my ($result, $code) = (undef, 1);

    if(!-e $ls || !-x _){ 
	$result = 'skip';
	$code = 0;
    }
    else {
	$result = system($ls, $ls, $ls);
	$code = $?;
    }
    
    $c->response->body(Dump({result => $result, code => $code}));
}

1;