develooper Front page | perl.perl5.porters | Postings from May 2007

Test failure for [PATCH] Update File-Path to 2.00

Thread Next
From:
Jerry D. Hedden
Date:
May 31, 2007 07:35
Subject:
Test failure for [PATCH] Update File-Path to 2.00
Message ID:
1ff86f510705310734l647803c7u1ade10bf5af9ecb4@mail.gmail.com
> +SKIP: {
> +    $dir = catdir($tmp_base, 'B');
> +    $dir2 = catdir($dir, updir());
> +    # IOW: File::Spec->catdir( qw(foo bar), File::Spec->updir ) eq 'foo'
> +    # rather than foo/bar/..
> +    skip "updir() canonicalises path on this platform", 2
> +        if $dir2 eq $tmp_base;
> +
> +    @created = mkpath($dir2, {mask => 0700});
> +    is(scalar(@created), 1, "make directory with trailing parent segment");
> +    is($created[0], $dir, "made parent");
> +};

The above fails under Cygwin Perl:

not ok 12 - make directory with trailing parent segment
#   Failed test 'make directory with trailing parent segment'
#   at ../lib/File/Path.t line 73.
#          got: '0'
#     expected: '1'
not ok 13 - made parent
#   Failed test 'made parent'
#   at ../lib/File/Path.t line 74.
#          got: undef
#     expected: 'test-465edb4b-41ac-15e39/B'

Adding some additional diag()s gave me:

# $tmp_base = test-465edb4b-41ac-15e39
# $dir = test-465edb4b-41ac-15e39/B
# $dir2 = test-465edb4b-41ac-15e39/B/..

Let me know if you need more info.

-----

> ../perl -I../lib -V
Summary of my perl5 (revision 5 version 9 subversion 5 patch 31315)
configuration:
  Platform:
    osname=cygwin, osvers=1.5.24(0.15642), archname=cygwin-thread-multi-64int
    uname='cygwin_nt-5.0 pn100-02-2-054p 1.5.24(0.15642) 2007-01-31
10:57 i686 cygwin '
    config_args='-de -Dusedevel -Dversiononly=no -Dinstallusrbinperl
-Duse64bitint -Dusethreads -Uusemymalloc -Dnoextensions=attrs IPC/SysV
Sys/Syslog DB_File NDBM_File ODBM_File SDBM_File Devel/DProf
Devel/Peek re XS/APItest XS/Typemap Encode PerlIO/encoding
Unicode/Normalize I18N/Langinfo Text/Soundex Math/BigInt/FastCalc
Time/Piece -A define:optimize=-O3 -pipe -funit-at-a-time
-mtune=pentium4m -march=pentium4 -mfpmath=sse -mieee-fp -mmmx -msse
-msse2 -A define:ld=/usr/bin/ld2 -A append:ccflags= -DNO_MATHOMS'
    hint=recommended, useposix=true, d_sigaction=define
    useithreads=define, usemultiplicity=define
    useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef
    use64bitint=define, use64bitall=undef, uselongdouble=undef
    usemymalloc=n, bincompat5005=undef
  Compiler:
    cc='gcc', ccflags ='-DPERL_USE_SAFE_PUTENV -U__STRICT_ANSI__
-DNO_MATHOMS -fno-strict-aliasing -pipe',
    optimize='-O3 -pipe -funit-at-a-time -mtune=pentium4m
-march=pentium4 -mfpmath=sse -mieee-fp -mmmx -msse -msse2',
    cppflags='-DPERL_USE_SAFE_PUTENV -U__STRICT_ANSI__ -DNO_MATHOMS
-fno-strict-aliasing -pipe'
    ccversion='', gccversion='3.4.4 (cygming special, gdc 0.12, using
dmd 0.125)', gccosandvers=''
    intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=12345678
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
    ivtype='long long', ivsize=8, nvtype='double', nvsize=8,
Off_t='off_t', lseeksize=8
    alignbytes=8, prototype=define
  Linker and Libraries:
    ld='/usr/bin/ld2', ldflags =' -Wl,--enable-auto-import -s -L/usr/local/lib'
    libpth=/usr/local/lib /usr/lib /lib
    libs=-lgdbm -ldl -lcrypt -lgdbm_compat
    perllibs=-ldl -lcrypt -lgdbm_compat
    libc=/usr/lib/libc.a, so=dll, useshrplib=true, libperl=libperl.a
    gnulibc_version=''
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' -s'
    cccdlflags=' ', lddlflags=' -s -L/usr/local/lib'


Characteristics of this binary (from libperl):
  Compile-time options: MULTIPLICITY NO_MATHOMS PERL_DONT_CREATE_GVSV
                        PERL_IMPLICIT_CONTEXT PERL_MALLOC_WRAP
                        PERL_USE_SAFE_PUTENV USE_64_BIT_INT USE_ITHREADS
                        USE_LARGE_FILES USE_PERLIO USE_REENTRANT_API
  Locally applied patches:
        DEVEL
        31315
  Built under cygwin
  Compiled at May 31 2007 09:28:00
  %ENV:
    PERLIO="perlio"
    CYGWIN="ntsec"
  @INC:
    ../lib
    /usr/lib/perl5/5.9/cygwin
    /usr/lib/perl5/5.9
    .

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About