Commit | Line | Data |
f7a45afb |
1 | #!./perl |
2 | |
3 | BEGIN { |
4 | chdir 't' if -d 't'; |
5 | @INC = '../lib'; |
6 | } |
7 | |
2f173a71 |
8 | use Test::More; |
9 | |
f7a45afb |
10 | BEGIN { |
11 | our $hasst; |
12 | eval { my @n = stat "TEST" }; |
13 | $hasst = 1 unless $@ && $@ =~ /unimplemented/; |
2f173a71 |
14 | unless ($hasst) { plan skip_all => "no stat"; exit 0 } |
f7a45afb |
15 | use Config; |
16 | $hasst = 0 unless $Config{'i_sysstat'} eq 'define'; |
2f173a71 |
17 | unless ($hasst) { plan skip_all => "no sys/stat.h"; exit 0 } |
f7a45afb |
18 | our @stat = stat "TEST"; # This is the function stat. |
19 | unless (@stat) { print "1..0 # Skip: no file TEST\n"; exit 0 } |
20 | } |
21 | |
2f173a71 |
22 | plan tests => 16; |
f7a45afb |
23 | |
2f173a71 |
24 | use_ok( 'File::stat' ); |
f7a45afb |
25 | |
2f173a71 |
26 | my $stat = File::stat::stat( "TEST" ); # This is the OO stat. |
27 | ok( ref($stat), 'should build a stat object' ); |
f7a45afb |
28 | |
2f173a71 |
29 | is( $stat->dev, $stat[0], "device number in position 0" ); |
f7a45afb |
30 | |
4f0c37ba |
31 | # On OS/2 (fake) ino is not constant, it is incremented each time |
2f173a71 |
32 | SKIP: { |
c798bd21 |
33 | skip('inode number is not constant on OS/2', 1) if $^O eq 'os2'; |
2f173a71 |
34 | is( $stat->ino, $stat[1], "inode number in position 1" ); |
35 | } |
36 | |
37 | is( $stat->mode, $stat[2], "file mode in position 2" ); |
f7a45afb |
38 | |
2f173a71 |
39 | is( $stat->nlink, $stat[3], "number of links in position 3" ); |
f7a45afb |
40 | |
2f173a71 |
41 | is( $stat->uid, $stat[4], "owner uid in position 4" ); |
f7a45afb |
42 | |
2f173a71 |
43 | is( $stat->gid, $stat[5], "group id in position 5" ); |
f7a45afb |
44 | |
2f173a71 |
45 | is( $stat->rdev, $stat[6], "device identifier in position 6" ); |
f7a45afb |
46 | |
2f173a71 |
47 | is( $stat->size, $stat[7], "file size in position 7" ); |
f7a45afb |
48 | |
2f173a71 |
49 | is( $stat->atime, $stat[8], "last access time in position 8" ); |
f7a45afb |
50 | |
2f173a71 |
51 | is( $stat->mtime, $stat[9], "last modify time in position 9" ); |
f7a45afb |
52 | |
2f173a71 |
53 | is( $stat->ctime, $stat[10], "change time in position 10" ); |
f7a45afb |
54 | |
2f173a71 |
55 | is( $stat->blksize, $stat[11], "IO block size in position 11" ); |
f7a45afb |
56 | |
2f173a71 |
57 | is( $stat->blocks, $stat[12], "number of blocks in position 12" ); |
f7a45afb |
58 | |
2f173a71 |
59 | local $!; |
60 | $stat = stat '/notafile'; |
8db1c9ee |
61 | isn't( $!, '', 'should populate $!, given invalid file' ); |
f7a45afb |
62 | |
63 | # Testing pretty much anything else is unportable. |