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

41 lines
1.2 KiB
Bash
Raw Normal View History

2007-09-10 20:28:03 +00:00
#!/bin/bash
rm -rf tmp 2>/dev/null
cd input-files
tar xjf random_dirs_no_newline.tar.bz2
cd ..
cp -a input-files/random_dirs_no_newline tmp
cd tmp
2010-07-09 13:24:24 +00:00
echo '### Tests if special dir names causes problems'
ls | parallel -v touch -- {}/abc-{}-{} 2>&1 | perl -e 'print sort (<>)' | md5sum
2007-09-10 20:28:03 +00:00
echo -n 'There are '
find . -type d -print0 | perl -0 -ne '$a++;END{print $a}'
echo -n ' dirs with '
find . -type f -print0 | perl -0 -ne '$a++;END{print $a}'
echo ' files'
echo 'Removing files'
2010-07-09 13:24:24 +00:00
ls | parallel -v rm -- {}/abc-{}-{} 2>&1 | perl -e 'print sort (<>)' | md5sum
2007-09-10 20:28:03 +00:00
echo -n 'There are '
find . -type d -print0 | perl -0 -ne '$a++;END{print $a}'
echo -n ' dirs with '
find . -type f -print0 | perl -0 -ne '$a++;END{print $a}'
echo ' files'
echo 'Removing dirs'
2010-07-09 13:24:24 +00:00
ls | parallel -v rmdir -- {} 2>&1 | perl -e 'print sort (<>)' | md5sum
2007-09-10 20:28:03 +00:00
echo -n 'There are '
find . -type d -print0 | perl -0 -ne '$a++;END{print $a}'
echo -n ' dirs with '
find . -type f -print0 | perl -0 -ne '$a++;END{print $a}'
echo ' files'
2010-07-09 13:24:24 +00:00
echo '### Tests name ending in \n causes problems'
echo newline1 >'newline1
'
echo newline2 >'newline2
'
find newli* -print0 | parallel -0 cat {} ">" {}.bak
find newli* -print0 | sort -z
2007-09-10 20:28:03 +00:00
cd ..
rm -rf tmp