hush: add leak detector helper; fix/add tests for it

function                                             old     new   delta
builtin_memleak                                        -      92     +92
bltins                                               288     300     +12
This commit is contained in:
Denis Vlasenko
2009-04-08 11:48:57 +00:00
parent 3dfb035d8d
commit c73b70c701
7 changed files with 126 additions and 133 deletions

View File

@@ -1,10 +1,7 @@
pid=$$
t=1
export t
# Warm up
beg=`ps -o pid,vsz | grep "^ *$pid "`
echo "Warm up"
i=1
while test $i != X; do
t=111111111111111111111111111111111111111111111111111111111111111111111110$i
@@ -17,31 +14,10 @@ while test $i != X; do
if test $i = 1111111111111111111111111111111111111111111113; then i=4; fi
if test $i = 1111111111111111111111111111111111111111111114; then i=X; fi
done
end=`ps -o pid,vsz | grep "^ *$pid "`
# Warm up again (I do need it on my machine)
beg=`ps -o pid,vsz | grep "^ *$pid "`
i=1
while test $i != X; do
t=111111111111111111111111111111111111111111111111111111111111111111111110$i
t=111111111111111111111111111111111111111111111111111111111111111111111111$i true
t=111111111111111111111111111111111111111111111111111111111111111111111112$i /bin/true
t=111111111111111111111111111111111111111111111111111111111111111111111113$i exec 1>&1
i=1$i
if test $i = 1111111111111111111111111111111111111111111111; then i=2; fi
if test $i = 1111111111111111111111111111111111111111111112; then i=3; fi
if test $i = 1111111111111111111111111111111111111111111113; then i=4; fi
if test $i = 1111111111111111111111111111111111111111111114; then i=X; fi
done
end=`ps -o pid,vsz | grep "^ *$pid "`
if test "$beg" != "$end"; then
true echo "vsz grows: $beg -> $end"
else
true echo "vsz does not grow"
fi
memleak
echo "Measuring memory leak..."
beg=`ps -o pid,vsz | grep "^ *$pid "`
i=1
while test $i != X; do
t=111111111111111111111111111111111111111111111111111111111111111111111110$i
@@ -54,10 +30,11 @@ while test $i != X; do
if test $i = 1111111111111111111111111111111111111111111113; then i=4; fi
if test $i = 1111111111111111111111111111111111111111111114; then i=X; fi
done
end=`ps -o pid,vsz | grep "^ *$pid "`
if test "$beg" != "$end"; then
echo "vsz grows: $beg -> $end"
memleak
kb=$?
if test $kb -le 4; then
echo Ok
else
echo "vsz does not grow"
echo "Bad: $kb kb (or more) leaked"
fi