blob: de81c492755531db7e8b114a4cfe40d1072e33d0 (
plain)
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
|
#! /bin/sh
# PCP QA Test No. 015
# exercise pmstore
#
# 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
. ./common.check
trap "rm -f $tmp.*; exit" 0 1 2 3 15
# real QA test starts here
for type in long longlong float double string aggregate
do
for val in 123 123.456 1e10 9.87654321e40 0xdeadbeef 0x100000000 0xdeadbeefcafefeed zoo
do
echo ""
echo "stuff \"$val\" into sampledso.$type.write_me"
# Note: for long data, using strtol() and strtoll() need to
# worry about the sign bit ...
# -0x21524111 is 0xdeadbeef
# -0x2152411035010113 is 0xdeadbeefcafefeed
if [ $type = long -a "$val" = 0xdeadbeef ]
then
val=-0x21524111
elif [ $type = longlong -a "$val" = 0xdeadbeefcafefeed ]
then
val=-0x2152411035010113
elif [ $type = aggregate -a "$val" = 0xdeadbeefcafefeed ]
then
val=-0x2152411035010113
fi
if pmstore sampledso.$type.write_me $val
then
pminfo -f sampledso.$type.write_me \
| sed -e '/^$/d'
fi
done
done 2>&1 \
| sed \
-e 's/old value=.* new value=/old value=? new value=/' \
-e '/sampledso.aggregate/s/new value=.*\[/new value=XXX [/' \
| $PCP_AWK_PROG '
/sampledso.aggregate/ { gotagg=1; print; next }
gotagg && /value/ { gotagg=0; sub(/value.*\[/, "value XXX["); print; next }
{print}'
|
