[perl #40048] [CAGE] t/distro/file_metadata.t doesn't like svk
Will Coleda
# Please include the string: [perl #40048]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=40048 >
works fine with svn, but not svk. be nice if it worked under either
system.
--
Will "Coke" Coleda
wi...@coleda.com
Jerry Gay
how do you quantify "doesn't like svk?"
what is the output of C<prove -v t/distro/file_metadata.t>?
~jerry
Will Coleda
e.g.:
my @cmd = qw(svn pg svn:mime-type);
@cmd = qw(svn pg svn:keywords);
one reference is made to 'svk ls', but it's never considered as an
option to get at the meta data, just as a criteria to then try to get
the data with svn.
Regards.
On Aug 2, 2006, at 3:37 PM, Jerry Gay via RT wrote:
> how do you quantify "doesn't like svk?"
> what is the output of C<prove -v t/distro/file_metadata.t>?
> ~jerry
>
>
>
--
Will "Coke" Coleda
wi...@coleda.com
Chromatic
> Every single test fails because the file assumes svn instead of svk,
> e.g.:
>
> my @cmd = qw(svn pg svn:mime-type);
> @cmd = qw(svn pg svn:keywords);
>
> one reference is made to 'svk ls', but it's never considered as an
> option to get at the meta data, just as a criteria to then try to get
> the data with svn.
Wow, this test takes a while. Here's a brain-dead simple patch I wrote that
seems to be working for now.
-- c
Will Coleda
- my @cmd = qw(svn pg Copyright);
+ my @cmd = qw(pg Copyright);
should probably be:
- my @cmd = qw(svn pg Copyright);
+ my @cmd = qw($cmd pg Copyright);
(though that test is skipped right now anyway)
> <allow_svk.patch>
Chromatic
> Seems fine, modulo:
>
> - my @cmd = qw(svn pg Copyright);
> + my @cmd = qw(pg Copyright);
>
> should probably be:
>
> - my @cmd = qw(svn pg Copyright);
> + my @cmd = qw($cmd pg Copyright);
>
> (though that test is skipped right now anyway)
$cmd doesn't interpolate in qw() unfortunately.
-- c