view release on metacpan or  search on metacpan

t/apache/100_worker.t  view on Meta::CPAN

isnt(-f '/tmp/swit_worker.res', undef);

my $rfstr = read_file('/tmp/swit_worker.res');
like($rfstr, qr/hi/);
like($rfstr, qr/bye/);
unlink('/tmp/swit_worker.res');

$ENV{SWIT_HAS_APACHE} = 0;
$t = T::Test->new({ session_class => 'Apache::SWIT::Session' });

# in direct work is done synchroniously
$t->work_r(make_url => 1);
isnt(-f '/tmp/swit_worker.res', undef);
$rfstr = read_file('/tmp/swit_worker.res');
like($rfstr, qr/hi/);
like($rfstr, qr/bye/);
unlink('/tmp/swit_worker.res');

# and check that it works for update
$t->work_u(make_url => 1);
isnt(-f '/tmp/swit_worker.res', undef);