tests/restrictive_upstream_permissions.pl

   1 #!/usr/bin/env perl
   2
   3 # Issue595
   4 #
   5 # A test for running "darcs get" when the parent directory has restrictive
   6 # permissions.  The bug is that darcs trys to "chdir" to the current directory
   7 # using the full path.  The permissions on the parent directory prevent this
   8 # from working, even though the current repo and the remote have sufficient
   9 # permissions.
  10 #
  11 # The real-world case where this would happen would be a web-server with
  12 # restrictive permissions on "/home", with a user running darcs within that.
  13
  14 # Also find the right path from the bugs directory.
  15 use lib ('lib/perl', '../tests/lib/perl');
  16 use Test::More 'no_plan';
  17 use Test::Darcs;
  18 use Shell::Command;
  19 use strict;
  20 use warnings;
  21
  22 # Start in a randomly named temporary directory that deletes itself when we're done.
  23 use File::Temp 'tempdir';
  24 chdir tempdir( CLEANUP => 1 );
  25
  26 use Cwd 'realpath';
  27
  28 # Set up a "remote" repo
  29 # and a directory with restrictive permissions with
  30 ok(mkpath('tmp_remote'), "tmp_remote created");
  31 ok(mkpath('tmp_restrictive/liberal'), "tmp_restrictive/liberal created");
  32
  33 ok(chdir('tmp_remote'), "chdir tmp_remote");
  34 darcs 'init';
  35
  36 ok( chdir('../tmp_restrictive/liberal'), "chdir to liberal") || die;;
  37
  38
  39 # Get the path just above these repos;
  40 my $top_path = realpath();
  41 $top_path =~ s?tmp_restrictive/liberal??;
  42 my $remote_full_path = "$top_path/tmp_remote";
  43
  44 ok(chmod('0111', '../../tmp_restrictive'), 'chmod 0111 of tmp_restrictive');
  45
  46 ok( chdir('../..'), 'can cd out of our darcs repository');
  47
  48 ok( chdir('tmp_restrictive/liberal'), 'can cd back into our darcs repository');
  49
  50 if (realpath() =~ qr/tmp_restrictive.liberal/) {
  51
  52   my $out = darcs "get $remote_full_path";
  53   unlike($out, qr/permission denied/i, "Avoid permission denied error");
  54
  55 } else {
  56
  57   local $TODO = 'it seems that solaris does not allow CD into directory?';
  58   ok(0,"Can't do restrictive_upstream_permissions.pl on this platform.");
  59
  60 }
  61
  62 ok(chdir("$top_path"), "chdir $top_path");
  63 # We have to fix the permissions, just so we can delete it.
  64 ok(chmod('0755', 'tmp_restrictive'), 'chmod 0755 of tmp_restrictive');