File: 1427

package info (click to toggle)
pcp 7.1.0-1
  • links: PTS
  • area: main
  • in suites: forky, sid
  • size: 252,748 kB
  • sloc: ansic: 1,483,656; sh: 182,366; xml: 160,462; cpp: 83,813; python: 24,980; perl: 18,327; yacc: 6,877; lex: 2,864; makefile: 2,738; awk: 165; fortran: 60; java: 52
file content (123 lines) | stat: -rwxr-xr-x 2,652 bytes parent folder | download
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
#!/bin/sh
# PCP QA Test No. 1427
# checkout new -c (checksum) option to pmlogmv
#
# Copyright (c) 2022 Ken McDonell.  All Rights Reserved.
#

if [ $# -eq 0 ]
then
    seq=`basename $0`
    echo "QA output created by $seq"
else
    # use $seq from caller, unless not set
    [ -n "$seq" ] || seq=`basename $0`
    echo "QA output created by `basename $0` $*"
fi

# get standard environment, filters and checks
. ./common.product
. ./common.filter
. ./common.check

# need cross-mount-point temp dir so pmlogmv uses cp rather than ln
#
myfs=`df -P . | sed -n -e '$s/ .*//p'`
tmpdir=''
for d in /tmp /var/tmp
do
    if [ "$myfs" != `df -P "$d" | sed -n -e '$s/ .*//p'` ]
    then
	tmpdir="$d"
	break
    fi
done
[ -z "$tmpdir" ] && _notrun "need /tmp or /var/tmp on a different filesystem to $myfs"

_cleanup()
{
    cd $here
    $sudo rm -rf $seq.tmp $tmp $tmp.* $tmpdir/foo+.*
}

status=0	# success is the default!
trap "_cleanup; exit \$status" 0 1 2 3 15

_filter()
{
    tee -a $seq_full \
    | sed \
	-e '/ cmd: /s/cmd: .*/cmd: .../' \
	-e '/ checksum: /s/sum: .*/sum: .../' \
    # end
}

_filter_ls()
{
    sed \
	-e "s/ '/ /" \
	-e "s/':/:/" \
    # end
}

rm -rf $seq.tmp
mkdir $seq.tmp
cd $seq.tmp

# real QA test starts here

echo "=== no errors case ==="
rm -f foo+.*
pmlogcp ../archives/foo+ .
rm -f $tmpdir/foo+.*
pmlogmv -c foo+ $tmpdir/foo+
echo "src ..."; (ls foo+.* 2>&1 | _filter_ls)
echo "dest ..."; (cd $tmpdir; ls foo+.* 2>&1 | _filter_ls)

echo
echo "=== no errors with -v case ==="
rm -f foo+.*
pmlogcp ../archives/foo+ .
rm -f $tmpdir/foo+.*
pmlogmv -cV foo+ $tmpdir/foo+ 2>&1 | _filter
echo "src ..."; (ls foo+.* 2>&1 | _filter_ls)
echo "dest ..."; (cd $tmpdir; ls foo+.* 2>&1 | _filter_ls)

echo
echo "=== fake out a checksum failure ==="
cat <<'End-of-File' >md5sum
#!/bin/sh
[ -f ctr ] || echo 0 >ctr
echo "deadbeef0123456789`cat ctr` fake"
echo `expr $ctr + 1` >ctr
End-of-File
chmod 755 md5sum
# Make sure $PATH includes . ... was causing failures in CI
# containers
#
PATH=.:$PATH; export PATH
rm -f foo+.*
pmlogcp ../archives/foo+ .
rm -f $tmpdir/foo+.*
pmlogmv -c foo+ $tmpdir/foo+ 2>&1 | _filter
echo "src ..."; (ls foo+.* 2>&1 | _filter_ls)
echo "dest ..."; (cd $tmpdir; ls foo+.* 2>&1 | _filter_ls)
rm md5sum

echo
echo "=== fake out no checksum command ==="
cat <<'End-of-File' >cp
#!/bin/sh
PATH=/bin:/usr/bin cp $*
End-of-File
chmod 755 cp
rm -f foo+.*
pmlogcp ../archives/foo+ .
rm -f $tmpdir/foo+.*
pmlogmv=`which pmlogmv`
( PATH=. $pmlogmv -cV foo+ $tmpdir/foo+ ) 2>&1 | _filter
echo "src ..."; (ls foo+.* 2>&1 | _filter_ls)
echo "dest ..."; (cd $tmpdir; ls foo+.* 2>&1 | _filter_ls)

# success, all done
exit