mirror of
git://git.code.sf.net/p/cdesktopenv/code
synced 2025-02-24 23:14:14 +00:00
88 lines
2.9 KiB
Bash
88 lines
2.9 KiB
Bash
########################################################################
|
|||
# #
|
|||
# This software is part of the ast package #
|
|||
# Copyright (c) 1982-2012 AT&T Intellectual Property #
|
|||
# and is licensed under the #
|
|||
# Eclipse Public License, Version 1.0 #
|
|||
# by AT&T Intellectual Property #
|
|||
# #
|
|||
# A copy of the License is available at #
|
|||
# http://www.eclipse.org/org/documents/epl-v10.html #
|
|||
# (with md5 checksum b35adb5213ca9657e911e9befb180842) #
|
|||
# #
|
|||
# Information and Software Systems Research #
|
|||
# AT&T Research #
|
|||
# Florham Park NJ #
|
|||
# #
|
|||
# David Korn <dgk@research.att.com> #
|
|||
# #
|
|||
########################################################################
|
|||
builtin vmstate 2>/dev/null || exit 0
|
|||
|
|||
function err_exit
|
|||
{
|
|||
print -u2 -n "\t"
|
|||
print -u2 -r ${Command}[$1]: "${@:2}"
|
|||
let Errors+=1
|
|||
}
|
|||
alias err_exit='err_exit $LINENO'
|
|||
|
|||
Command=${0##*/}
|
|||
integer Errors=0
|
|||
|
|||
# test for variable reset leak #
|
|||
|
|||
function test_reset
|
|||
{
|
|||
integer i n=$1
|
|||
|
|||
for ((i = 0; i < n; i++))
|
|||
do u=$i
|
|||
done
|
|||
}
|
|||
|
|||
n=1000
|
|||
|
|||
# one round to get to steady state -- sensitive to -x
|
|||
|
|||
test_reset $n
|
|||
a=0$(vmstate --format='+%(size)u')
|
|||
b=0$(vmstate --format='+%(size)u')
|
|||
|
|||
test_reset $n
|
|||
a=0$(vmstate --format='+%(size)u')
|
|||
test_reset $n
|
|||
b=0$(vmstate --format='+%(size)u')
|
|||
|
|||
if (( b > a ))
|
|||
then err_exit "variable value reset memory leak -- $((b-a)) bytes after $n iterations"
|
|||
fi
|
|||
|
|||
# buffer boundary tests
|
|||
|
|||
for exp in 65535 65536
|
|||
do got=$($SHELL -c 'x=$(printf "%.*c" '$exp' x); print ${#x}' 2>&1)
|
|||
[[ $got == $exp ]] || err_exit "large command substitution failed -- expected $exp, got $got"
|
|||
done
|
|||
|
|||
data="(v=;sid=;di=;hi=;ti='1328244300';lv='o';id='172.3.161.178';var=(k='conn_num._total';u=;fr=;l='Number of Connections';n='22';t='number';))"
|
|||
read -C stat <<< "$data"
|
|||
a=0$(vmstate --format='+%(size)u')
|
|||
for ((i=0; i < 500; i++))
|
|||
do print -r -- "$data"
|
|||
done | while read -u$n -C stat
|
|||
do :
|
|||
done {n}<&0-
|
|||
b=0$(vmstate --format='+%(size)u')
|
|||
(( b > a )) && err_exit 'memory leak with read -C when deleting compound variable'
|
|||
|
|||
read -C stat <<< "$data"
|
|||
a=0$(vmstate --format='+%(size)u')
|
|||
for ((i=0; i < 500; i++))
|
|||
do read -C stat <<< "$data"
|
|||
done
|
|||
b=0$(vmstate --format='+%(size)u')
|
|||
(( b > a )) && err_exit 'memory leak with read -C when using <<<'
|
|||
|
|||
exit $((Errors<125?Errors:125))
|
