t/10_chmod.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 BEGIN {
   5         $|  = 1;
   6         $^W = 1;
   7 }
   8 use Test::More;
   9 use File::Spec;
  10 use File::Path;
  11 use Archive::Zip;
  12
  13 sub get_perm
  14 {
  15     my $filename = shift;
  16
  17     return (((stat($filename))[2]) & 07777);
  18 }
  19
  20 sub test_if_chmod_is_working
  21 {
  22     my $test_dir = File::Spec->catdir(
  23         File::Spec->curdir(), "testdir", "chtest"
  24     );
  25
  26     my $test_file = File::Spec->catfile($test_dir, "test.file");
  27
  28     mkdir($test_dir, 0755);
  29
  30     open my $out, ">$test_file";
  31     print {$out} "Foobar.";
  32     close($out);
  33
  34     my $test_perm = sub {
  35         my $perm = shift;
  36
  37         chmod ($perm, $test_file);
  38
  39         return (get_perm($test_file) == $perm);
  40     };
  41
  42     my $verdict = $test_perm->(0444) && $test_perm->(0666);
  43
  44     # Clean up
  45     rmtree($test_dir);
  46
  47     return $verdict;
  48 }
  49
  50 if (!test_if_chmod_is_working())
  51 {
  52     plan skip_all => "chmod() is not working on this machine.";
  53 }
  54 else
  55 {
  56     plan tests => 1;
  57 }
  58
  59 my $zip = Archive::Zip->new();
  60
  61 $zip->read(File::Spec->catfile(File::Spec->curdir(), "t", "data", "chmod.zip"));
  62
  63 my $test_dir =
  64     File::Spec->catdir(
  65         File::Spec->curdir(), "testdir", "chtest"
  66     );
  67
  68 mkdir($test_dir, 0777);
  69
  70 my $test_file = File::Spec->catfile($test_dir, "test_file");
  71
  72 $zip->memberNamed("test_dir/test_file")->extractToFileNamed($test_file);
  73
  74 # TEST
  75 is (get_perm($test_file),
  76     0444,
  77     "File permission is OK."
  78 );
  79
  80 # Clean up.
  81 rmtree($test_dir);
  82