os2 test failures with [email protected]

[p5pRT]

Migrated from rt.perl.org#3459 (status was 'resolved')

Searchable as RT3459$

[p5pRT]

From @ysth

Created by @ysth

I get the following test failures w/perl-current@​6216.tgz​:

Failed Test Status Wstat Total Fail Failed List of Failed
--------------------------------------------------------------------------------
lib/b.t 10 1 10.00% 9
lib/ftmp-mktemp.t 9 1 11.11% 5
lib/ftmp-posix.t 255 65280 7 4 57.14% 4-7
lib/ftmp-security.t 255 65280 13 8 61.54% 6-13
lib/syslog.t 2 512 ?? ?? % ??

The lib/b test seems to need some alteration​:

[D​:\perl-current\t].\perl lib/b.t
1..10
ok 1
ok 2
ok 3
ok 4
ok 5
ok 6
ok 7
ok 8
# [-uCarp,-uCarp​::Heavy,-uCwd,-uDB,-uExporter,-uExporter​::Heavy,-uFile,-uFile​::Copy,-uOS2,-uattributes,-umain,-uwarnings] vs [-uCarp,-uCarp​::Heavy,-uDB,-uExporter,-uExporter​::Heavy,-uattributes,-umain,-uwarnings]
not ok 9
ok 10

The os2 build automatically puts some goodies in the OS2​::, Cwd​:: and
File​::Copy​:: packages.

The File​::Temp errors I haven't had a chance to look at yet.

lib/syslog is failing because I haven't built Socket, and shouldn't
have build Sys​::Syslog. (Perhaps Sys​::Syslog should be automatically
skipped when Socket is not built? Or is this beyond the complexity
I can expect from configure?)

Here's a patch for b.t​:

Inline Patch

--- t/lib/b.t#6216	Wed May 31 00:25:04 2000
+++ t/lib/b.t	Mon Jul  3 11:02:50 2000
@@ -82,7 +82,8 @@
 
 chomp($a = `$^X -I../lib -MB::Stash -Mwarnings -e1`);
 $a = join ',', sort split /,/, $a;
