Home
last modified time | relevance | path

Searched refs:IPC (Results 1 – 25 of 145) sorted by relevance

123456

/openbsd-src/gnu/usr.bin/perl/cpan/Test-Simple/t/Test2/modules/IPC/
H A DDriver.t4 use Test2::IPC::Driver::Files;
9 Test2::IPC::Driver::Files->import();
10 Test2::IPC::Driver::Files->import();
11 Test2::IPC::Driver::Files->import();
15 ['Test2::IPC::Driver::Files'],
20 my $one = Test2::IPC::Driver->new;
31 my $one = Test2::IPC::Driver->new(no_fatal => 1);
42 is($err, "IPC Fatal Error: foo\n", "Got error");
43 is($out, "Bail out! IPC Fatal Error: foo\n", "got 'bail-out' on stdout");
55 like($out, qr/Bail out! IPC Fatal Error: foo/, "got 'bail-out' on stdout");
[all …]
/openbsd-src/gnu/usr.bin/perl/cpan/IPC-Cmd/t/
H A D01_IPC-Cmd.t1 ## IPC::Cmd test suite ###
10 my $Class = 'IPC::Cmd';
24 diag("IPC::Run: $Have_IPC_Run IPC::Open3: $Have_IPC_Open3")
27 local $IPC::Cmd::VERBOSE = $Verbose;
28 local $IPC::Cmd::VERBOSE = $Verbose;
29 local $IPC::Cmd::DEBUG = $Verbose;
30 local $IPC::Cmd::DEBUG = $Verbose;
97 local $IPC::Cmd::USE_IPC_RUN = !!$pref->[0];
98 local $IPC::Cmd::USE_IPC_RUN = !!$pref->[0];
99 local $IPC::Cmd::USE_IPC_OPEN3 = !!$pref->[1];
[all …]
H A D03_run-forked.t14 unless ( IPC::Cmd->can_use_run_forked ) {
22 my $true = IPC::Cmd::can_run('true');
23 my $false = IPC::Cmd::can_run('false');
24 my $echo = IPC::Cmd::can_run('echo');
25 my $sleep = IPC::Cmd::can_run('sleep');
26 my $cat = IPC::Cmd::can_run('cat');
88 my $f_ipc_cmd = IPC::Cmd::run_forked("$cat $filename");
H A D02_Interactive.t12 my $Class = 'IPC::Cmd';
18 $IPC::Cmd::DEBUG = 1;
23 ### configurations to test IPC::Cmd with
61 local $IPC::Cmd::USE_IPC_RUN = $aref->[0];
62 local $IPC::Cmd::USE_IPC_RUN = $aref->[0];
64 local $IPC::Cmd::USE_IPC_OPEN3 = $aref->[1];
65 local $IPC::Cmd::USE_IPC_OPEN3 = $aref->[1];
67 diag("Config: IPC::Run = $aref->[0] IPC::Open3 = $aref->[1]");
/openbsd-src/gnu/usr.bin/perl/cpan/Test-Simple/t/Test2/modules/API/
H A DInstance.t4 use Test2::IPC;
287 delete $INC{'Test2/IPC.pm'};
362 ok($one->stack->top->ipc, "Have IPC");
364 ok($one->stack->top->ipc, "Have IPC");
366 ok(!$one->stack->top->ipc, "no IPC");
423 delete $INC{'Test2/IPC.pm'};
428 ok(!$one->ipc, 'IPC not loaded, no IPC object');
438 ok($one->ipc, 'IPC loaded if threads are');
441 is($one->ipc_drivers->[0], 'Test2::IPC
[all...]
/openbsd-src/gnu/usr.bin/perl/cpan/Test-Simple/t/Test2/modules/IPC/Driver/
H A DFiles.t40 require Test2::IPC::Driver::Files;
41 ok(my $ipc = Test2::IPC::Driver::Files->new, "Created an IPC instance");
42 ok($ipc->isa('Test2::IPC::Driver::Files'), "Correct type");
43 ok($ipc->isa('Test2::IPC::Driver'), "inheritance");
76 is(@files, 2, "2 files added to the IPC directory");
103 my $ipc = Test2::IPC::Driver::Files->new();
107 my $ipc_thread_clone = bless {%$ipc}, 'Test2::IPC::Driver::Files';
112 my $ipc_fork_clone = bless {%$ipc}, 'Test2::IPC::Driver::Files';
118 $ipc_thread_clone = bless {%$ipc}, 'Test2::IPC
[all...]
/openbsd-src/gnu/usr.bin/perl/cpan/IPC-SysV/t/
H A Dsem.t25 plan(skip_all => 'IPC::SysV was not built');
36 use IPC::SysV qw(
47 use IPC::Semaphore;
58 }->(sub { IPC::Semaphore->new(IPC_PRIVATE, $nsem, S_IRWXU | S_IRWXG | S_IRWXO | IPC_CREAT) });
61 my $info = "IPC::Semaphore->new failed: $!";
62 if ($! == &IPC::SysV::ENOSPC || $! == &IPC::SysV::ENOSYS ||
63 $! == &IPC::SysV::ENOMEM || $! == &IPC::SysV::EACCES) {
H A Dmsg.t25 plan(skip_all => 'IPC::SysV was not built');
35 use IPC::SysV qw(IPC_PRIVATE IPC_RMID IPC_NOWAIT IPC_STAT S_IRWXU S_IRWXG S_IRWXO);
37 use IPC::Msg;
47 }->(sub { IPC::Msg->new(IPC_PRIVATE, S_IRWXU | S_IRWXG | S_IRWXO) });
50 my $info = "IPC::Msg->new failed: $!";
51 if ($! == &IPC::SysV::ENOSPC || $! == &IPC::SysV::ENOSYS ||
52 $! == &IPC::SysV::ENOMEM || $! == &IPC::SysV::EACCES) {
H A Dshm.t25 plan(skip_all => 'IPC::SysV was not built');
33 use IPC::SysV qw( IPC_PRIVATE S_IRWXU );
34 use IPC::SharedMem;
43 }->(sub { IPC::SharedMem->new(IPC_PRIVATE, 8, S_IRWXU) });
46 my $info = "IPC::SharedMem->new failed: $!";
47 if ($! == &IPC::SysV::ENOSPC || $! == &IPC::SysV::ENOSYS ||
48 $! == &IPC::SysV::ENOMEM || $! == &IPC::SysV::EACCES) {
H A Dpodcov.t25 plan(skip_all => 'IPC::SysV was not built');
29 my @modules = qw( IPC::SysV IPC::Msg IPC::Semaphore IPC::SharedMem );
/openbsd-src/gnu/usr.bin/perl/cpan/Test-Simple/lib/Test2/API/
H A DInstance.pm7 our @CARP_NOT = qw/Test2::API Test2::API::Instance Test2::IPC::Driver Test2::Formatter/;
54 for my $finalizer (IPC, FORMATTER) {
68 sub has_ipc { !!$_[0]->{+IPC} }
112 $self->{+IPC} = undef;
141 $self->{+IPC} = undef;
206 # Turn on IPC if threads are on, drivers are registered, or the Test2::IPC
209 return unless USE_THREADS || $INC{'Test2/IPC.pm'} || @{$self->{+IPC_DRIVERS}};
215 my ($ok, $error) = try { require Test2::IPC::Driver::Files };
217 push @{$self->{+IPC_DRIVERS}} => 'Test2::IPC
[all...]
/openbsd-src/gnu/usr.bin/perl/t/io/
H A Dmsg.t11 skip_all('-- IPC::SysV was not built');
24 use IPC::SysV qw/ IPC_PRIVATE S_IRUSR S_IWUSR IPC_RMID IPC_CREAT IPC_STAT IPC_CREAT IPC_NOWAIT/;
37 if ($! == &IPC::SysV::ENOSPC || $! == &IPC::SysV::ENOSYS ||
38 $! == &IPC::SysV::ENOMEM || $! == &IPC::SysV::EACCES) {
H A Dshm.t26 skip_all('-- IPC::SysV was not built');
36 use IPC::SysV qw/ IPC_PRIVATE S_IRWXU IPC_RMID /;
47 my $info = "IPC::SharedMem->new failed: $!";
48 if ($! == &IPC::SysV::ENOSPC || $! == &IPC::SysV::ENOSYS ||
49 $! == &IPC::SysV::ENOMEM || $! == &IPC::SysV::EACCES) {
H A Dsem.t11 skip_all('-- IPC::SysV was not built');
24 use IPC::SysV qw/ IPC_PRIVATE S_IRUSR S_IWUSR IPC_RMID SETVAL GETVAL SETALL GETALL IPC_CREAT IPC_STAT /;
38 if ($! == &IPC::SysV::ENOSPC || $! == &IPC::SysV::ENOSYS ||
39 $! == &IPC::SysV::ENOMEM || $! == &IPC::SysV::EACCES) {
/openbsd-src/gnu/usr.bin/perl/cpan/Test-Simple/t/Test2/behavior/
H A Ddisable_ipc_a.t4 no Test2::IPC;
6 use Test2::IPC::Driver::Files;
8 ok(Test2::API::test2_ipc_disabled, "disabled IPC");
9 ok(!Test2::API::test2_ipc, "No IPC");
H A Ddisable_ipc_b.t6 use Test2::IPC::Driver::Files;
8 ok(Test2::API::test2_ipc_disabled, "disabled IPC");
9 ok(!Test2::API::test2_ipc, "No IPC");
H A Ddisable_ipc_c.t7 use Test2::IPC::Driver::Files;
9 ok(Test2::API::test2_ipc_disabled, "disabled IPC");
10 ok(!Test2::API::test2_ipc, "No IPC");
H A Ddisable_ipc_d.t21 no Test2::IPC;
24 ok(Test2::API::test2_ipc_disabled, "disabled IPC");
25 ok(!Test2::API::test2_ipc, "No IPC");
/openbsd-src/gnu/usr.bin/perl/cpan/File-Fetch/t/
H A D01_File-Fetch.t17 $IPC::Cmd::DEBUG = $IPC::Cmd::DEBUG = 1 if $ARGV[0];
38 ### show us the tools IPC::Cmd will use to run binary programs
41 diag( "IPC::Run enabled: " .
42 $IPC::Cmd::USE_IPC_RUN || $IPC::Cmd::USE_IPC_RUN );
43 diag( "IPC::Run available: " . IPC::Cmd->can_use_ipc_run );
44 diag( "IPC::Run vesion: $IPC::Run::VERSION" );
45 diag( "IPC::Open3 enabled: " .
46 $IPC::Cmd::USE_IPC_OPEN3 || $IPC::Cmd::USE_IPC_OPEN3 );
47 diag( "IPC::Open3 available: " . IPC::Cmd->can_use_ipc_open3 );
48 diag( "IPC::Open3 vesion: $IPC::Open3::VERSION" );
/openbsd-src/gnu/usr.bin/perl/cpan/Test-Simple/t/Test2/modules/
H A DIPC.t4 use Test2::IPC qw/cull/;
13 ['Test2::IPC::Driver::Files'],
19 ok(eval { intercept { Test2::IPC->import }; 1 }, "Can re-import Test2::IPC without error") or diag …
/openbsd-src/gnu/usr.bin/perl/cpan/IPC-SysV/lib/IPC/
H A DMsg.pm11 package IPC::Msg;
13 use IPC::SysV qw(IPC_STAT IPC_SET IPC_RMID);
24 package IPC::Msg::stat;
65 IPC::Msg::stat->new->unpack($data);
H A DSharedMem.pm11 package IPC::SharedMem;
13 use IPC::SysV qw(IPC_STAT IPC_RMID shmat shmdt memread memwrite);
24 package IPC::SharedMem::stat;
73 IPC::SharedMem::stat->new->unpack($data);
H A DSemaphore.pm11 package IPC::Semaphore;
13 use IPC::SysV qw(GETNCNT GETZCNT GETVAL SETVAL GETPID GETALL SETALL
25 package IPC::Semaphore::stat;
109 IPC::Semaphore::stat->new->unpack($data);
/openbsd-src/gnu/usr.bin/perl/ext/IPC-Open3/lib/IPC/
H A DOpen2.pm1 package IPC::Open2;
115 require IPC::Open3;
119 return IPC::Open3::_open3('open2', $_[1], $_[0], '>&STDERR', @_[2 .. $#_]);
/openbsd-src/gnu/usr.bin/perl/cpan/Test-Simple/lib/Test2/Hub/
H A DInterceptor.pm25 if ($from->{+IPC} && !$self->{+IPC} && !exists($params{ipc})) {
26 my $ipc = $from->{+IPC};
27 $self->{+IPC} = $ipc;

123456