Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package perl-Mojo-IOLoop-ReadWriteProcess
for openSUSE:Factory checked in at 2021-12-09 13:36:19
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Mojo-IOLoop-ReadWriteProcess (Old)
and
/work/SRC/openSUSE:Factory/.perl-Mojo-IOLoop-ReadWriteProcess.new.2520 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Mojo-IOLoop-ReadWriteProcess"
Thu Dec 9 13:36:19 2021 rev:15 rq: version:0.28
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-Mojo-IOLoop-ReadWriteProcess/perl-Mojo-IOLoop-ReadWriteProcess.changes
2021-12-07 00:01:04.524205116 +0100
+++
/work/SRC/openSUSE:Factory/.perl-Mojo-IOLoop-ReadWriteProcess.new.2520/perl-Mojo-IOLoop-ReadWriteProcess.changes
2021-12-09 13:36:25.309801135 +0100
@@ -2,17 +1,0 @@
-Thu Dec 2 03:07:13 UTC 2021 - Tina M??ller <[email protected]>
-
-- updated to 0.31
- see /usr/share/doc/packages/perl-Mojo-IOLoop-ReadWriteProcess/Changes
-
- 0.31 2021-12-01T15:51:06Z
- - Fix bad release to cpan
- - Enable GitHub Actions for the project
- - Fix ReadWriteProcess::Queue as regression of 1e0addb6
- - Fix race on `open3/fork` and `session->register($pid)` call -- second
attempt
- - Fix `args` processing
- - Fix race of SIG{CHLD} handler setup
- - Fix _getlines() to avoid extra newline (\n) in scalar context
- - Session: Do not set SIG{CHLD} handler twice
- - Match on 'armv7l' as well as 'arm' for prctl detection
-
--------------------------------------------------------------------
Old:
----
Mojo-IOLoop-ReadWriteProcess-0.31.tar.gz
New:
----
Mojo-IOLoop-ReadWriteProcess-0.28.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Mojo-IOLoop-ReadWriteProcess.spec ++++++
--- /var/tmp/diff_new_pack.Din8HG/_old 2021-12-09 13:36:25.941801255 +0100
+++ /var/tmp/diff_new_pack.Din8HG/_new 2021-12-09 13:36:25.945801256 +0100
@@ -1,7 +1,7 @@
#
# spec file for package perl-Mojo-IOLoop-ReadWriteProcess
#
-# Copyright (c) 2021 SUSE LLC
+# Copyright (c) 2020 SUSE LLC
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -16,16 +16,20 @@
#
-%define cpan_name Mojo-IOLoop-ReadWriteProcess
+# Do not change this file manually, use cpanspec.yml instead
+
Name: perl-Mojo-IOLoop-ReadWriteProcess
-Version: 0.31
+Version: 0.28
Release: 0
+%define cpan_name Mojo-IOLoop-ReadWriteProcess
Summary: Execute external programs or internal code blocks as separate
process
License: Artistic-1.0 OR GPL-1.0-or-later
+Group: Development/Libraries/Perl
URL: https://metacpan.org/release/%{cpan_name}
Source0:
https://cpan.metacpan.org/authors/id/S/SZ/SZARATE/%{cpan_name}-%{version}.tar.gz
Source1: cpanspec.yml
BuildArch: noarch
+BuildRoot: %{_tmppath}/%{name}-%{version}-build
BuildRequires: perl
BuildRequires: perl-macros
BuildRequires: perl(IPC::SharedMem)
@@ -40,7 +44,7 @@
Mojo::IOLoop::ReadWriteProcess is yet another process manager.
%prep
-%autosetup -n %{cpan_name}-%{version}
+%setup -q -n %{cpan_name}-%{version}
find . -type f ! -path "*/t/*" ! -name "*.pl" ! -path "*/bin/*" ! -path
"*/script/*" ! -name "configure" -print0 | xargs -0 chmod 644
%build
@@ -50,7 +54,7 @@
%check
echo "ignoring unstable tests"
echo "https://github.com/mudler/Mojo-IOLoop-ReadWriteProcess/issues/14";
-rm t/{07_autodetect,12_mocked_container,04_queues,05_serialize}.t
+rm t/{07_autodetect,12_mocked_container,04_queues,05_serialize,06_events}.t
./Build test
%install
@@ -58,7 +62,8 @@
%perl_gen_filelist
%files -f %{name}.files
-%doc Changes codecov.yml minil.toml README.md
+%defattr(-,root,root,755)
+%doc Changes circle.yml codecov.yml minil.toml README.md
%license LICENSE
%changelog
++++++ Mojo-IOLoop-ReadWriteProcess-0.31.tar.gz ->
Mojo-IOLoop-ReadWriteProcess-0.28.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mojo-IOLoop-ReadWriteProcess-0.31/Changes
new/Mojo-IOLoop-ReadWriteProcess-0.28/Changes
--- old/Mojo-IOLoop-ReadWriteProcess-0.31/Changes 2021-12-01
16:51:06.000000000 +0100
+++ new/Mojo-IOLoop-ReadWriteProcess-0.28/Changes 2020-09-30
13:53:44.000000000 +0200
@@ -1,17 +1,6 @@
Revision history for Perl extension Mojo-IOLoop-ReadWriteProcess
-0.31 2021-12-01T15:51:06Z
- - Fix bad release to cpan
- - Enable GitHub Actions for the project
- - Fix ReadWriteProcess::Queue as regression of 1e0addb6
- - Fix race on `open3/fork` and `session->register($pid)` call -- second
attempt
- - Fix `args` processing
- - Fix race of SIG{CHLD} handler setup
- - Fix _getlines() to avoid extra newline (\n) in scalar context
- - Session: Do not set SIG{CHLD} handler twice
- - Match on 'armv7l' as well as 'arm' for prctl detection
-
0.28 2020-09-30T11:51:40Z
- Avoid executing "blocking stop" code when process has already terminated by
Martchus
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mojo-IOLoop-ReadWriteProcess-0.31/MANIFEST
new/Mojo-IOLoop-ReadWriteProcess-0.28/MANIFEST
--- old/Mojo-IOLoop-ReadWriteProcess-0.31/MANIFEST 2021-12-01
16:51:06.000000000 +0100
+++ new/Mojo-IOLoop-ReadWriteProcess-0.28/MANIFEST 2020-09-30
13:53:44.000000000 +0200
@@ -4,6 +4,7 @@
META.json
README.md
builder/custom.pm
+circle.yml
codecov.yml
cpanfile
lib/Mojo/IOLoop/ReadWriteProcess.pm
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mojo-IOLoop-ReadWriteProcess-0.31/META.json
new/Mojo-IOLoop-ReadWriteProcess-0.28/META.json
--- old/Mojo-IOLoop-ReadWriteProcess-0.31/META.json 2021-12-01
16:51:06.000000000 +0100
+++ new/Mojo-IOLoop-ReadWriteProcess-0.28/META.json 2020-09-30
13:53:44.000000000 +0200
@@ -4,7 +4,7 @@
"Ettore Di Giacinto <[email protected]>"
],
"dynamic_config" : 0,
- "generated_by" : "Minilla/v3.1.12",
+ "generated_by" : "Minilla/v3.1.10",
"license" : [
"perl_5"
],
@@ -56,7 +56,7 @@
"provides" : {
"Mojo::IOLoop::ReadWriteProcess" : {
"file" : "lib/Mojo/IOLoop/ReadWriteProcess.pm",
- "version" : "0.31"
+ "version" : "0.28"
},
"Mojo::IOLoop::ReadWriteProcess::CGroup" : {
"file" : "lib/Mojo/IOLoop/ReadWriteProcess/CGroup.pm"
@@ -138,20 +138,27 @@
}
},
"release_status" : "stable",
- "version" : "0.31",
+ "resources" : {
+ "bugtracker" : {
+ "web" :
"https://github.com/mudler/Mojo-IOLoop-ReadWriteProcess/issues";
+ },
+ "homepage" : "https://github.com/mudler/Mojo-IOLoop-ReadWriteProcess";,
+ "repository" : {
+ "url" : "git://github.com/mudler/Mojo-IOLoop-ReadWriteProcess.git",
+ "web" : "https://github.com/mudler/Mojo-IOLoop-ReadWriteProcess";
+ }
+ },
+ "version" : "0.28",
"x_contributors" : [
- "Adam Williamson <[email protected]>",
"Clemens Famulla-Conrad <[email protected]>",
"Ettore Di Giacinto <[email protected]>",
"Ettore Di Giacinto <[email protected]>",
"Marius Kittler <[email protected]>",
"Mohammad S Anwar <[email protected]>",
"Oliver Kurz <[email protected]>",
- "Santiago Zarate <[email protected]>",
"Santiago Zarate <[email protected]>",
"Santiago Zarate <[email protected]>",
"Sebastian Riedel <[email protected]>"
],
- "x_serialization_backend" : "JSON::PP version 4.06",
"x_static_install" : 0
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mojo-IOLoop-ReadWriteProcess-0.31/META.yml
new/Mojo-IOLoop-ReadWriteProcess-0.28/META.yml
--- old/Mojo-IOLoop-ReadWriteProcess-0.31/META.yml 2021-12-01
16:51:06.000000000 +0100
+++ new/Mojo-IOLoop-ReadWriteProcess-0.28/META.yml 2020-09-30
13:53:44.000000000 +0200
@@ -8,7 +8,7 @@
Module::Build: '0.4005'
perl: '5.016'
dynamic_config: 0
-generated_by: 'Minilla/v3.1.12, CPAN::Meta::Converter version 2.150010'
+generated_by: 'Minilla/v3.1.10, CPAN::Meta::Converter version 2.143240'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -27,7 +27,7 @@
provides:
Mojo::IOLoop::ReadWriteProcess:
file: lib/Mojo/IOLoop/ReadWriteProcess.pm
- version: '0.31'
+ version: '0.28'
Mojo::IOLoop::ReadWriteProcess::CGroup:
file: lib/Mojo/IOLoop/ReadWriteProcess/CGroup.pm
Mojo::IOLoop::ReadWriteProcess::CGroup::v1:
@@ -83,18 +83,19 @@
requires:
IPC::SharedMem: '0'
Mojolicious: '7.24'
-version: '0.31'
+resources:
+ bugtracker: https://github.com/mudler/Mojo-IOLoop-ReadWriteProcess/issues
+ homepage: https://github.com/mudler/Mojo-IOLoop-ReadWriteProcess
+ repository: git://github.com/mudler/Mojo-IOLoop-ReadWriteProcess.git
+version: '0.28'
x_contributors:
- - 'Adam Williamson <[email protected]>'
- 'Clemens Famulla-Conrad <[email protected]>'
- 'Ettore Di Giacinto <[email protected]>'
- 'Ettore Di Giacinto <[email protected]>'
- 'Marius Kittler <[email protected]>'
- 'Mohammad S Anwar <[email protected]>'
- 'Oliver Kurz <[email protected]>'
- - 'Santiago Zarate <[email protected]>'
- 'Santiago Zarate <[email protected]>'
- 'Santiago Zarate <[email protected]>'
- 'Sebastian Riedel <[email protected]>'
-x_serialization_backend: 'CPAN::Meta::YAML version 0.018'
x_static_install: 0
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mojo-IOLoop-ReadWriteProcess-0.31/README.md
new/Mojo-IOLoop-ReadWriteProcess-0.28/README.md
--- old/Mojo-IOLoop-ReadWriteProcess-0.31/README.md 2021-12-01
16:51:06.000000000 +0100
+++ new/Mojo-IOLoop-ReadWriteProcess-0.28/README.md 2020-09-30
13:53:44.000000000 +0200
@@ -1,4 +1,4 @@
-
+[](https://travis-ci.org/mudler/Mojo-IOLoop-ReadWriteProcess)
[](https://codecov.io/github/mudler/Mojo-IOLoop-ReadWriteProcess?branch=master)
# NAME
Mojo::IOLoop::ReadWriteProcess - Execute external programs or internal code
blocks as separate process.
@@ -21,7 +21,7 @@
my $output = process( sub { print "Hello\n" }
)->start()->wait_stop->getline;
# Handles seamelessy also external processes:
- my $process = process(execute=> '/path/to/bin' )->args([qw(foo bar baz)]);
+ my $process = process(execute=> '/path/to/bin' )->args(qw(foo bar baz));
$process->start();
my $line_output = $process->getline();
my $pid = $process->pid();
@@ -174,7 +174,7 @@
# The process will print "Hello User"
-Arguments pass to the external binary or the code block. Use arrayref to pass
many.
+Array or arrayref of options to pass by to the external binary or the code
block.
## blocking\_stop
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mojo-IOLoop-ReadWriteProcess-0.31/circle.yml
new/Mojo-IOLoop-ReadWriteProcess-0.28/circle.yml
--- old/Mojo-IOLoop-ReadWriteProcess-0.31/circle.yml 1970-01-01
01:00:00.000000000 +0100
+++ new/Mojo-IOLoop-ReadWriteProcess-0.28/circle.yml 2020-09-30
13:53:44.000000000 +0200
@@ -0,0 +1,24 @@
+version: 2.1
+orbs:
+ perl: circleci/[email protected]
+workflows:
+ main:
+ jobs:
+ - perl/build:
+ codecov: true
+ save-to-artifacts: true
+ save-to-workspace: true
+ - perl/test-linux:
+ matrix:
+ parameters:
+ perl-version:
+ - '5.16'
+ - '5.18'
+ - '5.20'
+ - '5.22'
+ - '5.24'
+ - '5.26'
+ - '5.28'
+ - '5.30'
+ requires:
+ - perl/build
\ No newline at end of file
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Mojo-IOLoop-ReadWriteProcess-0.31/lib/Mojo/IOLoop/ReadWriteProcess/Queue.pm
new/Mojo-IOLoop-ReadWriteProcess-0.28/lib/Mojo/IOLoop/ReadWriteProcess/Queue.pm
---
old/Mojo-IOLoop-ReadWriteProcess-0.31/lib/Mojo/IOLoop/ReadWriteProcess/Queue.pm
2021-12-01 16:51:06.000000000 +0100
+++
new/Mojo-IOLoop-ReadWriteProcess-0.28/lib/Mojo/IOLoop/ReadWriteProcess/Queue.pm
2020-09-30 13:53:44.000000000 +0200
@@ -28,7 +28,6 @@
$self->queue->maximum_processes + $self->pool->maximum_processes);
until ($self->exhausted) {
sleep .5;
- $self->session->consume_collected_info;
$self->session->_protect(
sub {
$self->pool->each(
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Mojo-IOLoop-ReadWriteProcess-0.31/lib/Mojo/IOLoop/ReadWriteProcess/Session.pm
new/Mojo-IOLoop-ReadWriteProcess-0.28/lib/Mojo/IOLoop/ReadWriteProcess/Session.pm
---
old/Mojo-IOLoop-ReadWriteProcess-0.31/lib/Mojo/IOLoop/ReadWriteProcess/Session.pm
2021-12-01 16:51:06.000000000 +0100
+++
new/Mojo-IOLoop-ReadWriteProcess-0.28/lib/Mojo/IOLoop/ReadWriteProcess/Session.pm
2020-09-30 13:53:44.000000000 +0200
@@ -21,7 +21,6 @@
has collect_status => 1;
has orphans => sub { {} };
has process_table => sub { {} };
-has collected_info => sub { [] };
has 'handler';
my $singleton;
@@ -44,7 +43,6 @@
}
sub enable {
- return if $singleton->handler();
$singleton->handler($SIG{CHLD});
$singleton->_protect(
sub {
@@ -53,7 +51,7 @@
$singleton->emit('SIG_CHLD');
return unless $singleton->collect_status;
while ((my $pid = waitpid(-1, WNOHANG)) > 0) {
- $singleton->add_collected_info($pid, $?, $!);
+ $singleton->collect($pid => $? => $!);
}
}
});
@@ -67,7 +65,7 @@
}
sub collect {
- my ($self, $pid, $status, $errno) = @_;
+ my ($errno, $status, $pid) = (pop, pop, pop);
if ($singleton->resolve($pid)) {
$singleton->_collect($pid => $status => $errno);
$singleton->emit(collected => $singleton->resolve($pid));
@@ -81,17 +79,6 @@
return $singleton;
}
-sub consume_collected_info {
- while(my $i = shift @{$singleton->collected_info}) {
- $singleton->collect(@$i)
- }
-}
-
-sub add_collected_info {
- shift;
- push @{$singleton->collected_info}, [@_];
-}
-
# Use as $pid => Mojo::IOLoop::ReadWriteProcess
sub register {
my ($process, $pid) = (pop, pop);
@@ -133,7 +120,7 @@
$singleton->all->grep(sub { $_->pid eq $pid })->size == 1;
}
-sub reset { @{+shift}{qw(events orphans process_table collected_info handler)}
= ({}, {}, {}, [], undef) }
+sub reset { @{+shift}{qw(events orphans process_table)} = ({}, {}, {}) }
# XXX: This should be replaced by PR_GET_CHILD_SUBREAPER
sub disable_subreaper {
@@ -168,7 +155,7 @@
: ($machine eq "ppc" || $machine eq "ppc64le") ? 171
: $machine eq "ia64" ? 1170
: $machine eq "alpha" ? 348
- : ($machine eq "arm" || $machine eq "armv7l") ? 0x900000 + 172
+ : $machine eq "arm" ? 0x900000 + 172
: $machine eq "avr32" ? 148
: $machine eq "mips" ? 4000 + 192
: $machine eq "mips64" ? 5000 + 153
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Mojo-IOLoop-ReadWriteProcess-0.31/lib/Mojo/IOLoop/ReadWriteProcess.pm
new/Mojo-IOLoop-ReadWriteProcess-0.28/lib/Mojo/IOLoop/ReadWriteProcess.pm
--- old/Mojo-IOLoop-ReadWriteProcess-0.31/lib/Mojo/IOLoop/ReadWriteProcess.pm
2021-12-01 16:51:06.000000000 +0100
+++ new/Mojo-IOLoop-ReadWriteProcess-0.28/lib/Mojo/IOLoop/ReadWriteProcess.pm
2020-09-30 13:53:44.000000000 +0200
@@ -1,6 +1,6 @@
package Mojo::IOLoop::ReadWriteProcess;
-our $VERSION = '0.31';
+our $VERSION = '0.28';
use Mojo::Base 'Mojo::EventEmitter';
use Mojo::File 'path';
@@ -43,12 +43,13 @@
has [
qw(execute code process_id pidfile return_status),
qw(channel_in channel_out write_stream read_stream error_stream),
- qw(_internal_err _internal_return _status args)
+ qw(_internal_err _internal_return _status)
];
has max_kill_attempts => 5;
has kill_whole_group => 0;
+has args => sub { [] };
has error => sub { Mojo::Collection->new };
has ioloop => sub { Mojo::IOLoop->singleton };
@@ -120,7 +121,7 @@
my ($self, @args) = @_;
$self->_diag('Execute: ' . (join ', ', map { "'$_'" } @args)) if DEBUG;
- $self->on(collect_status => \&_open_collect_status);
+ $self->session->enable;
my ($wtr, $rdr, $err);
$err = gensym;
@@ -130,6 +131,7 @@
$self->process_id($pid);
# Defered collect of return status and removal of pidfile
+ $self->on(collect_status => \&_open_collect_status);
return $self unless $self->set_pipes();
@@ -148,7 +150,6 @@
my ($self, $pid) = @_;
$pid //= $self->pid;
- $self->session->consume_collected_info;
$self->session->_protect(
sub {
local $?;
@@ -220,7 +221,6 @@
# Separated handles that could be used for internal comunication.
my ($channel_in, $channel_out);
-
if ($self->set_pipes) {
$input_pipe = IO::Pipe->new()
or $self->_new_err('Failed creating input pipe');
@@ -337,6 +337,8 @@
}
$self->process_id($pid);
+ $self->session->enable;
+
return $self unless $self->set_pipes();
$self->read_stream($output_pipe->reader) if $output_pipe;
@@ -396,11 +398,7 @@
sub restart {
$_[0]->is_running ? $_[0]->stop->start : $_[0]->start;
}
-sub is_running {
- my ($self) = shift;
- $self->session->consume_collected_info;
- $self->process_id ? kill 0 => $self->process_id : 0;
-}
+sub is_running { $_[0]->process_id ? kill 0 => $_[0]->process_id : 0; }
sub write_pidfile {
my ($self, $pidfile) = @_;
@@ -426,7 +424,7 @@
sub _getlines {
return unless IO::Select->new($_[0])->can_read(10);
- wantarray ? shift->getlines : join '', @{[shift->getlines]};
+ wantarray ? shift->getlines : join '\n', @{[shift->getlines]};
}
# Write to the controlled-process STDIN
@@ -467,7 +465,7 @@
die "Nothing to do" unless !!$self->execute || !!$self->code;
my @args
- = defined($self->args)
+ = $self->args
? ref($self->args) eq "ARRAY"
? @{$self->args}
: $self->args
@@ -475,8 +473,6 @@
$self->session->enable_subreaper if $self->subreaper;
$self->_status(undef);
- $self->session->enable;
-
if ($self->code) {
$self->_fork($self->code, @args);
@@ -649,7 +645,7 @@
my $output = process( sub { print "Hello\n" }
)->start()->wait_stop->getline;
# Handles seamelessy also external processes:
- my $process = process(execute=> '/path/to/bin' )->args([qw(foo bar baz)]);
+ my $process = process(execute=> '/path/to/bin' )->args(qw(foo bar baz));
$process->start();
my $line_output = $process->getline();
my $pid = $process->pid();
@@ -802,7 +798,7 @@
# The process will print "Hello User"
-Arguments pass to the external binary or the code block. Use arrayref to pass
many.
+Array or arrayref of options to pass by to the external binary or the code
block.
=head2 blocking_stop
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mojo-IOLoop-ReadWriteProcess-0.31/minil.toml
new/Mojo-IOLoop-ReadWriteProcess-0.28/minil.toml
--- old/Mojo-IOLoop-ReadWriteProcess-0.31/minil.toml 2021-12-01
16:51:06.000000000 +0100
+++ new/Mojo-IOLoop-ReadWriteProcess-0.28/minil.toml 2020-09-30
13:53:44.000000000 +0200
@@ -1,5 +1,5 @@
name = "Mojo-IOLoop-ReadWriteProcess"
-badges = ["codecov", "github-actions/linux"]
+badges = ["travis", "codecov"]
module_maker="ModuleBuild"
[build]
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mojo-IOLoop-ReadWriteProcess-0.31/t/01_run.t
new/Mojo-IOLoop-ReadWriteProcess-0.28/t/01_run.t
--- old/Mojo-IOLoop-ReadWriteProcess-0.31/t/01_run.t 2021-12-01
16:51:06.000000000 +0100
+++ new/Mojo-IOLoop-ReadWriteProcess-0.28/t/01_run.t 2020-09-30
13:53:44.000000000 +0200
@@ -301,13 +301,6 @@
$p->stop();
};
-subtest 'process(execute =>"/usr/bin/true")' => sub {
- use Mojo::IOLoop::ReadWriteProcess qw(process);
- plan skip_all => "Missing '/usr/bin/true'" unless -e '/usr/bin/true';
-
- is(process(execute =>
'/usr/bin/true')->quirkiness(1)->start()->wait_stop()->exit_status(), 0,
'Simple exec of "/usr/bin/true" return 0');
-};
-
subtest 'process code()' => sub {
use Mojo::IOLoop::ReadWriteProcess;
use IO::Select;
@@ -547,35 +540,4 @@
'setting MOJO_PROCESS_DEBUG to 1 enables debug mode when executing external
process';
};
-subtest 'process_args' => sub {
- use Mojo::IOLoop::ReadWriteProcess;
- my $code = sub {
- shift;
- print $_.$/ for(@_);
- };
-
- my $p = Mojo::IOLoop::ReadWriteProcess->new($code, args => '0'
)->start->wait_stop();
- is($p->read_all_stdout(), "0$/", '1) False scalar value was given as args.');
-
- $p =
Mojo::IOLoop::ReadWriteProcess->new($code)->args('0')->start->wait_stop();
- is($p->read_all_stdout(), "0$/", '2) False scalar value was given as args.');
-
- $p = Mojo::IOLoop::ReadWriteProcess->new($code, args => [(0..3)]
)->start->wait_stop();
- is($p->read_all_stdout(), "0$/1$/2$/3$/", '1) Args given as arrayref.');
-
- $p =
Mojo::IOLoop::ReadWriteProcess->new($code)->args([(0..3)])->start->wait_stop();
- is($p->read_all_stdout(), "0$/1$/2$/3$/", '2) Args given as arrayref.');
-};
-
-subtest 'process in process' => sub {
- my $p = process(sub {
- is( process(execute =>
'/usr/bin/true')->quirkiness(1)->start()->wait_stop()->exit_status(), 0,
'process(execute) from process(code) -- retval check true');
- is( process(execute =>
'/usr/bin/false')->quirkiness(1)->start()->wait_stop()->exit_status(), 1,
'process(execute) from process(code) -- retval check false');
- is( process(sub { print
'sub-sub-process'})->start()->wait_stop()->read_all_stdout, 'sub-sub-process',
'process(code) works from process(code)');
- print 'DONE';
- })->start()->wait_stop();
-
- is ($p->read_all_stdout(), 'DONE', "Use ReadWriteProcess inside of
ReadWriteProcess(code=>'')");
-};
-
done_testing;
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Mojo-IOLoop-ReadWriteProcess-0.31/t/04_queues.t
new/Mojo-IOLoop-ReadWriteProcess-0.28/t/04_queues.t
--- old/Mojo-IOLoop-ReadWriteProcess-0.31/t/04_queues.t 2021-12-01
16:51:06.000000000 +0100
+++ new/Mojo-IOLoop-ReadWriteProcess-0.28/t/04_queues.t 2020-09-30
13:53:44.000000000 +0200
@@ -5,7 +5,6 @@
use Test::More;
use POSIX;
use FindBin;
-use Time::HiRes 'sleep';
use Mojo::File qw(tempfile path);
use lib ("$FindBin::Bin/lib", "../lib", "lib");
