r27470 - /trunk/dh-make-perl/t/dists.t
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Sun Nov 30 13:27:33 UTC 2008
Author: dmn
Date: Sun Nov 30 13:27:31 2008
New Revision: 27470
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27470
Log:
nicer test output -- short directory names
Modified:
trunk/dh-make-perl/t/dists.t
Modified: trunk/dh-make-perl/t/dists.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/t/dists.t?rev=27470&op=diff
==============================================================================
--- trunk/dh-make-perl/t/dists.t (original)
+++ trunk/dh-make-perl/t/dists.t Sun Nov 30 13:27:31 2008
@@ -8,6 +8,7 @@
use FindBin qw($Bin);
sub compare {
+ my $dist = shift;
return unless -f $File::Find::name;
@@ -45,7 +46,7 @@
$diff = '' if $only_date_differs;
}
- is($diff, '', "$File::Find::name is OK");
+ is($diff, '', "$dist/debian/$_ is OK");
}
sub dist_ok($) {
@@ -62,7 +63,7 @@
use File::Find qw(find);
use Text::Diff qw(diff);
- find(\&compare, "$dist/wanted-debian");
+ find( sub { compare($dist_dir) }, "$dist/wanted-debian");
# clean after the test
find( sub{
More information about the Pkg-perl-cvs-commits
mailing list