In message <[EMAIL PROTECTED]> on Fri, 6 Aug 2004 14:05:32 -0500, "Craig A. Berry"
<[EMAIL PROTECTED]> said:
craigberry> At 2:58 AM +0200 7/23/04, Richard Levitte - VMS Whacker wrote:
craigberry> >All right, that concludes what I had enough energy for tonight. The
craigberry> >rest looks like it will take some more thinking to check, and
craigberry> >honestly, at 3am, I'm not up for it.
craigberry> >
craigberry> >"I'll be back" :-).
craigberry>
craigberry>
craigberry> At last I have, as promised, tested Richard's patches to
craigberry> File::Spec::VMS::canonpath and File::Spec::VMS::splitdir
craigberry> against bleadperl. It introduces the following two
craigberry> failures in the standard test suite:
craigberry>
craigberry> not ok 134 - File::Spec->canonpath('__dev:[__dir.000000]__foo'):
'__dev:[__dir.000000]__foo'
craigberry> # Failed at [.lib]vmsfspec.t line 24
craigberry> # got '__dev:[__dir.000000]__foo'
craigberry> # expected '__dev:[__dir]__foo'
That's an incorrect expectation. It's perfectly possible to have an
actual directory called 000000.DIR, and it shouldn't be removed in
this case. The only place where 000000 can be removed is basically
when it's preceeded by a [ and followed by a . .
craigberry> not ok 234
craigberry> # Test 234 got: "[.-.d3]" ([-.lib.file.spec.t]spec.t at line 630 fail #234)
craigberry> # Expected: "[-.d3]" (File::Spec::VMS->catdir('','-','','d3'))
craigberry> # [-.lib.file.spec.t]spec.t line 630 is: ok $got, $expected,
$function;
That one is a but. I'll see if I can figure it out tomorrow.
-----
Please consider sponsoring my work on free software.
See http://www.free.lp.se/sponsoring.html for details.
--
Richard Levitte | http://richard.levitte.org/ | Tunnlandsv. 52
Levitte Programming | http://www.lp.se/ | S-168 36 Bromma
T: +46-708-26 53 44 | | SWEDEN
"Price, performance, quality... choose the two you like"
