parallel/testsuite/tests-to-run/parallel-local21.sh

320 lines
7.7 KiB
Bash
Raw Permalink Normal View History

2012-11-22 11:10:45 +00:00
#!/bin/bash
2024-01-24 01:02:07 +00:00
# SPDX-FileCopyrightText: 2021-2024 Ole Tange, http://ole.tange.dk and Free Software and Foundation, Inc.
#
# SPDX-License-Identifier: GPL-3.0-or-later
tmp="$(mktemp -d)"
# Test with tmpdir with spaces
TMPDIR="$tmp/ "
export TMPDIR
mkdir -p "$TMPDIR"
2016-08-13 17:11:15 +00:00
par_basic_shebang_wrap() {
echo "### Test basic --shebang-wrap"
script="$TMPDIR"/basic--shebang-wrap
qscript=$(parallel -0 --shellquote ::: "$script")
cat <<EOF > "$script"
#!/usr/local/bin/parallel --shebang-wrap -k /usr/bin/perl
2012-11-22 11:10:45 +00:00
print "Shebang from perl with args @ARGV\n";
EOF
chmod 755 "$script"
args() { echo arg1; echo arg2; echo "arg3.1 arg3.2"; }
"$script" "$(args)"
2016-08-13 17:11:15 +00:00
echo "### Test basic --shebang-wrap Same as"
parallel -k /usr/bin/perl "$qscript" ::: "$(args)"
2016-08-13 17:11:15 +00:00
echo "### Test basic --shebang-wrap stdin"
args | "$script"
2016-08-13 17:11:15 +00:00
echo "### Test basic --shebang-wrap Same as"
args | parallel -k /usr/bin/perl "$qscript"
rm "$script"
2016-08-13 17:11:15 +00:00
}
2016-08-13 17:11:15 +00:00
par_shebang_with_parser_options() {
seq 1 2 >/tmp/in12
seq 4 5 >/tmp/in45
echo "### Test --shebang-wrap with parser options"
script="$TMPDIR"/with-parser--shebang-wrap
qscript=$(parallel -0 --shellquote ::: "$script")
cat <<EOF > "$script"
#!/usr/local/bin/parallel --shebang-wrap -k /usr/bin/perl -p
2012-11-22 11:10:45 +00:00
print "Shebang from perl with args @ARGV\n";
EOF
chmod 755 "$script"
"$script" /tmp/in12 /tmp/in45
2016-08-13 17:11:15 +00:00
echo "### Test --shebang-wrap with parser options Same as"
parallel -k /usr/bin/perl -p "$qscript" ::: /tmp/in12 /tmp/in45
2016-08-13 17:11:15 +00:00
echo "### Test --shebang-wrap with parser options stdin"
(echo /tmp/in12; echo /tmp/in45) | "$script"
2016-08-13 17:11:15 +00:00
echo "### Test --shebang-wrap with parser options Same as"
(echo /tmp/in12; echo /tmp/in45) | parallel -k /usr/bin/perl "$qscript"
rm "$script"
2016-08-13 17:11:15 +00:00
echo "### Test --shebang-wrap --pipe with parser options"
script="$TMPDIR"/pipe--shebang-wrap
qscript=$(parallel -0 --shellquote ::: "$script")
cat <<EOF > "$script"
2012-12-28 20:30:30 +00:00
#!/usr/local/bin/parallel --shebang-wrap -k --pipe /usr/bin/perl -p
2012-11-22 11:10:45 +00:00
print "Shebang from perl with args @ARGV\n";
EOF
chmod 755 "$script"
2016-08-13 17:11:15 +00:00
echo "### Test --shebang-wrap --pipe with parser options stdin"
cat /tmp/in12 /tmp/in45 | "$script"
2016-08-13 17:11:15 +00:00
echo "### Test --shebang-wrap --pipe with parser options Same as"
cat /tmp/in12 /tmp/in45 | parallel -k --pipe /usr/bin/perl\ -p "$qscript"
rm "$script"
2016-08-13 17:11:15 +00:00
rm /tmp/in12
rm /tmp/in45
}
par_shebang_wrap_perl() {
script="$TMPDIR"/shebang_wrap_perl
cat <<'EOF' > "$script"
2016-08-13 17:11:15 +00:00
#!/usr/local/bin/parallel --shebang-wrap -k /usr/bin/perl
print "Arguments @ARGV\n";
EOF
chmod 755 "$script"
"$script" arg1 arg2 "arg3.1 arg3.2"
rm "$script"
2016-08-13 17:11:15 +00:00
}
par_shebang_wrap_python() {
script="$TMPDIR"/shebang_wrap_python
cat <<'EOF' > "$script"
2020-06-22 22:34:52 +00:00
#!/usr/local/bin/parallel --shebang-wrap -k /usr/bin/python3
2016-08-13 17:11:15 +00:00
import sys
sys.argv.pop(0)
2020-06-22 22:34:52 +00:00
print('Arguments', str(sys.argv))
2016-08-13 17:11:15 +00:00
EOF
chmod 755 "$script"
"$script" arg1 arg2 "arg3.1 arg3.2"
rm "$script"
2016-08-13 17:11:15 +00:00
}
par_shebang_wrap_bash() {
script="$TMPDIR"/shebang_wrap_bash
cat <<'EOF' > "$script"
2016-08-13 17:11:15 +00:00
#!/usr/local/bin/parallel --shebang-wrap -k /bin/bash
echo Arguments "$@"
EOF
chmod 755 "$script"
"$script" arg1 arg2 "arg3.1 arg3.2"
rm "$script"
2016-08-13 17:11:15 +00:00
}
par_shebang_wrap_sh() {
script="$TMPDIR"/shebang_wrap_sh
cat <<'EOF' > "$script"
2016-08-13 17:11:15 +00:00
#!/usr/local/bin/parallel --shebang-wrap -k /bin/sh
echo Arguments "$@"
EOF
chmod 755 "$script"
"$script" arg1 arg2 "arg3.1 arg3.2"
rm "$script"
2016-08-13 17:11:15 +00:00
}
par_shebang_wrap_ksh() {
script="$TMPDIR"/shebang_wrap_ksh
cat <<'EOF' > "$script"
2016-08-13 17:11:15 +00:00
#!/usr/local/bin/parallel --shebang-wrap -k /usr/bin/ksh
echo Arguments "$@"
EOF
chmod 755 "$script"
"$script" arg1 arg2 "arg3.1 arg3.2"
rm "$script"
2016-08-13 17:11:15 +00:00
}
par_shebang_wrap_zsh() {
script="$TMPDIR"/shebang_wrap_zsh
cat <<'EOF' > "$script"
2016-08-13 17:11:15 +00:00
#!/usr/local/bin/parallel --shebang-wrap -k /usr/bin/zsh
echo Arguments "$@"
EOF
chmod 755 "$script"
"$script" arg1 arg2 "arg3.1 arg3.2"
rm "$script"
2016-08-13 17:11:15 +00:00
}
par_shebang_wrap_csh() {
script="$TMPDIR"/shebang_wrap_csh
cat <<'EOF' > "$script"
2016-08-13 17:11:15 +00:00
#!/usr/local/bin/parallel --shebang-wrap -k /bin/csh
echo Arguments "$argv"
EOF
chmod 755 "$script"
"$script" arg1 arg2 "arg3.1 arg3.2"
rm "$script"
2016-08-13 17:11:15 +00:00
}
par_shebang_wrap_tcl() {
script="$TMPDIR"/shebang_wrap_tcl
cat <<'EOF' > "$script"
2016-08-13 17:11:15 +00:00
#!/usr/local/bin/parallel --shebang-wrap -k /usr/bin/tclsh
puts "Arguments $argv"
EOF
chmod 755 "$script"
"$script" arg1 arg2 "arg3.1 arg3.2"
rm "$script"
2016-08-13 17:11:15 +00:00
}
par_shebang_wrap_R() {
# Rscript fucks up if $TMPDIR contains space
TMPDIR=/tmp
script="$TMPDIR"/shebang_wrap_R
cat <<'EOF' > "$script"
2016-08-13 17:11:15 +00:00
#!/usr/local/bin/parallel --shebang-wrap -k /usr/bin/Rscript --vanilla --slave
args <- commandArgs(trailingOnly = TRUE)
print(paste("Arguments ",args))
EOF
chmod 755 "$script"
"$script" arg1 arg2 "arg3.1 arg3.2"
rm "$script"
2016-08-13 17:11:15 +00:00
}
2016-08-13 17:11:15 +00:00
par_shebang_wrap_gnuplot() {
script="$TMPDIR"/shebang_wrap_gnuplot
cat <<'EOF' > "$script"
2016-08-13 17:11:15 +00:00
#!/usr/local/bin/parallel --shebang-wrap -k ARG={} /usr/bin/gnuplot
2024-05-22 20:55:05 +00:00
print "Arguments ", system('echo "$ARG"')
2016-08-13 17:11:15 +00:00
EOF
chmod 755 "$script"
2024-05-22 20:55:05 +00:00
stdout "$script" arg1 arg2 "arg3.1 arg3.2" |
# Gnuplot 6.0 inserts an extra space
perl -pe 's/rguments /rguments /'
rm "$script"
2016-08-13 17:11:15 +00:00
}
par_shebang_wrap_ruby() {
script="$TMPDIR"/shebang_wrap_ruby
cat <<'EOF' > "$script"
2016-08-13 17:11:15 +00:00
#!/usr/local/bin/parallel --shebang-wrap -k /usr/bin/ruby
print "Arguments "
puts ARGV
EOF
chmod 755 "$script"
"$script" arg1 arg2 "arg3.1 arg3.2"
rm "$script"
2016-08-13 17:11:15 +00:00
}
par_shebang_wrap_octave() {
script="$TMPDIR"/shebang_wrap_octave
2023-09-17 02:48:25 +00:00
unset DISPLAY
cat <<'EOF' > "$script"
2016-08-13 17:11:15 +00:00
#!/usr/local/bin/parallel --shebang-wrap -k /usr/bin/octave
printf ("Arguments");
arg_list = argv ();
for i = 1:nargin
printf (" %s", arg_list{i});
endfor
printf ("\n");
EOF
chmod 755 "$script"
"$script" arg1 arg2 "arg3.1 arg3.2"
rm "$script"
2016-08-13 17:11:15 +00:00
}
par_shebang_wrap_clisp() {
# clisp cannot handle dirs w/ shell wildcards
TMPDIR=/tmp
script="$TMPDIR"/shebang_wrap_clisp
cat <<'EOF' > "$script"
2016-08-13 17:11:15 +00:00
#!/usr/local/bin/parallel --shebang-wrap -k /usr/bin/clisp
(format t "~&~S~&" 'Arguments)
(format t "~&~S~&" *args*)
EOF
chmod 755 "$script"
"$script" arg1 arg2 "arg3.1 arg3.2"
rm "$script"
2016-08-13 17:11:15 +00:00
}
par_shebang_wrap_php() {
script="$TMPDIR"/shebang_wrap_php
cat <<'EOF' > "$script"
2016-08-13 17:11:15 +00:00
#!/usr/local/bin/parallel --shebang-wrap -k /usr/bin/php
<?php
echo "Arguments";
foreach(array_slice($argv,1) as $v)
{
echo " $v";
}
echo "\n";
?>
EOF
chmod 755 "$script"
"$script" arg1 arg2 "arg3.1 arg3.2"
rm "$script"
2016-08-13 17:11:15 +00:00
}
par_shebang_wrap_nodejs() {
script="$TMPDIR"/shebang_wrap_nodejs
cat <<'EOF' > "$script"
2016-08-13 17:11:15 +00:00
#!/usr/local/bin/parallel --shebang-wrap -k /usr/bin/node
var myArgs = process.argv.slice(2);
console.log('Arguments ', myArgs);
EOF
chmod 755 "$script"
"$script" arg1 arg2 "arg3.1 arg3.2"
rm "$script"
2016-08-13 17:11:15 +00:00
}
par_shebang_wrap_lua() {
script="$TMPDIR"/shebang_wrap_lua
cat <<'EOF' > "$script"
2016-08-13 17:11:15 +00:00
#!/usr/local/bin/parallel --shebang-wrap -k /usr/bin/lua
io.write "Arguments"
for a = 1, #arg do
io.write(" ")
io.write(arg[a])
end
print("")
EOF
chmod 755 "$script"
"$script" arg1 arg2 "arg3.1 arg3.2"
rm "$script"
2016-08-13 17:11:15 +00:00
}
par_shebang_wrap_csharp() {
script="$TMPDIR"/shebang_wrap_csharp
cat <<'EOF' > "$script"
2016-08-13 17:11:15 +00:00
#!/usr/local/bin/parallel --shebang-wrap -k ARGV={} /usr/bin/csharp
var argv = Environment.GetEnvironmentVariable("ARGV");
print("Arguments "+argv);
EOF
chmod 755 "$script"
"$script" arg1 arg2 "arg3.1 arg3.2"
rm "$script"
2016-08-13 17:11:15 +00:00
}
2012-11-22 11:10:45 +00:00
2016-08-13 17:11:15 +00:00
export -f $(compgen -A function | grep par_)
# Tested with -j1..8
# -j6 was fastest
#compgen -A function | grep par_ | sort | parallel -j$P --tag -k '{} 2>&1'
2024-05-22 20:55:05 +00:00
compgen -A function | G par_ "$@" | LC_ALL=C sort |
parallel -j6 --tag -k '{} 2>&1'
rmdir "$TMPDIR" "$tmp"