File: 097

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 (61 lines) | stat: -rwxr-xr-x 1,211 bytes parent folder | download | duplicates (3)
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
#! /bin/sh
# PCP QA Test No. 097
# check time updates after EOL/SOL in interpolate mode
#
# 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

_filterfoo()
{
    $PCP_AWK_PROG '
BEGIN	{ lo[0] = 14; hi[0] = 17
	  f = 0
	}
/^Found/	{ if (lo[f] <= $2 && $2 <= hi[f])
		    print "Found between " lo[f] " and " hi[f] " samples"
		  else
		    print $0 " .. no. of samples unexpected"
		  next
		}
		{ print }'
}

_filterbigbin()
{
    $PCP_AWK_PROG '
BEGIN	{ lo[0] = 40; hi[0] = 42
	  f = 0
	}
/^Found/	{ if (lo[f] <= $2 && $2 <= hi[f])
		    print "Found between " lo[f] " and " hi[f] " samples"
		  else
		    print $0 " .. no. of samples unexpected"
		  next
		}
		{ print }'
}

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

# real QA test starts here
echo "Archive foo ..."
src/interp4 -a tmparch/foo | _filterfoo

echo
echo "Archive ok-bigbin ..."
src/interp4 -a archives/ok-bigbin | _filterbigbin

echo
echo "Archive multi-volume foo ..."
src/interp4 -a tmparch/mv-foo | _filterfoo

echo
echo "Archive multi-volume ok-bigbin ..."
src/interp4 -a archives/ok-mv-bigbin | _filterbigbin