test/stress/stress2/tools/leaks.sh

   1 #!/bin/sh
   2
   3 #
   4 # Copyright (c) 2008 Peter Holm <pho@FreeBSD.org>
   5 # All rights reserved.
   6 #
   7 # Redistribution and use in source and binary forms, with or without
   8 # modification, are permitted provided that the following conditions
   9 # are met:
  10 # 1. Redistributions of source code must retain the above copyright
  11 #    notice, this list of conditions and the following disclaimer.
  12 # 2. Redistributions in binary form must reproduce the above copyright
  13 #    notice, this list of conditions and the following disclaimer in the
  14 #    documentation and/or other materials provided with the distribution.
  15 #
  16 # THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
  17 # ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  18 # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  19 # ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
  20 # FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  21 # DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  22 # OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  23 # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  24 # LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  25 # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  26 # SUCH DAMAGE.
  27 #
  28 # $FreeBSD$
  29 #
  30
  31 # Script to catch possible leaks in vm, malloc and mbufs
  32 # Report values growing in 10 consecuitive samples
  33
  34 i=0
  35 while true; do
  36    # Check for leaks in vm.zone
  37
  38 # ITEM            SIZE     LIMIT     USED    FREE  REQUESTS
  39 #
  40 # UMA Kegs:        140,        0,      66,      6,       66
  41 # UMA Zones:       120,        0,      66,     24,       66
  42
  43
  44    vmstat -z | sed '1,3d;s/://g' | \
  45    sed 's/  */ /g;s/\([0-9]\)  *\([0-9]\)/\1,\2/g;s/ \([0-9]\)/,\1/;s/^ *//' | \
  46    awk -F, '
  47 /^..*$/{
  48         gsub("^ *", "", $1);
  49         size=$4;
  50         printf "vmstat -z %s,%s\n", $1, size;
  51 }
  52 '
  53    # vmstat -m
  54
  55    #          Type InUse MemUse HighUse Requests  Size(s)
  56    #        DEVFS3   168    21K       -      169  128
  57    #        DEVFS1   157    40K       -      157  256
  58    #         DEVFS    12     1K       -       13  16,128
  59         vmstat -m | \
  60         sed '1,1d;s/K .*//;s/ [0-9][0-9]* //;s/  */ /g;s/^ *//;s/ /_/g;s/_\([0-9][0-9]*$\)/ \1/' | \
  61         awk '{printf "vmstat -m %s, %d\n", $1, $2}'
  62
  63    # Check for leaks in mbufs
  64
  65 # $ netstat -m
  66 # 1233/597/1830 mbufs in use (current/cache/total)
  67 # 1232/196/1428/8896 mbuf clusters in use (current/cache/total/max)
  68 # 1232/74 mbuf+clusters out of packet secondary zone in use (current/cache)
  69 # 0/0/0/0 4k (page size) jumbo clusters in use (current/cache/total/max)
  70 # 0/0/0/0 9k jumbo clusters in use (current/cache/total/max)
  71 # 0/0/0/0 16k jumbo clusters in use (current/cache/total/max)
  72 # 2772K/541K/3313K bytes allocated to network (current/cache/total)
  73 # 508/7778/5734 requests for mbufs denied (mbufs/clusters/mbuf+clusters)
  74 # 0/0/0 requests for jumbo clusters denied (4k/9k/16k)
  75 # 0/6/2480 sfbufs in use (current/peak/max)
  76 # 0 requests for sfbufs denied
  77 # 0 requests for sfbufs delayed
  78 # 0 requests for I/O initiated by sendfile
  79 # 251 calls to protocol drain routines
  80
  81
  82    netstat -m | head -10 | sed 's#/# #g;s/k / /;s/K / /' | awk '
  83 /mbufs /     {mbufs=$1};
  84 / clusters/  {clusters=$2};
  85 /sfbufs in use/    {sfbufs=$3};
  86 /allocated/ {allocated=$1}
  87 END {
  88         print "mbufs,", mbufs;
  89         print "clusters,", clusters;
  90         print "sfbufs,", sfbufs;
  91         print "allocatedToNetwork,", allocated;
  92 }
  93 '
  94    sysctl vm.kvm_free | tail -1 | sed 's/:/,/'
  95    sleep 10
  96 done | awk -F, '
  97 {
  98 # Pairs of "name, value" are passed to this awk script
  99         name=$1;
 100         size=$2;
 101 #       print "name, size :", name, size;
 102         if (NF != 2)
 103                 print "Number of fields for ", name, "is ", NF;
 104         if (size > s[name]) {
 105                 n[name]++;
 106                 if (n[name] > 10) {
 107                         cmd="date '+%T'";
 108                         cmd | getline t;
 109                         close(cmd);
 110                         printf "%s \"%s\" may be leaking, size %d\n", t, name, size;
 111                         n[name] = 0;
 112                 }
 113                 s[name] = size;
 114         } else {
 115                 if (n[name] > 0)
 116                         n[name]--;
 117         }
 118 }'