File: 541

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 (106 lines) | stat: -rwxr-xr-x 2,474 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
#! /bin/sh
# PCP QA Test No. 541
# another variant on ...
# #535080 - dynamic indoms for pmie, uses sample.dynamic.*
# this time, the problem is when the intial instance domain contains
# one instance, the pmie expression tree uses the 1:1 operator instead
# of the n:1 operator
#
# Copyright (c) 1995-2002 Silicon Graphics, Inc.  All Rights Reserved.
#

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

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

signal=$PCP_BINADM_DIR/pmsignal
status=1	# failure is the default!
control=$PCP_PMDAS_DIR/sample/dynamic.indom

_cleanup()
{
    [ -f $control.$seq ] && $sudo mv $control.$seq $control
    rm -f $tmp.*
}

$sudo rm -f $control.$seq

trap "_cleanup; exit \$status" 0 1 2 3 15

# real QA test starts here

[ -f $control ] && $sudo mv $control $control.$seq

if ! _service pmcd restart 2>&1; then _exit 1; fi \
| _filter_pcp_restart
_wait_for_pmcd || _exit 1
if ! _service pmlogger restart 2>&1; then _exit 1; fi \
| _filter_pcp_restart
_wait_for_pmlogger || _exit 1

# prime the sample PMDA to refresh the dynamic indom
#
pminfo -f sample.dynamic >/dev/null 2>&1

# just one instance
#
cat >$tmp.indom <<End-of-File
0 zero
End-of-File
$sudo rm -f $control
$sudo cp $tmp.indom $control
pmprobe -I sample.dynamic.counter

cat <<End-of-File | pmie -t 500msec >$tmp.out 2>&1 &
some_inst ( sample.dynamic.counter > 0 ) -> shell "echo some_inst counter:" " %i:?";
all_inst ( sample.dynamic.counter > 0 ) -> shell "echo all_inst counter:" " %i:?";
End-of-File
pid=$!

sleep 3

# replace one instance by two others
#
cat >$tmp.indom <<End-of-File
1 one
2 two
End-of-File
$sudo rm -f $control
$sudo cp $tmp.indom $control
pmprobe -I sample.dynamic.counter

sleep 3

$signal -s TERM $pid
wait

echo
echo "filtered pmie output ..."
cat $tmp.out >>$seq_full
# Especially on slow VMs (like bozo-vm) we may need to dodge warnings
# from pmie's rule scheduler around pmcd reconnection ... the second
# awk script does this.
#
$PCP_AWK_PROG <$tmp.out '
	{ if (seen[$0] == 1) next
	  print
	  seen[$0] = 1
	}' \
| $PCP_AWK_PROG '
skip == 1 && /^[^ ]/		{ skip = 0 }
/^run: schedule eval/		{ skip = 1 }
/^sleepTight: negative/		{ skip = 1 }
/^Last sleepTight until:/	{ skip = 1 }
/^This sleepTight\() entry:/	{ skip = 1 }
/^Harvest children done:/	{ skip = 1 }
/^Want sleepTight until:/	{ skip = 1 }
/Task dump @/			{ skip = 1 }
skip == 0			{ print }'

# success, all done
status=0
exit