tange/parallel
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/parallel.git synced 2024-11-26 07:57:58 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

parallel-local22.sh: Testsuite for #42999.

Browse source
This commit is contained in:
Ole Tange 2014-08-25 07:06:13 +02:00
parent fd85a50d14
commit 53883d3e31
5 changed files with 52 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/parallel
View file

@ -5201,8 +5201,8 @@ sub sshlogin_wrap {
if(@Global::cat_partials) { if(@Global::cat_partials) {
# Prepend: # Prepend:
# < /tmp/foo perl -e 'while(@ARGV) { sysseek(STDIN,shift,0) || die; $left = shift; while($read = sysread(STDIN,$buf, ($left > 32768 ? 32768 : $left))){ $left -= $read; syswrite(STDOUT,$buf); } }' 0 0 0 11 | # < /tmp/foo perl -e 'while(@ARGV) { sysseek(STDIN,shift,0) || die; $left = shift; while($read = sysread(STDIN,$buf, ($left > 32768 ? 32768 : $left))){ $left -= $read; syswrite(STDOUT,$buf); } }' 0 0 0 11 |
$self->{'sshlogin_wrap'} = (pop @Global::cat_partials). "|". $self->{'sshlogin_wrap'} = (shift @Global::cat_partials). "|".
$next_command_line; "(". $next_command_line. ")";
} else { } else {
$self->{'sshlogin_wrap'} = $next_command_line; $self->{'sshlogin_wrap'} = $next_command_line;
} }
@ -5210,7 +5210,7 @@ sub sshlogin_wrap {
# --transfer # --transfer
$pre .= $self->sshtransfer(); $pre .= $self->sshtransfer();
if(@Global::cat_partials) { if(@Global::cat_partials) {
$pre .= (pop @Global::cat_partials)."|"; $pre .= (shift @Global::cat_partials)."|";
} }
# --return # --return
$post .= $self->sshreturn(); $post .= $self->sshreturn();

8
src/parallel_tutorial.1
View file

@ -2776,6 +2776,9 @@ I hope you have learned something from this tutorial.
.PP .PP
If you like \s-1GNU\s0 Parallel: If you like \s-1GNU\s0 Parallel:
.IP "\(bu" 2 .IP "\(bu" 2
(Re\-)walk through the tutorial if you have not done so in the past year
(http://www.gnu.org/software/parallel/parallel_tutorial.html)
.IP "\(bu" 2
Give a demo at your local user group/team/colleagues Give a demo at your local user group/team/colleagues
.IP "\(bu" 2 .IP "\(bu" 2
Post the intro videos and the tutorial on Reddit, Diaspora*, Post the intro videos and the tutorial on Reddit, Diaspora*,
@ -2792,6 +2795,7 @@ Please cite \s-1GNU\s0 Parallel in you publications (use \-\-bibtex)
.PP .PP
If \s-1GNU\s0 Parallel saves you money: If \s-1GNU\s0 Parallel saves you money:
.IP "\(bu" 2 .IP "\(bu" 2
(Have your company) donate to \s-1FSF\s0 https://my.fsf.org/donate/ (Have your company) donate to \s-1FSF\s0 or become a member
https://my.fsf.org/donate/
.PP .PP
(C) 20140622 Ole Tange GPLv3 (C) 2013,2014 Ole Tange, GPLv3

7
src/parallel_tutorial.html
View file

@ -2102,6 +2102,9 @@
<ul> <ul>
<li><p>(Re-)walk through the tutorial if you have not done so in the past year (http://www.gnu.org/software/parallel/parallel_tutorial.html)</p>
</li>
<li><p>Give a demo at your local user group/team/colleagues</p> <li><p>Give a demo at your local user group/team/colleagues</p>
</li> </li>
@ -2129,12 +2132,12 @@
<ul> <ul>
<li><p>(Have your company) donate to FSF https://my.fsf.org/donate/</p> <li><p>(Have your company) donate to FSF or become a member https://my.fsf.org/donate/</p>
</li> </li>
</ul> </ul>
<p>(C) 20140622 Ole Tange GPLv3</p> <p>(C) 2013,2014 Ole Tange, GPLv3</p>
</body> </body>

8
testsuite/tests-to-run/parallel-local22.sh
View file

@ -49,7 +49,13 @@ echo '### bug #42363: --pipepart and --fifo/--cat does not work'
parallel --pipepart --block 31 -a /tmp/bug42363 -k --fifo wc | perl -pe s:/tmp/.........pip:/tmp/XXXX: ; parallel --pipepart --block 31 -a /tmp/bug42363 -k --fifo wc | perl -pe s:/tmp/.........pip:/tmp/XXXX: ;
parallel --pipepart --block 31 -a /tmp/bug42363 -k --cat wc | perl -pe s:/tmp/.........pip:/tmp/XXXX: ; parallel --pipepart --block 31 -a /tmp/bug42363 -k --cat wc | perl -pe s:/tmp/.........pip:/tmp/XXXX: ;
echo '### bug #42055: --pipe -a bigfile should not require sequential reading of bigfile' echo '### bug #42999: --pipepart with remote does not work'
seq 100 > /tmp/bug42999; chmod 600 /tmp/bug42999;
parallel --pipepart --block 31 -a /tmp/bug42999 -k -S parallel@lo wc | perl -pe s:/tmp/.........pip:/tmp/XXXX: ;
parallel --pipepart --block 31 -a /tmp/bug42999 -k --fifo -S parallel@lo wc | perl -pe s:/tmp/.........pip:/tmp/XXXX: ;
parallel --pipepart --block 31 -a /tmp/bug42999 -k --cat -S parallel@lo wc | perl -pe s:/tmp/.........pip:/tmp/XXXX: ;
echo '### bug #42055: --pipepart -a bigfile should not require sequential reading of bigfile'
parallel --pipepart -a /etc/passwd -L 1 should not be run parallel --pipepart -a /etc/passwd -L 1 should not be run
parallel --pipepart -a /etc/passwd -N 1 should not be run parallel --pipepart -a /etc/passwd -N 1 should not be run
parallel --pipepart -a /etc/passwd -l 1 should not be run parallel --pipepart -a /etc/passwd -l 1 should not be run

33
testsuite/wanted-results/parallel-local22
View file

@ -43,7 +43,7 @@ echo '### bug #42041: Implement $PARALLEL_JOBSLOT'
2 2
echo '### bug #42363: --pipepart and --fifo/--cat does not work' echo '### bug #42363: --pipepart and --fifo/--cat does not work'
### bug #42363: --pipepart and --fifo/--cat does not work ### bug #42363: --pipepart and --fifo/--cat does not work
seq 100 > /tmp/bug42363; parallel --pipepart --block 31 -a /tmp/bug42363 -k --fifo wc | perl -pe s:/tmp/.........pip:/tmp/XXXX: ; parallel --pipepart --block 31 -a /tmp/bug42363 -k --cat wc | perl -pe s:/tmp/.........pip:/tmp/XXXX: ; echo '### bug #42055: --pipe -a bigfile should not require sequential reading of bigfile' seq 100 > /tmp/bug42363; parallel --pipepart --block 31 -a /tmp/bug42363 -k --fifo wc | perl -pe s:/tmp/.........pip:/tmp/XXXX: ; parallel --pipepart --block 31 -a /tmp/bug42363 -k --cat wc | perl -pe s:/tmp/.........pip:/tmp/XXXX: ; echo '### bug #42999: --pipepart with remote does not work'
13 14 32 /tmp/XXXX 13 14 32 /tmp/XXXX
11 11 33 /tmp/XXXX 11 11 33 /tmp/XXXX
11 11 33 /tmp/XXXX 11 11 33 /tmp/XXXX
@ -62,7 +62,36 @@ echo '### bug #42363: --pipepart and --fifo/--cat does not work'
11 11 33 /tmp/XXXX 11 11 33 /tmp/XXXX
11 11 33 /tmp/XXXX 11 11 33 /tmp/XXXX
10 9 29 /tmp/XXXX 10 9 29 /tmp/XXXX
### bug #42055: --pipe -a bigfile should not require sequential reading of bigfile ### bug #42999: --pipepart with remote does not work
seq 100 > /tmp/bug42999; chmod 600 /tmp/bug42999; parallel --pipepart --block 31 -a /tmp/bug42999 -k -S parallel@lo wc | perl -pe s:/tmp/.........pip:/tmp/XXXX: ; parallel --pipepart --block 31 -a /tmp/bug42999 -k --fifo -S parallel@lo wc | perl -pe s:/tmp/.........pip:/tmp/XXXX: ; parallel --pipepart --block 31 -a /tmp/bug42999 -k --cat -S parallel@lo wc | perl -pe s:/tmp/.........pip:/tmp/XXXX: ; echo '### bug #42055: --pipepart -a bigfile should not require sequential reading of bigfile'
13 14 32
11 11 33
11 11 33
11 11 33
11 11 33
11 11 33
11 11 33
11 11 33
10 9 29
13 14 32 /tmp/XXXX
11 11 33 /tmp/XXXX
11 11 33 /tmp/XXXX
11 11 33 /tmp/XXXX
11 11 33 /tmp/XXXX
11 11 33 /tmp/XXXX
11 11 33 /tmp/XXXX
11 11 33 /tmp/XXXX
10 9 29 /tmp/XXXX
13 14 32 /tmp/XXXX
11 11 33 /tmp/XXXX
11 11 33 /tmp/XXXX
11 11 33 /tmp/XXXX
11 11 33 /tmp/XXXX
11 11 33 /tmp/XXXX
11 11 33 /tmp/XXXX
11 11 33 /tmp/XXXX
10 9 29 /tmp/XXXX
### bug #42055: --pipepart -a bigfile should not require sequential reading of bigfile
parallel --pipepart -a /etc/passwd -L 1 should not be run parallel --pipepart -a /etc/passwd -L 1 should not be run
parallel: Error: --pipepart is incompatible with --max-replace-args, --max-lines, and -L. parallel: Error: --pipepart is incompatible with --max-replace-args, --max-lines, and -L.
parallel --pipepart -a /etc/passwd -N 1 should not be run parallel --pipepart -a /etc/passwd -N 1 should not be run