test/getattr.t

   1 #!/usr/bin/perl
   2 use test::helper qw($_real $_point);
   3 use Test::More;
   4 use Data::Dumper;
   5 plan tests => 203;
   6 $scale = 1024 * 1024 * 1024;
   7 if ($^O eq 'darwin') {
   8         $scale = 1024 * 1024;
   9 }
  10 sub test_file {
  11         my $size = shift;
  12         my ($a, $b) = ("$_real/wibble-$size","$_point/wibble-$size");
  13 #       diag "test $size Gb file";
  14         open(my $fh, '>', $a) || die "can't open $b: $!";
  15         seek($fh, $size * $scale, 0);
  16         print $fh ' ';
  17         close($fh);
  18 #       diag "size $b = ",-s $b, " $a = ", -s $a;
  19         is(-A "$a", -A "$b", '-A'); # 1
  20         is(-B "$a", -B "$b", '-B'); # 2
  21         is(-C "$a", -C "$b", '-C'); # 3
  22         is(-M "$a", -M "$b", '-M'); # 4
  23         is(-O "$a", -O "$b", '-O'); # 5
  24         is(-R "$a", -R "$b", '-R'); # 6
  25         is(-S "$a", -S "$b", '-S'); # 7
  26         is(-T "$a", -T "$b", '-T'); # 8
  27         is(-W "$a", -W "$b", '-W'); # 9
  28         is(-X "$a", -X "$b", '-X'); # 10
  29         is(-b "$a", -b "$b", '-b'); # 11
  30         is(-c "$a", -c "$b", '-c'); # 12
  31         is(-d "$a", -d "$b", '-d'); # 13
  32         is(-e "$a", -e "$b", '-e'); # 14
  33         is(-f "$a", -f "$b", '-f'); # 15
  34         is(-g "$a", -g "$b", '-g'); # 16
  35         is(-k "$a", -k "$b", '-k'); # 17
  36         is(-l "$a", -l "$b", '-l'); # 18
  37         is(-o "$a", -o "$b", '-o'); # 19
  38         is(-p "$a", -p "$b", '-p'); # 20
  39         is(-r "$a", -r "$b", '-r'); # 21
  40         is(-s "$a", -s "$b", '-s'); # 22
  41         is(-t "$a", -t "$b", '-t'); # 23
  42         is(-u "$a", -u "$b", '-u'); # 24
  43         is(-w "$a", -w "$b", '-w'); # 25
  44         is(-x "$a", -x "$b", '-x'); # 26
  45         is(-z "$a", -z "$b", '-z'); # 27
  46         my (@astat, @bstat);
  47         @astat = stat("$a");
  48         @bstat = stat("$b");
  49         # dev, inode and blksize can legally change
  50         @astat = @astat[2..10,12];
  51         @bstat = @bstat[2..10,12];
  52         is(join(" ",@astat),join(" ",@bstat),"stat()");
  53         ok( unlink($a), 'unlink' );
  54 }
  55 test_file( $_ ) foreach ( 1, 2, 4, 8, 16, 32, 64 );