-$a =~ s/-uWin32,//;
+$a =~ s/-uWin32,// if $^O eq 'MSWin32';
+$a =~ s/-u(Cwd|File|File::Copy|OS2),//g if $^O eq 'os2';
 if ($Config{static_ext} eq ' ') {
   $b = '-uCarp,-uCarp::Heavy,-uDB,-uExporter,-uExporter::Heavy,-uattributes,'
      . '-umain,-uwarnings';

Though perhaps it would be better to build the expected list based on
$^O.  Does Win32 always include the Win32:: package?

Perl Info

Flags:
    category=install
    severity=low

Site configuration information for perl v5.6.0:

Configured by sthoenna at Tue Jun 20 09:44:05 PDT 2000.

Summary of my perl5 (revision 5.0 version 6 subversion 0) configuration:
  Platform:
    osname=os2, osvers=2.30, archname=os2
    uname='os2 efn.org 2 2.30 i386  '
    config_args='-de -Dprefix=d:/perl -Aoptimize=-DDEBUGGING'
    hint=recommended, useposix=true, d_sigaction=define
    usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef
    useperlio=undef d_sfio=undef uselargefiles=define 
    use64bitint=undef use64bitall=undef uselongdouble=undef usesocks=undef
  Compiler:
    cc='gcc', optimize='-O2 -fomit-frame-pointer -malign-loops=2 -malign-jumps=2 -malign-functions=2 -s -DDEBUGGING', gccversion=2.8.1
    cppflags='-Zomf -Zmt -DDOSISH -DOS2=2 -DEMBED -I. -D_EMX_CRT_REV_=62'
    ccflags ='-Zomf -Zmt -DDOSISH -DOS2=2 -DEMBED -I. -D_EMX_CRT_REV_=62'
    stdchar='char', d_stdstdio=define, usevfork=false
    intsize=4, longsize=4, ptrsize=4, doublesize=8
    d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12
    ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=4
    alignbytes=4, usemymalloc=y, prototype=define
  Linker and Libraries:
    ld='gcc', ldflags ='-Zexe -Zomf -Zmt -Zcrtdll -Zstack 32000'
    libpth=d:/emx/lib d:/emx/lib/mt
    libs=-lsocket -lm -lbsd
    libc=d:/emx/lib/mt/c_import.lib, so=dll, useshrplib=true, libperl=libperl.lib
  Dynamic Linking:
    dlsrc=dl_dlopen.xs, dlext=dll, d_dlsymun=undef, ccdlflags=' '
    cccdlflags='-Zdll', lddlflags='-Zdll -Zomf -Zmt -Zcrtdll -s'

Locally applied patches:
    


@INC for perl v5.6.0:
    d:/perl/lib/5.6.0/os2
    d:/perl/lib/5.6.0
    d:/perl/lib/site_perl/5.6.0/os2
    d:/perl/lib/site_perl/5.6.0
    d:/perl/lib/site_perl
    .


Environment for perl v5.6.0:
    HOME=d:\home\sthoenna
    LANG=en_us
    LANGUAGE (unset)
    LD_LIBRARY_PATH (unset)
    LOGDIR (unset)
    PATH=d:\bin;C:\OS2;d:\perl\bin;C:\OS2\SYSTEM;C:\OS2\INSTALL;C:\;C:\OS2\MDOS;C:\OS2\APPS;C:\MMOS2;d:\os2apps\util;d:\DOSAPPS\UTIL;c:\sio;D:\WINDOWS;d:\pdksh;d:\emx\bin;d:\emacs\19.33\bin;d:\ispell
    PERL_BADLANG (unset)
    PERL_SH_DIR=d:\BIN
    SHELL (unset)

[p5pRT]

From @timj

Hi,

  Can you try the latest version of File​::Temp that is on CPAN? I don't
think the version in perl-current is up to date. In the v0.08 I put in a
test for OS/2 since I discovered it can not unlink open files.
The security tests should probably be disabled on os2 unless os2
understands sticky bits.

I get the following test failures w/perl-current@​6216.tgz​:

Failed Test Status Wstat Total Fail Failed List of Failed
--------------------------------------------------------------------------------
lib/b.t 10 1 10.00% 9
lib/ftmp-mktemp.t 9 1 11.11% 5
lib/ftmp-posix.t 255 65280 7 4 57.14% 4-7
lib/ftmp-security.t 255 65280 13 8 61.54% 6-13
lib/syslog.t 2 512 ?? ?? % ??

The File​::Temp errors I haven't had a chance to look at yet.

[p5pRT]

From @ysth

In article <Pine.LNX.4.10.10007031027120.3604-100000@​lapaki.jach.hawaii.edu>,
Tim Jenness <t.jenness@​jach.hawaii.edu> wrote​:

Hi,

Can you try the latest version of File​::Temp that is on CPAN? I don't
think the version in perl-current is up to date. In the v0.08 I put in a
test for OS/2 since I discovered it can not unlink open files.
The security tests should probably be disabled on os2 unless os2
understands sticky bits.

Yup, no sticky bits here.

I get the following test failures w/perl-current@​6216.tgz​:

Failed Test Status Wstat Total Fail Failed List of Failed
--------------------------------------------------------------------------------
lib/b.t 10 1 10.00% 9
lib/ftmp-mktemp.t 9 1 11.11% 5
lib/ftmp-posix.t 255 65280 7 4 57.14% 4-7
lib/ftmp-security.t 255 65280 13 8 61.54% 6-13
lib/syslog.t 2 512 ?? ?? % ??

The File​::Temp errors I haven't had a chance to look at yet.

The File​::Temp on CPAN is the same version (.08).
Here's the full output of the tests, if it helps​:

[D​:\perl-current\t].\perl lib/ftmp-mktemp.t
1..9
ok 1
# MKSTEMP​: FH is GLOB(0x59420) File is D​:/tmp/wowserRpke fileno=3
ok 2
ok 3
ok 4
not ok 5
# Failed test 5 in lib/ftmp-mktemp.t at line 58
# MKSTEMPS​: File is suffixXXXXXX -> suffixWf83eg.dat fileno=5
ok 6
ok 7 # Skip test failed probably due to NFS
# MKDTEMP​: Name is D​:/tmp/tmpdirLDShaI from template D​:/tmp/tmpdirXXXXXX
ok 8
# MKTEMP​: Tempfile is D​:/tmp/mytestXXXXXX -> D​:/tmp/mytestQeYVKv
ok 9

[D​:\perl-current\t].\perl lib/ftmp-posix.t
1..7
ok 1
# TMPNAM​: in a scalar context​:
ok 2
# TMPNAM file name​: D​:/tmp/G1TuFJx92X
# TMPNAM​: in array context​: GLOB(0x1f9d70) D​:/tmp/GolG728iIs
ok 3
not ok 4
# Failed test 4 in lib/ftmp-posix.t at line 38
Unable to unlink temporary file​: No such file or directory at lib/ftmp-posix.t l
ine 42

[D​:\perl-current\t].\perl lib/ftmp-security.t
1..13
ok 1
# Testing with STANDARD security...
# Fname1 = ./temptest8sypu5RC
ok 2
ok 3
# Testing with MEDIUM security...
File​::Temp​::_gettemp​: Parent directory (./) is not safe (sticky bit not set when
world writable?) at lib/ftmp-security.t line 97
Error in tempfile() using ./temptestXXXXXXXX at lib/ftmp-security.t line 97
ok 4
ok 5