File: 681

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 (111 lines) | stat: -rwxr-xr-x 2,687 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
#!/bin/sh
# PCP QA Test No. 681
# Exercise __pmProcessExec() and friends from libpcp with valgrind
# ... same test as 036 (that one's without valgrind)
#
# Copyright (c) 2017-2018 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

_check_valgrind

_cleanup()
{
    cd $here
    $sudo rm -rf $tmp $tmp.*
}

# filter pid's in lines like ...
# __pmProcessExec: pid=1965 wait_pid=1965
# __pmProcessPipe: map[0 of 1] child pid=1695 fp=0x55eb928fdd20
#
# also the order of stderr is not deterministic ... parent and child
# are both writing here, so sort this bit
#
_filter()
{
    tee -a $seq_full \
    | sed \
	-e 's/pid=[0-9][0-9]*/pid=PID/g' \
	-e 's/fp=[^ ]*/fp=ADDR/' \
	-e "s@$tmp@TMP@g" \
    | $PCP_AWK_PROG '
BEGIN		{ state = 1 }
/^=== filtered/	{ state = 3 }
		{ print >"'$tmp'." state }
/^=== std err/	{ state = 2 }'
    cat $tmp.1
    [ -s $tmp.2 ] && LC_COLLATE=POSIX sort $tmp.2
    [ -s $tmp.3 ] && cat $tmp.3
}

# whitespace in od(1) output is not consistent across platforms
#
_od_filter()
{
    sed \
	-e 's/  */ /g' \
	-e 's/ $//' \
    # end
}

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

# real QA test starts here
echo "=== success cases ==="
echo "--- echo ---"
_run_valgrind src/exectest -Dexec -- /bin/echo 'blah;trickme' 2>&1 | _filter
echo "--- /bin/sh -c ---"
_run_valgrind src/exectest -Dexec -- /bin/sh -c "echo 'f o o'; kill -TERM \$\$; sleep 1; echo b\\ a\\ r" 2>&1 | _filter
echo "--- pipe in ---"
_run_valgrind src/exectest -Dexec -p -- echo hullo world 2>&1 | _filter
echo "--- pipe out ---"
echo "hello other world" >$tmp.data
_run_valgrind src/exectest -Dexec -P $tmp.data -- od -c 2>&1 | _filter | _od_filter
echo "---  exec and executable not on \$PATH ---"
cat <<'End-of-File' >$tmp.sh
#!/bin/sh
echo "my arg echoer ..."
echo "[0] $0"
i=0
while true
do
    i=`expr $i + 1`
    echo "[$i] $1"
    [ $# -eq 1 ] && break
    shift
done
exit 0
End-of-File
chmod 755 $tmp.sh
_run_valgrind src/exectest -Dexec $tmp.sh 'blah;trickme|foo' cat and dog 2>&1 | _filter
echo "---  popen and executable not on \$PATH ---"
_run_valgrind src/exectest -Dexec -p $tmp.sh 'blah;trickme|foo' cat and dog 2>&1 | _filter

echo
echo "=== error and failure cases ==="
# plug leak in test program, sometimes (probably in child that fails
# execvp()
#
cat <<'End-of-File' >$tmp.suppress
{
   foo
   Memcheck:Leak
   fun:malloc
   fun:main
}
End-of-File
grind_extra="--suppressions=$tmp.suppress"
_run_valgrind src/exectest -Dexec -- /a/b/c -f oo bar 2>&1 | _filter

# success, all done
status=0
exit