Front page | perl.perl5.porters |
Postings from April 2012
[perl #21442] some tests fail
Thread Previous
From:
bulk 88 via RT
Date:
April 21, 2012 22:47
Subject:
[perl #21442] some tests fail
Message ID:
rt-3.6.HEAD-4610-1335073666-776.21442-15-0@perl.org
My mistake, I see the error numbers that failed.
for fs.t
2-5 involve NTFS POSIX hard links, whether link works is determined by
if (defined &Win32::IsWinNT && Win32::IsWinNT()) {
if (Win32::FsType() eq 'NTFS') {
$has_link = 1;
$accurate_timestamps = 1;
}
}
FsType gets the FS type of the current directory, as thought of by the
Windows API. This might not be the current directory thought of by the
Perl Language (ithreads, etc).
7-9 are chmod, thats also dependent on NTFS and links check above
test 11, egh, not sure if this is the same as OP's 5.8 tests, i cant comment
5 and 7 in stat.t again are link tests
I'm going to blindly guess the OP has multiple partitions or perl isn't
install on C: or C: isn't the windows OS dir, and somehow perl thought
it was running on NTFS when it was actually a fat partition.
below done with perl 5.10.1 tests on 5.10.0 (best I can do)
C:\Perl\t>perl ./io/fs.t
1..51
ok 1 # skip bogus umask
ok 2 - link a b
ok 3 - link b c
ok 4 - link count of triply-linked file
ok 5 - mode of triply-linked file
ok 6 - chmod succeeding
ok 7 - chmod going through
ok 8 - chmod two files
ok 9 - chmod going through to c
ok 10 - chmod going through to x
ok 11 - unlink two files
ok 12 - ino of removed file b should be undef
ok 13 - ino of removed file x should be undef
ok 14 # skip no fchmod
ok 15 # skip no fchmod
ok 16 # skip no fchmod
ok 17 # skip no fchmod
ok 18 # skip no fchmod
ok 19 # skip no fchown
ok 20 - fchmod is unimplemented
ok 21 - fchown is unimplemented
ok 22 - rename a b
ok 23 - ino of renamed file a should be undef
ok 24 - utime
ok 25 # skip bogus inode num
# atime - 500000000 mtime - 500000001 delta - 1
ok 26 - atime
ok 27 - mtime
# utime undef, undef --> 1335072593, 1335072593
ok 28 - atime
ok 29 - mtime
ok 30 # skip no futimes
ok 31 # skip no futimes
ok 32 # skip no futimes
ok 33 # skip no futimes
ok 34 - futimes is unimplemented
ok 35 - unlink b
ok 36 - ino of unlinked file b should be undef
ok 37 # skip No symbolic links found to test with
ok 38 # skip No symbolic links found to test with
ok 39 - truncation to five bytes
ok 40 - truncation to zero bytes
ok 41 - fh resize to 200
ok 42 - fh resize to 200 working (filename check)
ok 43 - fh resize to zero
ok 44 - fh resize to zero working (filename check)
ok 45 - fh resize by IO slot
ok 46 - fh resize by IO slot working
ok 47 - rename working
ok 48 - rename on directories
ok 49 - rename on directories working
ok 50 - extend sp in pp_chmod
ok 51 - extend sp in pp_chown
C:\Perl\t>
C:\Perl\t>perl ./op/stat.t
1..107
ok 1 - nlink on regular file
ok 2 # skip mtime and ctime not reliable
ok 3 # skip mtime and ctime not reliable
ok 4 - link() implemented
ok 5 - linked tmp testfile
ok 6 - chmoded tmp testfile
ok 7 - Link count on hard linked file
ok 8 # skip No ctime concept on this OS
ok 9 # skip No ctime concept on this OS
ok 10 - -z on empty filehandle
ok 11 - and -s
ok 12 - -z on empty file
ok 13 - and -s
ok 14 - -z on empty filehandle
ok 15 - and -s
ok 16 - -z on non-empty file
ok 17 - and -s
ok 18 - chmod 0000
ok 19 # skip Can't test -r or -w meaningfully if you're superuser
ok 20 # skip Can't test -r or -w meaningfully if you're superuser
ok 21 - -x
ok 22 - chmod 0700
ok 23 - -r
ok 24 - -w
ok 25 # skip -x simply determines if a file ends in an executable suffix
ok 26 - -f
ok 27 - !-d
ok 28 - -d cwd
ok 29 - !-f cwd
ok 30 # skip symlink not implemented
ok 31 # skip symlink not implemented
ok 32 # skip symlink not implemented
ok 33 - -o
ok 34 - -e
ok 35 - -e on unlinked file
ok 36 # skip No character, socket or block special files
ok 37 # skip No character, socket or block special files
ok 38 # skip No character, socket or block special files
ok 39 # skip No character, socket or block special files
ok 40 # skip No character, socket or block special files
ok 41 # skip No character, socket or block special files
ok 42 # skip Can't find a setuid file to test with
ok 43 # skip Can't find a setuid file to test with
ok 44 # skip Can't find a setuid file to test with
ok 45 # skip Test uses unixisms
ok 46 # skip Test uses unixisms
ok 47 - !-t on closed TTY filehandle
ok 48 - -t on STDIN
ok 49 # skip No null device to test with
ok 50 - -T
ok 51 - !-B
ok 52 - -B
ok 53 - !-T
ok 54 - -T on filehandle causes no errors
ok 55 - -T
ok 56 - !-B
ok 57 - after readline
ok 58 - still -T
ok 59 - still -B
ok 60 - reopened and after readline
ok 61 - still -T
ok 62 - still !-B
ok 63 - after seek
ok 64 - still -T
ok 65 - still !-B
ok 66 - at EOF
ok 67 - still -T
ok 68 - now -B
ok 69 # skip No null device to test with
ok 70 # skip No null device to test with
ok 71 - bare -f uses $_
ok 72 - -f() "
ok 73 - stat returns full 13 elements
ok 74 - lstat _ croaks after stat
ok 75 - -l _ croaks after stat
ok 76 - lstat _ ok after lstat
ok 77 - -l _ ok after lstat
ok 78 # skip No lstat
ok 79 # skip No lstat
# Zzz...
ok 80 - can create tmp file
# time=1335072680, stat=(2 0 33206 1 0 0 2 0 1335072683 1335072683
1335072683 )
# -MAC=(-3.47222222222222e-005 -3.47222222222222e-005
-3.47222222222222e-005)
ok 81 - negative -M works
ok 82 - negative -A works
ok 83 - negative -C works
ok 84 - unlink tmp file
ok 85 - can create temp file
ok 86 - -T _ doesn't break the statbuffer
ok 87 # skip No dirfd()
ok 88 # skip No dirfd()
ok 89 # skip No dirfd()
ok 90 # skip No dirfd()
ok 91 # skip No dirfd()
ok 92 # skip No dirfd()
ok 93 # skip No dirfd()
ok 94 # skip No dirfd()
ok 95 # skip No dirfd()
ok 96 - can create temp file
ok 97 - stat(*F{IO}) works
ok 98 - single file tests work with *F{IO}
ok 99 # skip No dirfd()
ok 100 # skip No dirfd()
ok 101 # skip No dirfd()
ok 102 # skip No dirfd()
ok 103 # skip No dirfd()
ok 104 # skip No dirfd()
ok 105 # skip No dirfd()
ok 106 # skip No dirfd()
ok 107 # skip No dirfd()
C:\Perl\t>
---
via perlbug: queue: perl5 status: open
https://rt.perl.org:443/rt3/Ticket/Display.html?id=21442
Thread Previous