develooper Front page | perl.perl5.porters | Postings from January 2014

[perl #121081] remaining perl5db.t test failures on VMS

From:
Craig A . Berry
Date:
January 25, 2014 04:16
Subject:
[perl #121081] remaining perl5db.t test failures on VMS
Message ID:
rt-4.0.18-13361-1390623391-18.121081-75-0@perl.org
# New Ticket Created by  Craig A. Berry 
# Please include the string:  [perl #121081]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=121081 >


perl5db.t failed a significant number of tests on VMS since inception but Tony Cook fixed the majority of them in 24fc4d43fd764bf7c5e014625749cdd1af8475a8 and I've managed a couple of others.  The following three still remain and I've been stumped so far in sorting out what's going on:

$ perl lib/perl5db.t
1..119
ok 1 - proxy constant subroutines
ok 2 - [perl \#66110]
ok 3 - [perl \#116769] frame=2 does not crash debugger, exit == 0
ok 4 - [perl \#116769] code is run
ok 5 - [perl \#116771] autotrace does not crash debugger, exit == 0
ok 6 - [perl \#116771] code is run
ok 7 - [perl \#41461] frame=2 noTTY does not crash debugger, exit == 0
ok 8 - [perl \#41461] code is run
ok 9 - The ${main::_<filename} variable in the debugger was not destroyed
ok 10 - no strict 'vars' in evaluated lines.
ok 11 - lvalue subs work in the debugger
ok 12 - there are no undefined values in the symbol table
ok 13 # skip This perl has threads, skipping non-threaded debugger tests
ok 14 - there are no undefined values in the symbol table when running with thread support
ok 15 - [perl \#61222]
ok 16 - [perl \#104168] - level 2 appears
ok 17 - [perl \#104168] - no 'baz'
ok 18 - taint
ok 19 - Can set breakpoint in a line in the middle of the file.
ok 20 - Can set breakpoint in a line.
ok 21 - Can set breakpoint in a line.
ok 22 - Can set breakpoint in a line.
ok 23 - Can set breakpoint in a line.
ok 24 - Prompt should display the first line of code.
ok 25 - Restart and delete all breakpoints work properly.
ok 26 - 'c line_num' is working properly.
ok 27 - 'b .' is working correctly.
ok 28 - Prompt should display the line of code inside a subroutine.
ok 29 - p command works.
ok 30 - x command test.
ok 31 - x command test with '@_'.
ok 32 - Mutating '@_'.
ok 33 - x after AutoTrace=1 command is working.
ok 34 - T command test.
ok 35 - test for s - single step
ok 36 - 'b .' is working correctly.
ok 37 - Test for the s command.
ok 38 - uncalled_subroutine was called after s EXPR()
ok 39 - uncalled_subroutine was called after n EXPR()
ok 40 - b subroutine works fine
ok 41 - n steps over lvalue subs
ok 42 - M (module list) works fine
ok 43 - r statement is working properly.
ok 44 - l statement is working properly (test No. 1).
ok 45 - l followed by l and then followed by -
ok 46 - l subroutine_name
ok 47 - Test the "." command
ok 48 - f command is working.
ok 49 - /pat/ command is working and found a match.
ok 50 - ?pat? command is working and found a match.
ok 51 - L command is listing breakpoints
ok 52 - L command is listing watch expressions
ok 53 - L command is not listing deleted watch expressions
ok 54 - L command is listing actions and breakpoints
ok 55 - S command - 1
ok 56 - S command with regex
ok 57 - S command with negative regex
ok 58 - S command with negative regex - what it still matches
not ok 59 - a command is working
# Failed test 59 - a command is working at lib/perl5db.t line 1508
#      got '
# Var<Q>=1
# Var<Q>=2
# Var<Q>=3
# Var<Q>=4
# Var<Q>=5
# Var<Q>=6
# Var<Q>=7
# Var<Q>=8
# Var<Q>=9
# Var<Q>=10
# Var<Q>=
# '
# expected /(?^msx:
#         \nVar<Q>=1\n
#         \nVar<Q>=2\n
#         \nVar<Q>=3\n
#         )/
ok 60 - a command with no line number is working
ok 61 - A command (for removing actions) is working
ok 62 - 'A *' command (for removing all actions) is working
ok 63 - w command - watchpoint changed
ok 64 - w command - correct output from IDX
ok 65 - W command - watchpoint was deleted
ok 66 - W command - stopped at end.
ok 67 - "W *" command - watchpoint was deleted
ok 68 - "W *" command - stopped at end.
ok 69 - "o" command (without arguments) displays warnLevel
ok 70 - "o" command (without arguments) displays signalLevel
ok 71 - "o" command (without arguments) displays dieLevel
ok 72 - "o" command (without arguments) displays hashDepth
ok 73 - "o" query command does not display warnLevel
ok 74 - "o" query command displays signalLevel
ok 75 - "o" query command does not display dieLevel
ok 76 - "o" query command displays hashDepth
ok 77 - o set command works
ok 78 - o set command - hashDepth
ok 79 - Test < and < ? commands - contents.
ok 80 - Test < and < ? commands - output.
ok 81 - Test the '< *' command.
ok 82 - Test > and > ? commands - contents.
ok 83 - Test > and > ? commands - output.
ok 84 - Test the '> *' command.
ok 85 - Test < and > commands.
ok 86 - Test the pre-prompt debugger commands
ok 87 - Test the { * command
ok 88 - { * test - output is OK.
ok 89 - Test the ! command (along with l 3-5)
ok 90 - Test the ! -n command (along with l)
ok 91 - Test the source command (along with l)
ok 92 - Test the source command inside a typeahead
ok 93 - Test the H -num command
ok 94 - Test the H command (without a number.)
ok 95 - Test the = (command alias) command.
ok 96 - Test m for main - 1
ok 97 - Test m for main - 2
ok 98 - Test m for obj - 1
ok 99 - Test m for obj - 1
ok 100 - Test M
ok 101 - Test the o recallCommand option
not ok 102 - Test the o dieLevel option
# Failed test 102 - Test the o dieLevel option at lib/perl5db.t line 2280
#      got 'This program dies. at ../lib/perl5db/t/test-dieLevel-option-1 line 18, <DATA> line 17.
#  at ../lib/perl5db/t/test-dieLevel-option-1 line 18, <DATA> line 17.
# 	main::baz() called at ../lib/perl5db/t/test-dieLevel-option-1 line 13
# 	main::bar() called at ../lib/perl5db/t/test-dieLevel-option-1 line 7
# 	main::foo() called at ../lib/perl5db/t/test-dieLevel-option-1 line 21
# In foo
# In baz
# %SYSTEM-W-PLHLDR, reserved for future use
# '
# expected /(?^msx:
#         ^This\ program\ dies\.\ at\ \S+\ line\ 18\.\n
#         .*?
#         ^\s+main::baz\(\)\ called\ at\ \S+\ line\ 13\n
#         \s+main::bar\(\)\ called\ at\ \S+\ line\ 7\n
#         \s+main::foo\(\)\ called\ at\ \S+\ line\ 21\n
#         )/
not ok 103 - Test the o warnLevel option
# Failed test 103 - Test the o warnLevel option at lib/perl5db.t line 2305
#      got '
# Loading DB routines from perl5db.pl version 1.43
# Editor support available.
#
# Enter h or 'h h' for help, or 'perldoc perldebug' for more help.
#
# main::(../lib/perl5db/t/test-warnLevel-option-1:28):
# 28:	myfunc();
# auto(-3)  DB<1> o warnLevel='1'
#            warnLevel = '1'
# auto(-2)  DB<2> c
# This is not a warning. at ../lib/perl5db/t/test-warnLevel-option-1 line 18, <DATA> line 17.
#  at ../lib/perl5db/t/test-warnLevel-option-1 line 18, <DATA> line 17.
# 	main::baz() called at ../lib/perl5db/t/test-warnLevel-option-1 line 13
# 	main::bar() called at ../lib/perl5db/t/test-warnLevel-option-1 line 25
# 	main::myfunc() called at ../lib/perl5db/t/test-warnLevel-option-1 line 28
# Debugged program terminated.  Use q to quit or R to restart,
# use o inhibit_exit to avoid stopping after program termination,
# h q, h R or h o to get additional info.
# auto(-1)  DB<2> q
# '
# expected /(?^msx:
#         ^This\ is\ not\ a\ warning\.\ at\ \S+\ line\ 18\.\n
#         .*?
#         ^\s+main::baz\(\)\ called\ at\ \S+\ line\ 13\n
#         \s+main::bar\(\)\ called\ at\ \S+\ line\ 25\n
#         \s+main::myfunc\(\)\ called\ at\ \S+\ line\ 28\n
#         )/
ok 104 - Test the t command (without a number.)
ok 105 - Test the o AutoTrace command
ok 106 - Test the t command with function calls.
ok 107 - Test the o AutoTrace command with function calls.
ok 108 - Test the final "Debugged program terminated" message.
ok 109 - Test the o inhibit_exit=0 command.
ok 110 - Test o PrintRet=1
ok 111 - Test o PrintRet=0
ok 112 - Test o PrintRet=1 in list context
ok 113 - Test o PrintRet=0 in list context
ok 114 - Test o PrintRet=1 in void context
ok 115 - Test o PrintRet=0 in void context
ok 116 - Test o PrintRet=0 in void context
ok 117 - Test t expr
ok 118 - Test w for lexical values.
ok 119 # skip man errors aren't especially portable


$ perl -V
Summary of my perl5 (revision 5 version 19 subversion 9) configuration:
  Snapshot of: 6fbeaf2cefaf9e56416f1453f4b8bac8f1f3f46c
  Platform:
    osname=VMS, osvers=V8.4, archname=VMS_IA64-thread-multi
    uname='VMS alma V8.4 HP rx2600  (1.50GHz/6.0MB)'
    config_args='-"Dusedevel" -"DDEBUGGING" -"Dusethreads" -"Dusevmsdebug" -"des"'
    hint=none, useposix=false, d_sigaction=define
    useithreads=define, usemultiplicity=define
    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/NAMES=(SHORTENED)/Define=_USE_
STD_STAT=1',
    optimize='/List/Debug/NoOpt',
    cppflags='undef'
    ccversion='70390020', 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='off_t', lseeksize=8
    alignbytes=8, prototype=define
  Linker and Libraries:
    ld='Link/nodebug', ldflags ='/Debug/Trace/Map'
    libpth=/sys$share /sys$library
    libs=
    perllibs=
    libc=(DECCRTL), so=exe, useshrplib=true, libperl=undef
    gnulibc_version='undef'
  Dynamic Linking:
    dlsrc=dl_vms.xs, dlext=exe, d_dlsymun=undef, ccdlflags=''
    cccdlflags='', lddlflags='/Share'


Characteristics of this PERLSHR image:
  Compile-time options: DEBUGGING HAS_TIMES HAVE_INTERP_INTERN MULTIPLICITY
                        PERLIO_LAYERS PERL_DONT_CREATE_GVSV
                        PERL_EXTERNAL_GLOB PERL_HASH_FUNC_ONE_AT_A_TIME_HARD
                        PERL_IMPLICIT_CONTEXT PERL_MALLOC_WRAP
                        PERL_NEW_COPY_ON_WRITE PERL_PRESERVE_IVUV
                        PERL_TRACK_MEMPOOL USE_IEEE USE_ITHREADS
                        USE_LARGE_FILES USE_LOCALE USE_LOCALE_COLLATE
                        USE_LOCALE_CTYPE USE_LOCALE_NUMERIC USE_PERLIO
                        USE_PERL_ATOF USE_REENTRANT_API VMS_DO_SOCKETS
                        VMS_SHORTEN_LONG_SYMBOLS
  Built under VMS
  Compiled at Jan 24 2014 18:21:39
  %ENV:
    PERLSHR="perl_root:[000000]perlshr.exe"
    PERL_RL="Perl"
    PERL_ROOT="DSA0:[craig.blead.]"
  @INC:
    /perl_root/lib/site_perl/VMS_IA64-thread-multi
    /perl_root/lib/site_perl
    /perl_root/lib/VMS_IA64-thread-multi/5_19_9
    /perl_root/lib
    .


________________________________________
Craig A. Berry
mailto:craigberry@mac.com

"... getting out of a sonnet is much more
 difficult than getting in."
                 Brad Leithauser




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