Re: [PATCH] test_harness tweak for VMS (was Re: [PATCH] add the 'test_harness' target to vms "makefile")

[Craig Berry]

 
On Wednesday, October 20, 2004, at 02:29PM, Abe Timmerman <[EMAIL PROTECTED]> wrote:


>> I've changed test.com to use a global symbol rather than a
>> parameter to determine whether to use t/TEST or t/harness. That leaves
>> the parameters free to work as they always have.
>
>Sorry about that. I just wanted something easy callable from Test::Smoke.
>So, here's a question: "How do I manipulate global symbols from perl?"

Do you need to?  If you are doing C<mmk test_harness>, the descrip.mms will set the 
symbol for you.  If you want to run test.com directly from Perl and have it use 
t/harness, you can easily set a symbol like so

use VMS::DCLsym;
$h = new VMS::DCLsym;
$h->setsym('PERL_TEST_DRIVER', 'harness.', 'GLOBAL')
   or die "Can't set symbol: $!";

See

$ perldoc VMS::DCLsym

Oops, there's a doc bug; the line that says:

      $handle = new VMS::DCLsyms;

should say

      $handle = new VMS::DCLsym;