perl-llin/test/getattr.t

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