tests/misc/pwd-long

   1 #!/bin/sh
   2
   3 : ${PERL=perl}
   4
   5 $PERL -e 1 > /dev/null 2>&1 || {
   6   echo 1>&2 "$0: configure didn't find a usable version of Perl," \
   7     "so can't run this test"
   8   exit 77
   9 }
  10
  11 framework_failure=0
  12 pwd=`${BUILD_SRC_DIR?}/pwd` || framework_failure=1
  13 t0=`echo "$0"|sed 's,.*/,,'`.tmp; tmp=$t0/$$
  14 trap 'status=$?; cd $pwd; chmod -R u+rwx $t0; rm -rf $t0 && exit $status' 0
  15 trap '(exit $?); exit $?' 1 2 13 15
  16
  17 mkdir -p $tmp || framework_failure=1
  18 cd $tmp || framework_failure=1
  19
  20 if test $framework_failure = 1; then
  21   echo "$0: failure in testing framework" 1>&2
  22   (exit 1); exit 1
  23 fi
  24
  25 ARGV_0=$0
  26 export ARGV_0
  27
  28 CWD=$pwd/$tmp
  29 export CWD
  30
  31 $PERL -w -- - <<\EOF
  32
  33 # Show that pwd works even when the length of the resulting
  34 # directory name is longer than PATH_MAX.
  35 use strict;
  36 use Cwd;
  37
  38 (my $ME = $ENV{ARGV_0}) =~ s|.*/||;
  39
  40 my $cwd = $ENV{CWD};
  41 my $z = 'z' x 31;
  42 my $n = 256;
  43 my $expected = $cwd . ("/$z" x $n);
  44
  45 my $i = 0;
  46 do
  47   {
  48     mkdir $z, 0700
  49       or die "$ME: at depth $i: $!\n";
  50     chdir $z;
  51   }
  52 until (++$i == $n);
  53
  54 my $build_src_dir = $ENV{BUILD_SRC_DIR};
  55 $build_src_dir
  56   or die "$ME: envvar BUILD_SRC_DIR not defined\n";
  57 my $pwd_binary = "$build_src_dir/pwd";
  58 -x $pwd_binary
  59   or die "$ME: $pwd_binary is not an executable file\n";
  60 chomp (my $actual = `$pwd_binary`);
  61 if ($expected ne $actual)
  62   {
  63     my $e_len = length $expected;
  64     my $a_len = length $actual;
  65     warn "expected len: $e_len\n";
  66     warn "actual len:   $a_len\n";
  67     warn "expected: $expected\n";
  68     warn "actual: $actual\n";
  69     exit 1;
  70   }
  71 EOF