File: 604

package info (click to toggle)
pcp 4.3.2%2Breally4.3.1-0.1
  • links: PTS
  • area: main
  • in suites: buster
  • size: 175,188 kB
  • sloc: ansic: 261,305; sh: 123,606; xml: 107,279; cpp: 72,127; perl: 18,283; python: 15,453; yacc: 8,249; lex: 2,585; makefile: 1,957; fortran: 60; java: 52
file content (106 lines) | stat: -rwxr-xr-x 2,407 bytes parent folder | download | duplicates (5)
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
#!/bin/sh
# PCP QA Test No. 604
# pmlogextract, then pmlogextract again (no nested mark record processing)
# See also qa/203 for the old pmlogextract <mark> handling logic.
#
# Copyright (c) 1995-2002 Silicon Graphics, Inc.  All Rights Reserved.
#

seq=`basename $0`
echo "QA output created by $seq"

# get standard filters
. ./common.product
. ./common.filter

trap "rm -f $tmp.*; exit" 0 1 2 3 15

# real QA test starts here
_filter()
{
    pmdumplog $1 \
    | $PCP_AWK_PROG '
/<mark>/	{ mark++; next }
/^[0-9][0-9]:[0-9][0-9]:[0-9][0-9]\./	{ rec++ }
END		{ printf "%d records",rec
		  if (mark) printf ", and %d marks",mark
		  print ""
		}'
    pmdumplog $1 \
    | $PCP_AWK_PROG >$1.stamp '
/<mark>/	{ print $1 "-mark"; next }
/^[0-9][0-9]:[0-9][0-9]:[0-9][0-9]\./	{ print $1 }'
}

# real QA test starts here
rm -f $tmp.A.*
echo "log mandatory on 20 msec sample.milliseconds" \
| pmlogger -s 4 $tmp.A >/dev/null 2>&1
echo
echo log.A
_filter $tmp.A

rm -f $tmp.B.*
echo "log mandatory on 25 msec sample.milliseconds" \
| pmlogger -s 5 $tmp.B >/dev/null 2>&1
echo
echo log.B
_filter $tmp.B

rm -f $tmp.C.*
pmlogextract $tmp.A $tmp.B $tmp.C
echo
echo "log.C == pmlogextract log.A log.B"
_filter $tmp.C

echo
echo "mismatch timestamps"
cat $tmp.A.stamp $tmp.B.stamp \
| comm -3 - $tmp.C.stamp \
| sed -e 's/[0-9][0-9]:[0-9][0-9]:[0-9][0-9]\.[0-9][0-9]*[0-9]/timestamp/g'

echo
echo "pmval [no interpolate] ..."
rm -f $seq.full
pmval -U $tmp.C sample.milliseconds 2>&1 \
| tee $seq.full \
| $PCP_AWK_PROG '
/suspended/				{ mark++; next }
/^[0-9][0-9]:[0-9][0-9]:[0-9][0-9]\./   { rec++ }
END			{ printf "%d records",rec
			  if (mark) printf ", and %d marks",mark
			  print ""
			}'

rm -f $tmp.D.*
echo "log mandatory on 20 msec sample.milliseconds" \
| pmlogger -s 6 $tmp.D >/dev/null 2>&1
echo
echo log.D
_filter $tmp.D

rm -f $tmp.E.*
pmlogextract $tmp.C $tmp.D $tmp.E
echo
echo "log.E == pmlogextract log.C log.D"
_filter $tmp.E

echo
echo "mismatch timestamps"
cat $tmp.C.stamp $tmp.D.stamp \
| comm -3 - $tmp.E.stamp \
| sed -e 's/[0-9][0-9]:[0-9][0-9]:[0-9][0-9]\.[0-9][0-9]*[0-9]/timestamp/g'

echo
echo "pmval [no interpolate] ..."
pmval -U $tmp.E sample.milliseconds 2>&1 \
| tee -a $seq.full \
| $PCP_AWK_PROG '
/suspended/				{ mark++; next }
/^[0-9][0-9]:[0-9][0-9]:[0-9][0-9]\./   { rec++ }
END			{ printf "%d records",rec
			  if (mark) printf ", and %d marks",mark
			  print ""
			}'