r52042 - in /trunk/libtest-module-used-perl: ChangeLog Changes MANIFEST META.yml debian/changelog lib/Test/Module/Used.pm t/005_used_module.t testdata/t2/001_use_ok.t testdata/t2/lib/My/Test2.pm

[jawnsy-guest at users.alioth.debian.org]

Author: jawnsy-guest
Date: Tue Feb  2 16:56:15 2010
New Revision: 52042

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=52042
Log:
New upstream release

Added:
    trunk/libtest-module-used-perl/Changes
      - copied unchanged from r52041, branches/upstream/libtest-module-used-perl/current/Changes
Removed:
    trunk/libtest-module-used-perl/ChangeLog
Modified:
    trunk/libtest-module-used-perl/MANIFEST
    trunk/libtest-module-used-perl/META.yml
    trunk/libtest-module-used-perl/debian/changelog
    trunk/libtest-module-used-perl/lib/Test/Module/Used.pm
    trunk/libtest-module-used-perl/t/005_used_module.t
    trunk/libtest-module-used-perl/testdata/t2/001_use_ok.t
    trunk/libtest-module-used-perl/testdata/t2/lib/My/Test2.pm

Modified: trunk/libtest-module-used-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-module-used-perl/MANIFEST?rev=52042&op=diff
==============================================================================
--- trunk/libtest-module-used-perl/MANIFEST (original)
+++ trunk/libtest-module-used-perl/MANIFEST Tue Feb  2 16:56:15 2010
@@ -1,4 +1,4 @@
-ChangeLog
+Changes
 inc/Module/Install.pm
 inc/Module/Install/AuthorTests.pm
 inc/Module/Install/Base.pm

Modified: trunk/libtest-module-used-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-module-used-perl/META.yml?rev=52042&op=diff
==============================================================================
--- trunk/libtest-module-used-perl/META.yml (original)
+++ trunk/libtest-module-used-perl/META.yml Tue Feb  2 16:56:15 2010
@@ -31,4 +31,4 @@
 resources:
   license: http://dev.perl.org/licenses/
   repository: http://github.com/tsucchi/Test-Module-Used
-version: 0.1.8
+version: 0.1.9

Modified: trunk/libtest-module-used-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-module-used-perl/debian/changelog?rev=52042&op=diff
==============================================================================
--- trunk/libtest-module-used-perl/debian/changelog (original)
+++ trunk/libtest-module-used-perl/debian/changelog Tue Feb  2 16:56:15 2010
@@ -1,11 +1,12 @@
-libtest-module-used-perl (0.1.8-1) UNRELEASED; urgency=low
+libtest-module-used-perl (0.1.9-1) UNRELEASED; urgency=low
 
   Marks Makefile.PL not executable
   IGNORE-VERSION: 0.1.8-1
 
   * New upstream release
+  * New upstream release
 
- -- Jonathan Yu <jawnsy at cpan.org>  Tue, 12 Jan 2010 10:45:13 -0500
+ -- Jonathan Yu <jawnsy at cpan.org>  Tue, 02 Feb 2010 12:09:47 -0500
 
 libtest-module-used-perl (0.1.7-1) unstable; urgency=low
 

Modified: trunk/libtest-module-used-perl/lib/Test/Module/Used.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-module-used-perl/lib/Test/Module/Used.pm?rev=52042&op=diff
==============================================================================
--- trunk/libtest-module-used-perl/lib/Test/Module/Used.pm (original)
+++ trunk/libtest-module-used-perl/lib/Test/Module/Used.pm Tue Feb  2 16:56:15 2010
@@ -13,7 +13,7 @@
 use version;
 
 use 5.008;
-our $VERSION = '0.1.8';
+our $VERSION = '0.1.9';
 
 =head1 NAME
 
@@ -290,7 +290,10 @@
 
 sub _test_files {
     my $self = shift;
-    return $self->_find_files_by_ext($self->_test_dir, qr/\.t$/);
+    return (
+        $self->_find_files_by_ext($self->_test_dir, qr/\.t$/),
+        $self->_pm_files_in_test()
+    );
 }
 
 sub _find_files_by_ext {

Modified: trunk/libtest-module-used-perl/t/005_used_module.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-module-used-perl/t/005_used_module.t?rev=52042&op=diff
==============================================================================
--- trunk/libtest-module-used-perl/t/005_used_module.t (original)
+++ trunk/libtest-module-used-perl/t/005_used_module.t Tue Feb  2 16:56:15 2010
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 use strict;
 use warnings;
-use Test::More tests=>10;
+use Test::More tests=>12;
 use File::Spec::Functions qw(catfile);
 use Test::Module::Used;
 
@@ -40,3 +40,13 @@
 is_deeply([$used3->_used_modules()], [qw(Test::Module::Used)]);
 $used3->push_exclude_in_testdir( qw(Test::More Test::Class) );
 is_deeply([$used3->_used_modules_in_test()], []);
+
+# contains modules in test_dir (RT#54187)
+my $used4 = Test::Module::Used->new(
+    test_dir  => [catfile('testdata', 't2')],
+    test_lib_dir => [catfile('testdata', 't2', 'lib')],
+    lib_dir   => [catfile('testdata', 'lib2')],
+    meta_file => catfile('testdata', 'META.yml3'),
+);
+is_deeply([$used4->_test_files],   [catfile('testdata', 't2', '001_use_ok.t'), catfile('testdata', 't2', 'lib', 'My', 'Test2.pm')]);
+is_deeply([$used4->_remove_core($used4->_used_modules_in_test())], [qw(List::MoreUtils)]);

Modified: trunk/libtest-module-used-perl/testdata/t2/001_use_ok.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-module-used-perl/testdata/t2/001_use_ok.t?rev=52042&op=diff
==============================================================================
--- trunk/libtest-module-used-perl/testdata/t2/001_use_ok.t (original)
+++ trunk/libtest-module-used-perl/testdata/t2/001_use_ok.t Tue Feb  2 16:56:15 2010
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
+use Test::More;
 use strict;
 use warnings;
-use Test::More;
 
 BEGIN { use_ok('My::Test') };
 done_testing();

Modified: trunk/libtest-module-used-perl/testdata/t2/lib/My/Test2.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libtest-module-used-perl/testdata/t2/lib/My/Test2.pm?rev=52042&op=diff
==============================================================================
--- trunk/libtest-module-used-perl/testdata/t2/lib/My/Test2.pm (original)
+++ trunk/libtest-module-used-perl/testdata/t2/lib/My/Test2.pm Tue Feb  2 16:56:15 2010
@@ -1,2 +1,4 @@
 package My::Test2;
+use List::MoreUtils;
+
 1;