----- Original Message ----- 
From: "Craig Berry" <[EMAIL PROTECTED]>
To: "IvorW" <[EMAIL PROTECTED]>
Cc: <[EMAIL PROTECTED]>
Sent: 14 June 2004 21:43
Subject: Re: Using the prove facility of later releases of Test::Harness with VMS


> 
>  
> On Monday, June 14, 2004, at 03:23PM, IvorW <[EMAIL PROTECTED]> wrote:
> 
> >One of the problems with troubleshooting perl modules on VMS is the
> >very non-standard make facility of MMS/MMK. In particular, it's hard to
> >pass in extra qualifiers to mmk test like TEST_VERBOSE=1, or to
> >mmk testdb like TEST_FILE=t/00fred.t
> 
> What's hard about 
> 
> $ MMK/MACRO=TEST_VERBOSE=1
> 
> or
> 
> $ MMS/MACRO=("TEST_VERBOSE"=1,"TEST_FILE"="t/00fred.t")
> 
> ?

Just the DCL quoting blues gettin to me I guess, especially as I am using ksh 
and bash most of the time these days.

> ...
> 
> Getting more tools to work is always a good thing.  What specific problems do you 
> see, what tests fail, etc.?
> 

$ mmk test
MCR perl_root:[000000]perl.exe "-MExtUtils::Command::MM" "-e" "test_harness(0, '
[.blib.lib]', '[.blib.arch]')" t/*.t
t/00compile.........
# Testing Test::Harness 2.42

ok
t/assert............
ok
t/base..............
ok
t/callback..........
ok
t/inc_taint.........
ok
t/nonumbers.........
ok
t/ok................
ok
t/pod...............
skipped
        all skipped: Test::Pod 1.00 required for testing POD
t/prove-globbing....
#     Failed test (t/prove-globbing.t at line 30)
#     Structures begin differing at:
#          $got->[0] = '%DCL-W-ACTIMAGE, error activating image USER1:[IVORW.PER
L.TEST-HARNESS-2_42.BLIB.SCRIPT]PROVE.;2'
#     $expected->[0] = '[.t]prove-globbing.t'
# Looks like you failed 1 tests of 1.
%SYSTEM-F-ABORT, abort
dubious
        Test returned status 44 (wstat 1024, 0x400)
                (VMS status is 44)
DIED. FAILED test 1
        Failed 1/1 tests, 0.00% okay
t/prove-switches....
Can't pipe "[.script]prove -Ifirst -D -I second -Ithird -Tvdb": no such file or
directory at t/prove-switches.t line 28.
#     Failed test (t/prove-switches.t at line 30)
#     Structures begin differing at:
#          $got->[0] = Does not exist
#     $expected->[0] = '# $Test::Harness::Switches: -T -I[]arch -I[]lib -Ifirst
-Isecond -Ithird
#     '
Can't pipe "[.script]prove -dD -Ifirst -I second -t -Ithird -vb": no such file o
r directory at t/prove-switches.t line 37.
#     Failed test (t/prove-switches.t at line 39)
#     Structures begin differing at:
#          $got->[0] = Does not exist
#     $expected->[0] = '# $Test::Harness::Switches: -t -I[]arch -I[]lib -Ifirst
-Isecond -Ithird
#     '
Can't pipe "[.script]prove -Ibork -Dd": no such file or directory at t/prove-swi
tches.t line 46.
#     Failed test (t/prove-switches.t at line 48)
#     Structures begin differing at:
#          $got->[0] = Does not exist
#     $expected->[0] = '# $Test::Harness::Switches: -I[]arch -I[]lib -Ifark -Ibo
rk
#     '
Can't pipe "[.script]prove -l -Ibongo -Dd": no such file or directory at t/prove
-switches.t line 54.
#     Failed test (t/prove-switches.t at line 56)
#     Structures begin differing at:
#          $got->[0] = Does not exist
#     $expected->[0] = '# $Test::Harness::Switches: -Ilib -Ibongo
#     '
Can't pipe "[.script]prove -lb -Dd": no such file or directory at t/prove-switch
es.t line 62.
#     Failed test (t/prove-switches.t at line 64)
#     Structures begin differing at:
#          $got->[0] = Does not exist
#     $expected->[0] = '# $Test::Harness::Switches: -Ilib -I[]arch -I[]lib
#     '
# Looks like you failed 5 tests of 5.
%SYSTEM-F-ABORT, abort
dubious
        Test returned status 44 (wstat 1024, 0x400)
                (VMS status is 44)
DIED. FAILED tests 1-5
        Failed 5/5 tests, 0.00% okay
t/strap-analyze.....
ok
t/strap.............
ok
t/test-harness......
%NONAME-F-NOMSG, Message number 00000004
ok
        56/208 skipped: various reasons
Failed Test        Stat Wstat Total Fail  Failed  List of Failed
-------------------------------------------------------------------------------
t/prove-globbing.t   44  1024     1    1 100.00%  1
t/prove-switches.t   44  1024     5    5 100.00%  1-5
1 test and 56 subtests skipped.
Failed 2/13 test scripts, 84.62% okay. 6/537 subtests failed, 98.88% okay.
%SYSTEM-F-ABORT, abort
%MMK-F-ERRUPD, error status %X0000002C occurred when updating target TEST_DYNAMIC
$

When it comes to using "prove" from the command line, I am adding a global symbol

$ sh sym/glob prove
  PROVE == "$PERL_ROOT:[000000]PERL.EXE USER1:[IVORW.PERL.UTILS]PROVE"

I am finding that the prove -b (or --blib) option is not working from the command line.
It seems not to be picking up [.blib] into @INC when my test tries to use my .pm

Reply via email to