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