tange/parallel
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/parallel.git synced 2024-10-18 12:59:39 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

testsuite: ### bug #39360: --joblog does not work with --pipe.

Browse source
This commit is contained in:
Ole Tange 2013-07-04 17:31:36 +02:00
parent 8f26244149
commit 111fa14f57
4 changed files with 19 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/parallel
View file

@ -3657,7 +3657,7 @@ sub starttime {
# Returns: # Returns:
# UNIX-timestamp this job started # UNIX-timestamp this job started
my $self = shift; my $self = shift;
return $self->{'starttime'}; return sprintf("%.3f",$self->{'starttime'});
} }
sub set_starttime { sub set_starttime {

2
testsuite/tests-to-run/parallel-local4.sh
View file

@ -20,6 +20,6 @@ echo '### -l -n with pipe'
seq 14 | parallel --pipe -k -l 3 -n 2 'cat;echo 6 ln line record' seq 14 | parallel --pipe -k -l 3 -n 2 'cat;echo 6 ln line record'
echo '### bug #39360: --joblog does not work with --pipe' echo '### bug #39360: --joblog does not work with --pipe'
seq 100 | parallel --joblog - --pipe wc seq 100 | parallel --joblog - --pipe wc | tr '0-9' 'X'
EOF EOF

14
testsuite/tests-to-run/parallel-localhost1.sh Normal file
View file

@ -0,0 +1,14 @@
#!/bin/bash
echo '### Test --env all chars except \n,\92,\160 - single and double - no output is good'
# 92 and 160 are special for csh
# This is slow but good for debugging
# perl -e 'for(1..9,9,11..91,91,93..159,159,161..255) { printf "%c%c %c%d\0",$_,$_,$_,$_ }' | stdout parallel --nice 10 -j4 -k -I // --arg-sep _ -0 V=// V2=V2=// parallel --retries 3 -k -j1 -S :,1/lo,1/tcsh@lo,1/csh@lo --env V,V2 echo \''"{}$V$V2"'\' ::: {#} {#} {#} {#} | uniq -c | grep -v ' 4 '|grep -v xauth |grep -v X11
# This is fast
perl -e 'for(1..9,9,11..91,91,93..159,159,161..255) { printf "%c",$_ } printf "\0"' |
stdout parallel -k -I // --arg-sep _ -0 V=// V2=V2=// parallel -k -S 1/:,1/lo,1/tcsh@lo,1/csh@lo --onall --env V,V2 echo \''"{}$V$V2"'\' ::: {#} | uniq -c | grep -v ' 4 '|grep -v xauth |grep -v X11
echo '### bug #37262: --slf + --filter-hosts fails'
parallel --nonall --filter-hosts --sshloginfile <(echo localhost) echo OK

6
testsuite/wanted-results/parallel-local4
View file

@ -89,7 +89,7 @@ echo '### -l -n with pipe'
6 ln line record 6 ln line record
echo '### bug #39360: --joblog does not work with --pipe' echo '### bug #39360: --joblog does not work with --pipe'
### bug #39360: --joblog does not work with --pipe ### bug #39360: --joblog does not work with --pipe
seq 100 | parallel --joblog - --pipe wc seq 100 | parallel --joblog - --pipe wc | tr '0-9' 'X'
Seq Host Starttime Runtime Send Receive Exitval Signal Command Seq Host Starttime Runtime Send Receive Exitval Signal Command
1 : 1372951218.155 0.246 0 0 0 0 wc X : XXXXXXXXXX.XXX X.XXX X X X X wc
100 100 292 XXX XXX XXX