Op een grimmige herfstdag (Wednesday 20 October 2004 22:00),schreef 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: $!";
Okay thanks, that helps.
Here's why:
When Test::Smoke runs "mmk test" it filters out the failing tests and reruns
these from [.t] like:
[]perl.exe harness. <list of failing tests>
and reports its results in the smoke report
This involves temporarily redefining the PERLSHR logical. I'm now testing
this.
The other way would be to temporarily (re)define the PERL_TEST_DRIVER symbol
and call test.com, but I believe that the number of arguments to test.com is
limited to 4 or 5 (and I have more failing tests than that at the moment :(.
Thanks for your quick reaction +
Good luck,
Abe
--
Anton Tagunov> P.S. People do like gory details :)
I don't like telling them.
-- Jarkko Hietaniemi on p5p @ 2002-03-06
