r55398 - in /trunk/libfile-changenotify-perl: ./ debian/ debian/source/ lib/File/ lib/File/ChangeNotify/ lib/File/ChangeNotify/Watcher/ t/ t/lib/File/ChangeNotify/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Sat Apr 3 17:28:41 UTC 2010
Author: jawnsy-guest
Date: Sat Apr 3 17:28:26 2010
New Revision: 55398
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=55398
Log:
New upstream release
Added:
trunk/libfile-changenotify-perl/debian/source/
trunk/libfile-changenotify-perl/debian/source/format
Modified:
trunk/libfile-changenotify-perl/Build.PL
trunk/libfile-changenotify-perl/Changes
trunk/libfile-changenotify-perl/META.yml
trunk/libfile-changenotify-perl/Makefile.PL
trunk/libfile-changenotify-perl/README
trunk/libfile-changenotify-perl/SIGNATURE
trunk/libfile-changenotify-perl/debian/changelog
trunk/libfile-changenotify-perl/debian/control
trunk/libfile-changenotify-perl/debian/copyright
trunk/libfile-changenotify-perl/lib/File/ChangeNotify.pm
trunk/libfile-changenotify-perl/lib/File/ChangeNotify/Event.pm
trunk/libfile-changenotify-perl/lib/File/ChangeNotify/Watcher.pm
trunk/libfile-changenotify-perl/lib/File/ChangeNotify/Watcher/Default.pm
trunk/libfile-changenotify-perl/lib/File/ChangeNotify/Watcher/Inotify.pm
trunk/libfile-changenotify-perl/lib/File/ChangeNotify/Watcher/KQueue.pm
trunk/libfile-changenotify-perl/t/excluded-dirs.t
trunk/libfile-changenotify-perl/t/instantiate-twice.t
trunk/libfile-changenotify-perl/t/lib/File/ChangeNotify/TestHelper.pm
Modified: trunk/libfile-changenotify-perl/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-changenotify-perl/Build.PL?rev=55398&op=diff
==============================================================================
--- trunk/libfile-changenotify-perl/Build.PL (original)
+++ trunk/libfile-changenotify-perl/Build.PL Sat Apr 3 17:28:26 2010
@@ -20,7 +20,7 @@
build_requires => {
'File::Path' => '0',
'File::Temp' => '0',
- 'Test::More' => '0',
+ 'Test::More' => '0.88',
},
auto_features => {
Inotify => {
@@ -29,7 +29,7 @@
},
KQueue => {
description => 'KQueue support',
- requires => { 'IO::Kqueue' => '0' },
+ requires => { 'IO::KQueue' => '0' },
},
},
create_readme => 1,
Modified: trunk/libfile-changenotify-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-changenotify-perl/Changes?rev=55398&op=diff
==============================================================================
--- trunk/libfile-changenotify-perl/Changes (original)
+++ trunk/libfile-changenotify-perl/Changes Sat Apr 3 17:28:26 2010
@@ -1,3 +1,12 @@
+0.13 2010-03-28
+
+- Circular symlinks would cause instantiating a watcher to die with an error
+ from File::Find. These are now ignored. Reported by Jon Schutz. RT #55883.
+
+- Fixed misspelling of IO::KQueue in auto features. Reported by Jens
+ Rehsack. RT #54905.
+
+
0.12 2010-01-28
- Added auto_features to the Build.PL, which will give hints on what modules
Modified: trunk/libfile-changenotify-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-changenotify-perl/META.yml?rev=55398&op=diff
==============================================================================
--- trunk/libfile-changenotify-perl/META.yml (original)
+++ trunk/libfile-changenotify-perl/META.yml Sat Apr 3 17:28:26 2010
@@ -5,7 +5,7 @@
build_requires:
File::Path: 0
File::Temp: 0
- Test::More: 0
+ Test::More: 0.88
configure_requires:
Module::Build: 0.36
generated_by: 'Module::Build version 0.3603'
@@ -17,22 +17,22 @@
provides:
File::ChangeNotify:
file: lib/File/ChangeNotify.pm
- version: 0.12
+ version: 0.13
File::ChangeNotify::Event:
file: lib/File/ChangeNotify/Event.pm
- version: 0.12
+ version: 0.13
File::ChangeNotify::Watcher:
file: lib/File/ChangeNotify/Watcher.pm
- version: 0.12
+ version: 0.13
File::ChangeNotify::Watcher::Default:
file: lib/File/ChangeNotify/Watcher/Default.pm
- version: 0.12
+ version: 0.13
File::ChangeNotify::Watcher::Inotify:
file: lib/File/ChangeNotify/Watcher/Inotify.pm
- version: 0.12
+ version: 0.13
File::ChangeNotify::Watcher::KQueue:
file: lib/File/ChangeNotify/Watcher/KQueue.pm
- version: 0.12
+ version: 0.13
requires:
Carp: 0
Class::MOP: 0
@@ -47,4 +47,4 @@
bugtracker: http://rt.cpan.org/NoAuth/Bugs.html?Dist=File-ChangeNotify
license: http://dev.perl.org/licenses/
repository: http://hg.urth.org/hg/File-ChangeNotify
-version: 0.12
+version: 0.13
Modified: trunk/libfile-changenotify-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-changenotify-perl/Makefile.PL?rev=55398&op=diff
==============================================================================
--- trunk/libfile-changenotify-perl/Makefile.PL (original)
+++ trunk/libfile-changenotify-perl/Makefile.PL Sat Apr 3 17:28:26 2010
@@ -15,7 +15,7 @@
'Moose' => '0',
'MooseX::Params::Validate' => '0.08',
'MooseX::SemiAffordanceAccessor' => '0',
- 'Test::More' => 0,
+ 'Test::More' => '0.88',
'Time::HiRes' => '0'
},
'INSTALLDIRS' => 'site',
Modified: trunk/libfile-changenotify-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-changenotify-perl/README?rev=55398&op=diff
==============================================================================
--- trunk/libfile-changenotify-perl/README (original)
+++ trunk/libfile-changenotify-perl/README Sat Apr 3 17:28:26 2010
@@ -54,16 +54,16 @@
best.
To donate, log into PayPal and send money to autarch at urth.org or use the
- button on this page: http://www.urth.org/~autarch/fs-donation.html
+ button on this page: <http://www.urth.org/~autarch/fs-donation.html>
AUTHOR
Dave Rolsky, <autarch at urth.org>
BUGS
Please report any bugs or feature requests to
- `bug-file-changenotify at rt.cpan.org', or through the web interface at
- http://rt.cpan.org. I will be notified, and then you'll automatically be
- notified of progress on your bug as I make changes.
+ "bug-file-changenotify at rt.cpan.org", or through the web interface at
+ <http://rt.cpan.org>. I will be notified, and then you'll automatically
+ be notified of progress on your bug as I make changes.
COPYRIGHT & LICENSE
Copyright 2009 Dave Rolsky, All Rights Reserved.
Modified: trunk/libfile-changenotify-perl/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-changenotify-perl/SIGNATURE?rev=55398&op=diff
==============================================================================
--- trunk/libfile-changenotify-perl/SIGNATURE (original)
+++ trunk/libfile-changenotify-perl/SIGNATURE Sat Apr 3 17:28:26 2010
@@ -1,5 +1,5 @@
This file contains message digests of all files listed in MANIFEST,
-signed via the Module::Signature module, version 0.55.
+signed via the Module::Signature module, version 0.61.
To verify the content in this distribution, first make sure you have
Module::Signature installed, then type:
@@ -14,31 +14,31 @@
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
-SHA1 2a1c3128be76ba516d06b7ed35f2861b1161a2a1 Build.PL
-SHA1 c40ea30769f2ef3aaf32c6ac109a98afcbeba473 Changes
+SHA1 6fe079fb5253e9601adf85b011c04c8adae99eda Build.PL
+SHA1 25ee8d8f7cf32fd67aa1bdf34aef8e4a18ecdc3f Changes
SHA1 36ea511abb6f5e3f82bdb8c00416c328aa01c209 MANIFEST
-SHA1 9f90039f591f37c9c6a6b205eba339a592cb90e2 META.yml
-SHA1 776ce83add48dd0b6462c49a3a32011a230fb508 Makefile.PL
-SHA1 87a34b42c7b238703780d6f0176cca227d48688f README
-SHA1 2749f2addc5927e3d7922820f8b654e966777556 lib/File/ChangeNotify.pm
-SHA1 11a1e5e6d62c4e57adc0a44124eded46dd4968ca lib/File/ChangeNotify/Event.pm
-SHA1 0a43afcb4c564ecdc529307d14575aafbc959a01 lib/File/ChangeNotify/Watcher.pm
-SHA1 8a96d8b86fa0000dfa394f02f6ebc9e405847472 lib/File/ChangeNotify/Watcher/Default.pm
-SHA1 3444e06c698a45fb54108b690cc738c3fd3d0d26 lib/File/ChangeNotify/Watcher/Inotify.pm
-SHA1 1ac4b24acd29dd73fae07846b8eafe16b49e3ccc lib/File/ChangeNotify/Watcher/KQueue.pm
+SHA1 7382b66e170e415b4c9a959be9198d97a7f69f94 META.yml
+SHA1 ee80eee9f5a40d0837857d4832b9bbeaa0e2b250 Makefile.PL
+SHA1 ac905f5e51600bb11ef1ad169539d0913a6d45f0 README
+SHA1 f8d5fe10d01e9f9234446c2388fb0a2bf705fdd1 lib/File/ChangeNotify.pm
+SHA1 d51443b80a93dc6691ee5e2fe3752253aa0ba6c5 lib/File/ChangeNotify/Event.pm
+SHA1 f781ddff4f92e4b8db4d6dfa4cc189050f5e43ef lib/File/ChangeNotify/Watcher.pm
+SHA1 542c79e4e472c17d6e9699260a02241cfa79d2ee lib/File/ChangeNotify/Watcher/Default.pm
+SHA1 a9b265c5add63cc0edb359886e8a500a6a5e9a3b lib/File/ChangeNotify/Watcher/Inotify.pm
+SHA1 1fbef40e63b6dccd6059217141499fbb0b706546 lib/File/ChangeNotify/Watcher/KQueue.pm
SHA1 a20ef45409fdaaa48eb6c23e61c549f5578f8538 t/all.t
-SHA1 5fce136606b00c4f30c536d19efeb24f35c8394e t/excluded-dirs.t
-SHA1 38c0e578a21df2b9481d90d38428973fdbf4aab9 t/instantiate-twice.t
-SHA1 7937d1a567dab6508584f4f5c5b88f4d0a03dae2 t/lib/File/ChangeNotify/TestHelper.pm
+SHA1 c4850e640da725089b03ac33ae1f87ba7a2cb7a8 t/excluded-dirs.t
+SHA1 e8a3259aff1b6f2433f03091c06e9e2c552ab1e2 t/instantiate-twice.t
+SHA1 e64fb6690f783699dc335eaa57e8060295faa0b4 t/lib/File/ChangeNotify/TestHelper.pm
SHA1 437178b17e5942761ac30bb436dcac115e5adff8 xt/kwalitee.t
SHA1 53ff5f877262e1cf1f0d27c1ee78ef5938fde1ca xt/pod-coverage.t
SHA1 e089aeb9583cff991392910d6f39155eb78a9695 xt/pod-spell.t
SHA1 9bb24d755c9e2fbf5d9b7db34df15637ccd8e3f6 xt/pod.t
SHA1 deebdfd5c8b0d2319e15f9941490e424f6072db5 xt/versions-match.t
-----BEGIN PGP SIGNATURE-----
-Version: GnuPG v1.4.9 (GNU/Linux)
+Version: GnuPG v1.4.10 (GNU/Linux)
-iEYEARECAAYFAktiUwgACgkQIgMCsV8qvRK10ACfQU3fODCaG1BXOF8HPn10w8kY
-SIQAn1GlT6pQ3l4lsMfdb736f3N5v+gm
-=2K/q
+iEYEARECAAYFAkuvY8sACgkQIgMCsV8qvRK5UACfdWR7IgyBN8oBn7/wWwV7KKlK
+t5oAnRbMQgxoW/YFUzq1R1NfzwtCWs3Q
+=A5d0
-----END PGP SIGNATURE-----
Modified: trunk/libfile-changenotify-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-changenotify-perl/debian/changelog?rev=55398&op=diff
==============================================================================
--- trunk/libfile-changenotify-perl/debian/changelog (original)
+++ trunk/libfile-changenotify-perl/debian/changelog Sat Apr 3 17:28:26 2010
@@ -1,4 +1,4 @@
-libfile-changenotify-perl (0.12-2) UNRELEASED; urgency=low
+libfile-changenotify-perl (0.13-1) UNRELEASED; urgency=low
WAITS-FOR: liblinux-inotify2-perl 1.2
@@ -6,12 +6,20 @@
* Wait for the upgrade of liblinux-inotify2-perl from 1.1 to 1.2.
Wishlist bug filed -> #568423
+ [ Jonathan Yu ]
+ * New upstream release
+ * Now requires Test::More 0.88 for testing
+ * Use new DEP5 copyright format
+ * Update to 3.0 (quilt) source format
+ * Rewrite control description
+
+ [ Franck Joncourt ]
* Add missing dependency on:
+ liblinux-inotify2-perl (>= 1.2) (Closes: #568371)
+ liblist-moreutils-perl
* Add /me as Uploader. Refreshed d.control and d.copyright accordingly.
- -- Franck Joncourt <franck at debian.org> Thu, 04 Feb 2010 13:19:21 +0100
+ -- Jonathan Yu <jawnsy at cpan.org> Sat, 03 Apr 2010 14:00:58 -0400
libfile-changenotify-perl (0.12-1) unstable; urgency=low
Modified: trunk/libfile-changenotify-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-changenotify-perl/debian/control?rev=55398&op=diff
==============================================================================
--- trunk/libfile-changenotify-perl/debian/control (original)
+++ trunk/libfile-changenotify-perl/debian/control Sat Apr 3 17:28:26 2010
@@ -4,7 +4,8 @@
Build-Depends: debhelper (>= 7)
Build-Depends-Indep: perl, libmoosex-params-validate-perl (>= 0.08),
libmoosex-semiaffordanceaccessor-perl, libclass-mop-perl, libmoose-perl,
- libtest-without-module-perl, liblinux-inotify2-perl (>= 1.2)
+ libtest-without-module-perl, liblinux-inotify2-perl (>= 1.2),
+ perl (>= 5.10.1) | libtest-simple-perl (>= 0.88)
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Jonathan Yu <jawnsy at cpan.org>, Franck Joncourt <franck at debian.org>
Standards-Version: 3.8.4
@@ -18,8 +19,8 @@
libmoosex-params-validate-perl (>= 0.08),
libmoosex-semiaffordanceaccessor-perl, liblinux-inotify2-perl (>= 1.2),
liblist-moreutils-perl
-Description: Perl module to monitor files for changes
- File::ChangeNotify provides a way to monitor files for changes in an efficient
- and cross-platform manner. In order to allow platform-specific optimizations,
- developers can override the default mechanism by subclassing the included
- File::ChangeNotify::Watcher module.
+Description: module to monitor files for changes
+ File::ChangeNotify is a Perl module that provides a way to monitor files for
+ changes in an efficient and cross-platform manner. Developers can override
+ the default mechanism by subclassing the included File::ChangeNotify::Watcher
+ module, allowing for platform-specific optimizations.
Modified: trunk/libfile-changenotify-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-changenotify-perl/debian/copyright?rev=55398&op=diff
==============================================================================
--- trunk/libfile-changenotify-perl/debian/copyright (original)
+++ trunk/libfile-changenotify-perl/debian/copyright Sat Apr 3 17:28:26 2010
@@ -1,34 +1,34 @@
-Format-Specification:
- http://wiki.debian.org/Proposals/CopyrightFormat?action=recall&rev=196
-Upstream-Maintainer: Dave Rolsky <autarch at urth.org>
-Upstream-Source: http://search.cpan.org/dist/File-ChangeNotify/
-Upstream-Name: File-ChangeNotify
+Format-Specification: http://svn.debian.org/wsvn/dep/web/deps/dep5.mdwn?op=file&rev=59
+Maintainer: Dave Rolsky <autarch at urth.org>
+Source: http://search.cpan.org/dist/File-ChangeNotify/
+Name: File-ChangeNotify
Files: *
Copyright: 2009, Dave Rolsky <autarch at urth.org>
-License-Alias: Perl
-License: Artistic | GPL-1+
+License: Artistic or GPL-1+
Files: lib/File/ChangeNotify/Watcher/KQueue.pm
Copyright: 2009, Dan Thomas <dan at cpan.org>
-License-Alias: Perl
-License: Artistic | GPL-1+
+License: Artistic or GPL-1+
Files: debian/*
Copyright: 2009-2010, Jonathan Yu <jawnsy at cpan.org>
2010, Franck Joncourt <franck at debian.org>
-License: Artistic | GPL-1+
+License: Artistic or GPL-1+
License: Artistic
- This program is free software; you can redistribute it and/or modify
- it under the terms of the Artistic License, which comes with Perl.
- On Debian GNU/Linux systems, the complete text of the Artistic License
- can be found in `/usr/share/common-licenses/Artistic'
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the Artistic License, which comes with Perl.
+ .
+ On Debian GNU/Linux systems, the complete text of the Artistic License
+ can be found in `/usr/share/common-licenses/Artistic'
License: GPL-1+
- This program is free software; you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 1, or (at your option)
- any later version.
- On Debian GNU/Linux systems, the complete text of the GNU General
- Public License can be found in `/usr/share/common-licenses/GPL'
+ This program is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 1, or (at your option)
+ any later version.
+ .
+ On Debian GNU/Linux systems, the complete text of the GNU General
+ Public License can be found in `/usr/share/common-licenses/GPL'
+
Added: trunk/libfile-changenotify-perl/debian/source/format
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-changenotify-perl/debian/source/format?rev=55398&op=file
==============================================================================
--- trunk/libfile-changenotify-perl/debian/source/format (added)
+++ trunk/libfile-changenotify-perl/debian/source/format Sat Apr 3 17:28:26 2010
@@ -1,0 +1,1 @@
+3.0 (quilt)
Modified: trunk/libfile-changenotify-perl/lib/File/ChangeNotify.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-changenotify-perl/lib/File/ChangeNotify.pm?rev=55398&op=diff
==============================================================================
--- trunk/libfile-changenotify-perl/lib/File/ChangeNotify.pm (original)
+++ trunk/libfile-changenotify-perl/lib/File/ChangeNotify.pm Sat Apr 3 17:28:26 2010
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = '0.12';
+our $VERSION = '0.13';
use Carp qw( confess );
use Class::MOP;
Modified: trunk/libfile-changenotify-perl/lib/File/ChangeNotify/Event.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-changenotify-perl/lib/File/ChangeNotify/Event.pm?rev=55398&op=diff
==============================================================================
--- trunk/libfile-changenotify-perl/lib/File/ChangeNotify/Event.pm (original)
+++ trunk/libfile-changenotify-perl/lib/File/ChangeNotify/Event.pm Sat Apr 3 17:28:26 2010
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = '0.12';
+our $VERSION = '0.13';
use Moose;
use Moose::Util::TypeConstraints;
Modified: trunk/libfile-changenotify-perl/lib/File/ChangeNotify/Watcher.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-changenotify-perl/lib/File/ChangeNotify/Watcher.pm?rev=55398&op=diff
==============================================================================
--- trunk/libfile-changenotify-perl/lib/File/ChangeNotify/Watcher.pm (original)
+++ trunk/libfile-changenotify-perl/lib/File/ChangeNotify/Watcher.pm Sat Apr 3 17:28:26 2010
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = '0.12';
+our $VERSION = '0.13';
use File::ChangeNotify::Event;
use List::MoreUtils qw(all);
Modified: trunk/libfile-changenotify-perl/lib/File/ChangeNotify/Watcher/Default.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-changenotify-perl/lib/File/ChangeNotify/Watcher/Default.pm?rev=55398&op=diff
==============================================================================
--- trunk/libfile-changenotify-perl/lib/File/ChangeNotify/Watcher/Default.pm (original)
+++ trunk/libfile-changenotify-perl/lib/File/ChangeNotify/Watcher/Default.pm Sat Apr 3 17:28:26 2010
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = '0.12';
+our $VERSION = '0.13';
use File::Find qw( finddepth );
use File::Spec;
@@ -53,7 +53,8 @@
$map{$path} = $entry;
},
follow_fast => ( $self->follow_symlinks() ? 1 : 0 ),
- no_chdir => 1
+ no_chdir => 1,
+ follow_skip => 2,
},
@{ $self->directories() },
);
Modified: trunk/libfile-changenotify-perl/lib/File/ChangeNotify/Watcher/Inotify.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-changenotify-perl/lib/File/ChangeNotify/Watcher/Inotify.pm?rev=55398&op=diff
==============================================================================
--- trunk/libfile-changenotify-perl/lib/File/ChangeNotify/Watcher/Inotify.pm (original)
+++ trunk/libfile-changenotify-perl/lib/File/ChangeNotify/Watcher/Inotify.pm Sat Apr 3 17:28:26 2010
@@ -3,7 +3,7 @@
use strict;
use warnings;
-our $VERSION = '0.12';
+our $VERSION = '0.13';
use File::Find ();
use Linux::Inotify2 1.2;
@@ -127,7 +127,8 @@
$self->_add_watch_if_dir($path);
},
follow_fast => ( $self->follow_symlinks() ? 1 : 0 ),
- no_chdir => 1
+ no_chdir => 1,
+ follow_skip => 2,
},
$dir
);
Modified: trunk/libfile-changenotify-perl/lib/File/ChangeNotify/Watcher/KQueue.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-changenotify-perl/lib/File/ChangeNotify/Watcher/KQueue.pm?rev=55398&op=diff
==============================================================================
--- trunk/libfile-changenotify-perl/lib/File/ChangeNotify/Watcher/KQueue.pm (original)
+++ trunk/libfile-changenotify-perl/lib/File/ChangeNotify/Watcher/KQueue.pm Sat Apr 3 17:28:26 2010
@@ -5,7 +5,7 @@
use Moose;
-our $VERSION = '0.12';
+our $VERSION = '0.13';
use File::Find ();
use IO::KQueue;
@@ -170,7 +170,8 @@
{
wanted => $wanted,
no_chdir => 1,
- follow_fast => ( $self->follow_symlinks ? 1 : 0 ),
+ follow_fast => ( $self->follow_symlinks ? 1 : 0 ),,
+ follow_skip => 2,
},
$dir,
);
Modified: trunk/libfile-changenotify-perl/t/excluded-dirs.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-changenotify-perl/t/excluded-dirs.t?rev=55398&op=diff
==============================================================================
--- trunk/libfile-changenotify-perl/t/excluded-dirs.t (original)
+++ trunk/libfile-changenotify-perl/t/excluded-dirs.t Sat Apr 3 17:28:26 2010
@@ -6,8 +6,6 @@
use File::Spec;
use Test::More;
-
-plan tests => 6;
my $root = File::Spec->catfile( $FindBin::Bin, '..' );
sub f { File::Spec->catfile( $root, @_ ) }
@@ -41,3 +39,5 @@
!$watcher->_path_is_excluded( f( '.hidden', 'file' ) ),
'hidden dir regex does not exclude subdirs'
);
+
+done_testing();
Modified: trunk/libfile-changenotify-perl/t/instantiate-twice.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-changenotify-perl/t/instantiate-twice.t?rev=55398&op=diff
==============================================================================
--- trunk/libfile-changenotify-perl/t/instantiate-twice.t (original)
+++ trunk/libfile-changenotify-perl/t/instantiate-twice.t Sat Apr 3 17:28:26 2010
@@ -5,8 +5,6 @@
eval 'use Test::Without::Module qw( Linux::Inotify2 )';
plan skip_all => 'This test requires Test::Without::Module' if $@;
-
-plan tests => 2;
use File::ChangeNotify;
@@ -22,3 +20,5 @@
$watcher2->isa('File::ChangeNotify::Watcher'),
'second isa File::ChangeNotify::Watcher'
);
+
+done_testing();
Modified: trunk/libfile-changenotify-perl/t/lib/File/ChangeNotify/TestHelper.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libfile-changenotify-perl/t/lib/File/ChangeNotify/TestHelper.pm?rev=55398&op=diff
==============================================================================
--- trunk/libfile-changenotify-perl/t/lib/File/ChangeNotify/TestHelper.pm (original)
+++ trunk/libfile-changenotify-perl/t/lib/File/ChangeNotify/TestHelper.pm Sat Apr 3 17:28:26 2010
@@ -6,6 +6,8 @@
use File::ChangeNotify;
use File::Temp qw( tempdir );
use File::Path qw( mkpath rmtree );
+
+use Test::Exception;
use Test::More;
use base 'Exporter';
@@ -16,8 +18,6 @@
sub run_tests {
my @classes = File::ChangeNotify->usable_classes();
-
- plan tests => 31 * @classes;
for my $class (@classes) {
( my $short = $class ) =~ s/^File::ChangeNotify::Watcher:://;
@@ -29,6 +29,8 @@
_shared_tests( $class, \&_nonblocking );
_symlink_tests($class);
}
+
+ done_testing();
}
sub _blocking {
@@ -333,6 +335,20 @@
],
'one event for symlinked dir when following symlinks',
);
+
+ my $dir3 = tempdir( CLEANUP => 1 );
+
+ symlink "$dir3/..", "$dir3/top";
+ symlink "$dir3/input-circular1", "$dir3/input-circular2";
+ symlink "$dir3/input-circular2", "$dir3/input-circular1";
+
+ lives_ok {
+ File::ChangeNotify->instantiate_watcher(
+ directories => $dir3,
+ follow_symlinks => 1,
+ );
+ }
+ 'made watcher for directory with circular symlinks';
}
}
More information about the Pkg-perl-cvs-commits
mailing list