Group :: Development/Perl
RPM: perl-Mojo-IOLoop-ReadWriteProcess
Main Changelog Spec Patches Sources Download Gear Bugs and FR Repocop
Patch: Mojo-IOLoop-ReadWriteProcess-0.32-alt-usr-bin-true.patch
Download
Download
diff -ru Mojo-IOLoop-ReadWriteProcess-orig/t/01_run.t Mojo-IOLoop-ReadWriteProcess-0.32/t/01_run.t
--- Mojo-IOLoop-ReadWriteProcess-orig/t/01_run.t 2021-12-09 20:04:50.000000000 +0200
+++ Mojo-IOLoop-ReadWriteProcess-0.32/t/01_run.t 2021-12-21 16:25:36.661695817 +0200
@@ -301,10 +301,10 @@
$p->stop();
};
-subtest 'process(execute =>"/usr/bin/true")' => sub {
- plan skip_all => "Missing '/usr/bin/true'" unless -e '/usr/bin/true';
+subtest 'process(execute =>"/bin/true")' => sub {
+ plan skip_all => "Missing '/bin/true'" unless -e '/bin/true';
- is(process(execute => '/usr/bin/true')->quirkiness(1)->start()->wait_stop()->exit_status(), 0, 'Simple exec of "/usr/bin/true" return 0');
+ is(process(execute => '/bin/true')->quirkiness(1)->start()->wait_stop()->exit_status(), 0, 'Simple exec of "/bin/true" return 0');
};
subtest 'process code()' => sub {
@@ -565,8 +565,8 @@
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(execute => '/bin/true')->quirkiness(1)->start()->wait_stop()->exit_status(), 0, 'process(execute) from process(code) -- retval check true');
+ is( process(execute => '/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();
diff -ru Mojo-IOLoop-ReadWriteProcess-orig/t/06_events.t Mojo-IOLoop-ReadWriteProcess-0.32/t/06_events.t
--- Mojo-IOLoop-ReadWriteProcess-orig/t/06_events.t 2021-12-09 20:04:50.000000000 +0200
+++ Mojo-IOLoop-ReadWriteProcess-0.32/t/06_events.t 2021-12-21 16:25:36.661695817 +0200
@@ -98,7 +98,7 @@
};
subtest collect_from_signal_handler => sub {
- my $p = process(execute => '/usr/bin/true');
+ my $p = process(execute => '/bin/true');
my $collected = 0;
my $orphan = 0;
my $sig_chld = 0;
@@ -121,9 +121,9 @@
$p->wait_stop();
is($collected, 1, "No more collect events emitted");
is($orphan, 0, "No more orphans events emitted");
- is($p->exit_status, 0 , '/usr/bin/true exited with 0');
+ is($p->exit_status, 0 , '/bin/true exited with 0');
- exec ('/usr/bin/true') if (fork() == 0);
+ exec ('/bin/true') if (fork() == 0);
attempt {
attempts => 10,
@@ -136,7 +136,7 @@
};
subtest emit_from_sigchld_off => sub {
- my $p = process(execute => '/usr/bin/true');
+ my $p = process(execute => '/bin/true');
my $collected = 0;
my $orphan = 0;
my $sig_chld = 0;
@@ -159,9 +159,9 @@
$p->wait_stop();
is($collected, 1, "No more collect events emitted");
is($orphan, 0, "No more orphans events emitted");
- is($p->exit_status, 0 , '/usr/bin/true exited with 0');
+ is($p->exit_status, 0 , '/bin/true exited with 0');
- exec ('/usr/bin/true') if (fork() == 0);
+ exec ('/bin/true') if (fork() == 0);
attempt {
attempts => 10,
condition => sub { $sig_chld > 1},