tests/du/fd-leak

   1 #!/bin/sh
   2 # check for file descriptor leak
   3
   4 # Copyright (C) 2003, 2006 Free Software Foundation, Inc.
   5
   6 # This program is free software; you can redistribute it and/or modify
   7 # it under the terms of the GNU General Public License as published by
   8 # the Free Software Foundation; either version 2 of the License, or
   9 # (at your option) any later version.
  10
  11 # This program is distributed in the hope that it will be useful,
  12 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 # GNU General Public License for more details.
  15
  16 # You should have received a copy of the GNU General Public License
  17 # along with this program; if not, write to the Free Software
  18 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
  19 # 02110-1301, USA.
  20
  21 if test "$VERBOSE" = yes; then
  22   set -x
  23   du --version
  24 fi
  25
  26 # Call this an expensive test.  It's not that expensive, but command line
  27 # limitations might induce failure on some losing systems.
  28 . $srcdir/../expensive
  29
  30 pwd=`pwd`
  31 t0=`echo "$0"|sed 's,.*/,,'`.tmp; tmp=$t0/$$
  32 trap 'status=$?; cd "$pwd" && chmod -R u+rwx $t0 && rm -rf $t0 && exit $status' 0
  33 trap '(exit $?); exit $?' 1 2 13 15
  34
  35 framework_failure=0
  36 mkdir -p $tmp || framework_failure=1
  37 cd $tmp || framework_failure=1
  38 # Create 1296 (36^2) files.
  39 # Their names and separating spaces take up 3887 bytes.
  40 x='a b c d e f g h i j k l m n o p q r s t u v w x y z 0 1 2 3 4 5 6 7 8 9'
  41 f=
  42 for i in $x; do
  43   for j in $x; do
  44     f="$f $i$j"
  45   done
  46 done
  47
  48 # This may fail due to command line limitations.
  49 touch $f || framework_failure=1
  50
  51 if test $framework_failure = 1; then
  52   echo "$0: failure in testing framework" 1>&2
  53   (exit 1); exit 1
  54 fi
  55
  56 fail=0
  57
  58 # With coreutils-5.0, this would fail due to a file descriptor leak.
  59 du $f > out || fail=1
  60
  61 (exit $fail); exit $fail