lib/vmsish.t:
1..25
ok 1 # skip: tests for non-VMS only
ok 2 - simple Perl invokation: POSIX success status
ok 3 - importing vmsish [vmsish status]
ok 4 - unimport vmsish [POSIX STATUS]
ok 5 - lex scope of vmsish [vmsish status]
ok 6 - outer lex scope of vmsish [POSIX status]
ok 7 - importing vmsish exit [POSIX status]
ok 8 - POSIX ERR exit, DCL error message check
ok 9 - vmsish status check, POSIX ERR exit
ok 10 - vmsish OK exit, DCL error message check
ok 11 - vmsish status check, vmsish OK exit
ok 12 - vmsish ERR exit, DCL error message check
ok 13 - vmsish ERR exit, vmsish status check
ok 14 - POSIX ERR exit, vmsish hushed, DCL error message check
ok 15 - vmsish ERR exit, vmsish hushed, DCL error message check
ok 16 - vmsish ERR exit, no vmsish hushed, DCL error message check
ok 17 - die, vmsish hushed, DCL error message check
ok 18 - croak, vmsish hushed, DCL error message check
ok 19 - vmsish ERR exit, vmsish hushed at runtime, DCL error message
check
ok 20 - compile ERR exit, vmsish hushed, DCL error message check
ok 21 - use vmsish qw(time)
ok 22 - (time) UTC: 1067621942 VMS: 1067603942
ok 23 - (localtime) UTC: 3274414742 VMS: 3274432742
# UTC: 2 39 7 31 9 103 5 303 0
# VMS: 2 39 12 31 9 103 5 303 0
ok 24 - (gmtime) UTC: 3274432742 VMS: 3274450742
# UTC: 2 39 12 31 9 103 5 303 0
# VMS: 2 39 17 31 9 103 5 303 0
not ok 25 - (stat) UTC: 1064956297 VMS: 1064941897
LIB/VMSISH....FAILED at test 25
Failed 1 test script out of 1, 0.00% okay.
"SYS$TIMEZONE_DAYLIGHT_SAVING" = "0"
"SYS$TIMEZONE_DIFFERENTIAL" = "-18000"
"SYS$TIMEZONE_NAME" = "EST"
"SYS$TIMEZONE_RULE" = "EST5EDT4,M4.1.0/02,M10.4.0/02"
$ MCR []MINIPERL "-V"
Summary of my perl5 (revision 5.0 version 8 subversion 2) configuration:
Platform:
osname=VMS, osvers=E7.3-2, archname=VMS_AXP
uname='VMS vms0 E7.3-2 AlphaServer 800 5/500'
config_args='-des -Dprefix=dka200:[perl_582.]'
hint=none, useposix=false, d_sigaction=define
usethreads=undef use5005threads=undef useithreads=undef
usemultiplicity=undef
useperlio=define d_sfio=undef uselargefiles=undef usesocks=undef
use64bitint=undef use64bitall=undef uselongdouble=undef
usemymalloc=undef, bincompat5005=undef
Compiler:
cc='CC/DECC', ccflags
='/Include=[]/Standard=Relaxed_ANSI/Prefix=All/Obj=.obj
/NOANSI_ALIAS/float=ieee/ieee=denorm_results',
optimize='/NoList',
cppflags='undef'
ccversion='60590001', gccversion='', gccosandvers='undef'
intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234
d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='int',
lseeksize=4
alignbytes=8, prototype=define
Linker and Libraries:
ld='Link', ldflags ='/NoTrace/NoMap'
libpth=/sys$share /sys$library
libs=
perllibs=
libc=(DECCRTL), so=exe, useshrplib=undef, libperl=undef
gnulibc_version='undef'
Dynamic Linking:
dlsrc=dl_vms.c, dlext=exe, d_dlsymun=undef, ccdlflags=''
cccdlflags='', lddlflags='/Share'
Characteristics of this PERLSHR image:
Compile-time options: DEBUGGING
Locally applied patches:
RC1
Built under VMS
Compiled at Oct 28 2003 13:35:37
%ENV:
PERLSHR="VMS0$DKA200:[PERL_582]PERLSHR.EXE"
PERL_CORE="1"
PERL_DESTRUCT_LEVEL="2"
PERL_ROOT="VMS0$DKA200:[PERL_582.]"
@INC:
perl_root:[lib.VMS_AXP.5_8_2]
perl_root:[lib]
perl_root:[lib.site_perl.VMS_AXP]
perl_root:[lib.site_perl]
/perl_root/lib/site_perl
.
=SYSTEM @ VMS0$
Carl Friedberg
