/var/lib/pcp/testsuite/738 is in pcp-testsuite 3.9.10.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 | #!/bin/sh
# PCP QA Test No. 738
# Exercise pmlogmv
#
# Copyright (c) 2014 Ken McDonell. All Rights Reserved.
#
seq=`basename $0`
echo "QA output created by $seq"
# get standard environment, filters and checks
. ./common.product
. ./common.filter
. ./common.check
status=1 # failure is the default!
$sudo rm -rf $tmp.* $seq.full
mkdir $tmp
cd $tmp
trap "cd $here; rm -rf $tmp.* $tmp; exit \$status" 0 1 2 3 15
_filter()
{
# there are a lot of bizarre quoting variants for ln(1) error
# messages!
sed \
-e '/^[rwx.-]* /s/.* /... ls data ... /' \
-e 's/`'"/'/g" \
-e 's/‘'"/'/g" \
-e 's/’'"/'/g" \
-e 's/ln: creating hard link/ln: failed to create hard link/'
}
# real QA test starts here
#
echo "=== Usage, no input files, incomplete input archive ==="
pmlogmv
sts=$?
[ $sts -eq 0 ] || echo exit status $sts
pmlogmv foo
sts=$?
[ $sts -eq 0 ] || echo exit status $sts
pmlogmv foo bar
sts=$?
[ $sts -eq 0 ] || echo exit status $sts
cp $here/src/foo.0 .
pmlogmv foo bar >$tmp.out 2>&1
sts=$?
_filter <$tmp.out
[ $sts -eq 0 ] || echo exit status $sts
rm foo.0
cp $here/src/foo.meta .
pmlogmv foo bar >$tmp.out 2>&1
sts=$?
_filter <$tmp.out
[ $sts -eq 0 ] || echo exit status $sts
rm -f foo.* bar.*
echo
echo "=== non-pcp archives and output files already exist ==="
cp $here/src/foo.* .
touch foo.frog
pmlogmv -V foo bar >$tmp.out 2>&1
sts=$?
_filter <$tmp.out
[ $sts -eq 0 ] || echo exit status $sts
ls foo* bar*
rm -f foo.* bar.*
cp $here/src/foo.* .
for i in 0 index meta
do
echo "--- bar.$i already exists ---"
cp $here/src/bar.$i .
pmlogmv -V foo bar >$tmp.out 2>&1
sts=$?
_filter <$tmp.out
[ $sts -eq 0 ] || echo exit status $sts
ls foo* bar*
rm bar.$i
done
rm -f foo.* bar.*
echo
echo "=== simplest case ==="
cp $here/src/foo.* .
pmlogmv -NV foo bar >$tmp.out 2>&1
sts=$?
_filter <$tmp.out
[ $sts -eq 0 ] || echo exit status $sts
pmlogmv -V foo bar >$tmp.out 2>&1
sts=$?
_filter <$tmp.out
[ $sts -eq 0 ] || echo exit status $sts
for part in 0 index meta
do
if cmp $here/src/foo.$part bar.$part
then
:
else
echo "Arrgh ... input foo.$part not the same as output bar.$part"
ls -l $here/src/foo.$part bar.$part
fi
done
ls foo* bar*
rm -f foo.* bar.*
echo
echo "=== single oldfile name cases ==="
for ext in meta 0 index
do
echo "--- foo.$ext ---"
cp $here/src/foo.* .
pmlogmv -V foo.$ext bar >$tmp.out 2>&1
sts=$?
_filter <$tmp.out
[ $sts -eq 0 ] || echo exit status $sts
for part in 0 index meta
do
if cmp $here/src/foo.$part bar.$part
then
:
else
echo "Arrgh ... input foo.$part not the same as output bar.$part"
ls -l $here/src/foo.$part bar.$part
fi
done
ls foo* bar*
rm -f foo.* bar.*
done
echo
echo "=== multi-volume case ==="
cp $here/src/mv-foo.* .
cp mv-foo.2 mv-foo.123456789
pmlogmv -V mv-foo bar >$tmp.out 2>&1
sts=$?
_filter <$tmp.out
[ $sts -eq 0 ] || echo exit status $sts
for opart in 0 1 2 123456789 index meta
do
npart=$opart
[ "$opart" = 123456789 ] && opart=2
if cmp $here/src/mv-foo.$opart bar.$npart
then
:
else
echo "Arrgh ... input mv-foo.$opart not the same as output bar.$npart"
ls -l $here/src/mv-foo.$opart bar.$npart
fi
done
ls foo* bar*
rm -f foo.* bar.*
echo
echo "=== old and new in different directories =="
mkdir new
cp $here/src/mv-foo.* .
pmlogmv -V mv-foo new/mv-foo >$tmp.out 2>&1
sts=$?
_filter <$tmp.out
[ $sts -eq 0 ] || echo exit status $sts
for part in 0 1 2 index meta
do
if cmp $here/src/mv-foo.$part new/mv-foo.$part
then
:
else
echo "Arrgh ... input mv-foo.$part not the same as output new/mv-foo.$part"
ls -l $here/src/mv-foo.$part new/mv-foo.$part
fi
done
ls foo* new/*
rm -rf foo.* new
echo
echo "=== error case for ln failing ==="
mkdir new
chmod u-w,g-w,o-w new
cp $here/src/mv-foo.* .
pmlogmv -V mv-foo new/mv-foo >$tmp.out 2>&1
sts=$?
_filter <$tmp.out
[ $sts -eq 0 ] || echo exit status $sts
ls mv-foo* new/*
rm -rf foo.* new
echo
echo "=== error case for rm failing ==="
mkdir new
chmod u-w,g-w,o-w .
cp $here/src/mv-foo.* .
pmlogmv -V mv-foo new/mv-foo >$tmp.out 2>&1
sts=$?
_filter <$tmp.out
[ $sts -eq 0 ] || echo exit status $sts
ls mv-foo* new/*
chmod u+w,g+w,o+w .
rm -rf mv-foo.* new
echo
echo "=== Frank's error case rm failing after first file ==="
cp $here/src/mv-foo.* .
ln mv-foo.2 mv-foo.3
pmlogmv -V mv-foo mv-bar >$tmp.out 2>&1
sts=$?
_filter <$tmp.out
[ $sts -eq 0 ] || echo exit status $sts
ls mv-foo* mv-bar*
rm -rf mv-foo.* mv-bar.*
# success, all done
status=0
exit
|