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
|
#!/bin/ksh
D=`dirname $1`
A='regress'
pfctl -a $A -FT 2>/dev/null
pfctl -a $A -Fr 2>/dev/null
KT_R=`vmstat -mv | awk '/pfrktable/{print $3}'`
KT_I=`vmstat -mv | awk '/pfrktable/{print $5}'`
KEP_R=`vmstat -mv | awk '/pfrke_plain /{print $3}'`
KEP_I=`vmstat -mv | awk '/pfrke_plain /{print $5}'`
KER_R=`vmstat -mv | awk '/pfrke_route /{print $3}'`
KER_I=`vmstat -mv | awk '/pfrke_route /{print $5}'`
KEC_R=`vmstat -mv | awk '/pfrke_cost /{print $3}'`
KEC_I=`vmstat -mv | awk '/pfrke_cost /{print $5}'`
echo "# create"
echo "table <regress> persist" | pfctl -a $A -f - 2>&1 || exit 1
for LINE in `sed -e "s/ /_/g" $1`; do
RESULT=`echo $LINE | awk '{split($1,a,"_");print a[1]}'`
case $RESULT in
pass|fail) ;;
*) continue ;;
esac
CMD=`echo $LINE | awk '{split($1,a,"_");print a[2]}'`
ARGSX=`echo $LINE | awk '{split($1,a,"_");for(i=3;a[i];i++)print a[i]}'`
ARGS=""
for ARG in $ARGSX; do
if [ "X$ARGS" = "X" ]; then
ARGS="$ARG"
else
ARGS="$ARGS $ARG"
fi
done
if [ "$RESULT" = "pass" ]; then case $CMD in
add|delete|replace)
echo "# pass $CMD -n $ARGS"
pfctl -a $A -t regress -nT $CMD $ARGS 2>&1 | sort || exit 1
echo "# pass $CMD -nf-"
echo "# test\n" $ARGSX | pfctl -a $A -t regress -nT $CMD -f- \
2>&1 | sort || exit 1
echo "# pass $CMD -nqv $ARGS"
pfctl -a $A -t regress -nqvT $CMD $ARGS 2>&1 | sort || exit 1
echo "# pass $CMD -nqvv $ARGS"
pfctl -a $A -t regress -nqvvT $CMD $ARGS 2>&1 | sort || exit 1
;;
esac fi
echo "# $RESULT $CMD $ARGS"
if [ "$RESULT" = "pass" ]; then
case $CMD in
list)
pfctl -a $A -sT 2>&1
echo "# pass $CMD -v"
pfctl -a $A -gvsT 2>&1
;;
load)
echo $ARGS | sed "s,DIR,$D,g" | pfctl -a $A -f- \
|| exit 1
;;
rule)
echo $ARGS | pfctl -a $A -f- 2>&1 || exit 1
;;
show)
pfctl -qvv -a $A -t regress -T $CMD $ARGS 2>&1 | \
grep -v "Cleared:"
;;
*)
pfctl -a $A -t regress -T $CMD $ARGS 2>&1 | sort \
|| exit 1
;;
esac
else
case $CMD in
load)
echo ARGS | sed "s,DIR,$D,g" | pfctl -a $A -Tl -f- \
&& exit 1
;;
rule)
echo $ARGS | pfctl -a $A -f- 2>&1 && exit 1
;;
*)
pfctl -a $A -t regress -T $CMD $ARGS 2>&1 && exit 1
;;
esac
fi
done
echo "# kill"
pfctl -a $A -FT 2>&1
pfctl -a $A -Fr 2>&1
let KT_R=`vmstat -mv | awk '/pfrktable/{print $3}'`-$KT_R
let KT_I=`vmstat -mv | awk '/pfrktable/{print $5}'`-$KT_I
let KT_RL=$KT_R-$KT_I
let KEP_R=`vmstat -mv | awk '/pfrke_plain /{print $3}'`-$KEP_R
let KEP_I=`vmstat -mv | awk '/pfrke_plain /{print $5}'`-$KEP_I
let KEP_RL=$KEP_R-$KEP_I
let KER_R=`vmstat -mv | awk '/pfrke_route /{print $3}'`-$KER_R
let KER_I=`vmstat -mv | awk '/pfrke_route /{print $5}'`-$KER_I
let KER_RL=$KER_R-$KER_I
let KEC_R=`vmstat -mv | awk '/pfrke_cost /{print $3}'`-$KEC_R
let KEC_I=`vmstat -mv | awk '/pfrke_cost /{print $5}'`-$KEC_I
let KEC_RL=$KEC_R-$KEC_I
echo "ktable: $KT_R allocated, $KT_RL released, $KT_I leaked."
echo "pfrke_plain: $KEP_R allocated, $KEP_RL released, $KEP_I leaked."
echo "pfrke_route: $KER_R allocated, $KER_RL released, $KER_I leaked."
echo "pfrke_cost: $KEC_R allocated, $KEC_RL released, $KEC_I leaked."
[ "$KT_I" = "0" -a "$KEP_I" = "0" -a "$KER_I" = "0" -a "$KEC_I" = "0" ] || exit 1
|
