18a272653SPeter Holm# 2*4d846d26SWarner Losh# SPDX-License-Identifier: BSD-2-Clause 38a272653SPeter Holm# 48a272653SPeter Holm# Copyright (c) 2020 Peter Holm <pho@FreeBSD.org> 58a272653SPeter Holm# 68a272653SPeter Holm# Redistribution and use in source and binary forms, with or without 78a272653SPeter Holm# modification, are permitted provided that the following conditions 88a272653SPeter Holm# are met: 98a272653SPeter Holm# 1. Redistributions of source code must retain the above copyright 108a272653SPeter Holm# notice, this list of conditions and the following disclaimer. 118a272653SPeter Holm# 2. Redistributions in binary form must reproduce the above copyright 128a272653SPeter Holm# notice, this list of conditions and the following disclaimer in the 138a272653SPeter Holm# documentation and/or other materials provided with the distribution. 148a272653SPeter Holm# 158a272653SPeter Holm# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND 168a272653SPeter Holm# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 178a272653SPeter Holm# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 188a272653SPeter Holm# ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 198a272653SPeter Holm# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 208a272653SPeter Holm# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 218a272653SPeter Holm# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 228a272653SPeter Holm# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 238a272653SPeter Holm# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 248a272653SPeter Holm# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 258a272653SPeter Holm# SUCH DAMAGE. 268a272653SPeter Holm# 278a272653SPeter Holm# 288a272653SPeter Holm 298a272653SPeter Holm# Example debug include file for misc/all.sh 308a272653SPeter Holm 318a272653SPeter Holmpre_debug() { 328a272653SPeter Holm debug_statfs=`vmstat -m | grep -w statfs | awk '{print $2}'` 338a272653SPeter Holm debug_freework=`vmstat -m | grep -w freework | awk '{print $2}'` 348a272653SPeter Holm debug_newblk=`vmstat -m | grep -w newblk | awk '{print $2}'` 358a272653SPeter Holm debug_pts=`vmstat -m | grep -w pts | awk '{print $2}'` 368a272653SPeter Holm debug_routetbl=`vmstat -m | grep -w routetbl | awk '{print $2}'` 378a272653SPeter Holm debug_mount=`vmstat -m | awk '/ mount/{print $2}'` 388a272653SPeter Holm debug_geom=`vmstat -m | grep -w GEOM | awk '{print $2}'` 398a272653SPeter Holm# debug_indirdep=`vmstat -m | grep -w indirdep | awk '{print $2}'` 408a272653SPeter Holm} 418a272653SPeter Holm 428a272653SPeter Holmpost_debug() { 438a272653SPeter Holm local debug_new 448a272653SPeter Holm 458a272653SPeter Holm debug_new=`vmstat -m | grep -w statfs | awk '{print $2}'` 468a272653SPeter Holm [ $((debug_new - debug_statfs)) -gt 0 ] && 478a272653SPeter Holm { printf "stress2: statfs leak: %d/%d.\r\n" \ 488a272653SPeter Holm $((debug_new - debug_statfs)) $debug_new > $console 498a272653SPeter Holm debug_statfs=$debug_new; } 508a272653SPeter Holm 518a272653SPeter Holm debug_new=`vmstat -m | grep -w freework | awk '{print $2}'` 528a272653SPeter Holm [ $((debug_new - debug_freework)) -gt 0 -a $debug_new -gt 100 ] && 538a272653SPeter Holm { printf "stress2: freework leak: %d/%d.\r\n" \ 548a272653SPeter Holm $((debug_new - debug_freework)) $debug_new > $console 558a272653SPeter Holm debug_freework=$debug_new; } 568a272653SPeter Holm 578a272653SPeter Holm debug_new=`vmstat -m | grep -w newblk | awk '{print $2}'` 588a272653SPeter Holm [ $((debug_new - debug_newblk)) -gt 0 -a $debug_new -gt 100 ] && 598a272653SPeter Holm { printf "stress2: newblk leak: %d/%d.\r\n" \ 608a272653SPeter Holm $((debug_new - debug_newblk)) $debug_new > $console 618a272653SPeter Holm debug_newblk=$debug_new; } 628a272653SPeter Holm 638a272653SPeter Holm debug_new=`vmstat -m | grep -w pts | awk '{print $2}'` 648a272653SPeter Holm [ $((debug_new - debug_pts)) -gt 0 ] && 658a272653SPeter Holm { printf "stress2: pts leak: %d/%d\r\n" \ 668a272653SPeter Holm $((debug_new - debug_pts)) $debug_new > $console 678a272653SPeter Holm debug_pts=$debug_new; } 688a272653SPeter Holm 698a272653SPeter Holm debug_new=`vmstat -m | grep -w routetbl | awk '{print $2}'` 708a272653SPeter Holm [ $((debug_new - debug_routetbl)) -gt 0 ] && 718a272653SPeter Holm { printf "stress2: routetbl leak: %d/%d\r\n" \ 728a272653SPeter Holm $((debug_new - debug_routetbl)) $debug_new > $console 738a272653SPeter Holm debug_routetbl=$debug_new; } 748a272653SPeter Holm 758a272653SPeter Holm debug_new=`vmstat -m | awk '/ mount/{print $2}'` 768a272653SPeter Holm [ $((debug_new - debug_mount)) -gt 0 ] && 778a272653SPeter Holm { printf "stress2: mount leak: %d/%d\r\n" \ 788a272653SPeter Holm $((debug_new - debug_mount)) $debug_new > $console 798a272653SPeter Holm debug_mount=$debug_new; } 808a272653SPeter Holm 818a272653SPeter Holm debug_new=`vmstat -m | awk '/GEOM/{print $2}'` 828a272653SPeter Holm [ $((debug_new - debug_geom)) -gt 0 ] && 838a272653SPeter Holm { printf "stress2: GEOM leak: %d/%d\r\n" \ 848a272653SPeter Holm $((debug_new - debug_geom)) $debug_new > $console 858a272653SPeter Holm debug_geom=$debug_new; } 868a272653SPeter Holm 878a272653SPeter Holm# debug_new=`vmstat -m | awk '/indirdep/{print $2}'` 888a272653SPeter Holm# [ $((debug_new - debug_indirdep)) -gt 100 -a $debug_new -gt 100 ] && 898a272653SPeter Holm# { printf "stress2: indirdep leak: %d/%d\r\n" \ 908a272653SPeter Holm# $((debug_new - debug_indirdep)) $debug_new > $console 918a272653SPeter Holm# debug_indirdep=$debug_new; } 928a272653SPeter Holm} 938a272653SPeter Holm 948a272653SPeter Holmall_debug=1 95