r57071 - in /trunk/libsvn-hooks-perl: ./ debian/ lib/SVN/ lib/SVN/Hooks/ t/
carnil-guest at users.alioth.debian.org
carnil-guest at users.alioth.debian.org
Wed Apr 28 20:04:36 UTC 2010
Author: carnil-guest
Date: Wed Apr 28 20:02:38 2010
New Revision: 57071
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=57071
Log:
New upstream release
Modified:
trunk/libsvn-hooks-perl/Changes
trunk/libsvn-hooks-perl/META.yml
trunk/libsvn-hooks-perl/README
trunk/libsvn-hooks-perl/debian/changelog
trunk/libsvn-hooks-perl/lib/SVN/Hooks.pm
trunk/libsvn-hooks-perl/lib/SVN/Hooks/DenyChanges.pm
trunk/libsvn-hooks-perl/t/00-load.t
trunk/libsvn-hooks-perl/t/02-allowlogchange.t
trunk/libsvn-hooks-perl/t/02-allowpropchange.t
trunk/libsvn-hooks-perl/t/02-checkcapability.t
trunk/libsvn-hooks-perl/t/02-checkjira.t
trunk/libsvn-hooks-perl/t/02-checklog.t
trunk/libsvn-hooks-perl/t/02-checkmimetypes.t
trunk/libsvn-hooks-perl/t/02-checkproperty.t
trunk/libsvn-hooks-perl/t/02-checkstructure.t
trunk/libsvn-hooks-perl/t/02-denychanges.t
trunk/libsvn-hooks-perl/t/02-denyfilenames.t
trunk/libsvn-hooks-perl/t/02-jiraacceptance.t
trunk/libsvn-hooks-perl/t/02-mailer.t
trunk/libsvn-hooks-perl/t/02-notify.t
trunk/libsvn-hooks-perl/t/02-updateconffile.t
trunk/libsvn-hooks-perl/t/test-functions.pl
Modified: trunk/libsvn-hooks-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsvn-hooks-perl/Changes?rev=57071&op=diff
==============================================================================
--- trunk/libsvn-hooks-perl/Changes (original)
+++ trunk/libsvn-hooks-perl/Changes Wed Apr 28 20:02:38 2010
@@ -1,4 +1,8 @@
Revision history for SVN-Hooks. -*- text -*-
+
+0.28 2010-04-28
+
+ Being more careful during tests.
0.27 2010-03-09
Modified: trunk/libsvn-hooks-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsvn-hooks-perl/META.yml?rev=57071&op=diff
==============================================================================
--- trunk/libsvn-hooks-perl/META.yml (original)
+++ trunk/libsvn-hooks-perl/META.yml Wed Apr 28 20:02:38 2010
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: SVN-Hooks
-version: 0.27
+version: 0.28
abstract: A framework for implementing Subversion hooks.
license: ~
author:
Modified: trunk/libsvn-hooks-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsvn-hooks-perl/README?rev=57071&op=diff
==============================================================================
--- trunk/libsvn-hooks-perl/README (original)
+++ trunk/libsvn-hooks-perl/README Wed Apr 28 20:02:38 2010
@@ -1,6 +1,6 @@
Name: SVN-Hooks
What: Framework for Subversion hooks
-Version: 0.27
+Version: 0.28
Author: Gustavo Chaves <gnustavo at cpan.org>
SVN-Hooks is a framework for creating Subversion hooks
Modified: trunk/libsvn-hooks-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsvn-hooks-perl/debian/changelog?rev=57071&op=diff
==============================================================================
--- trunk/libsvn-hooks-perl/debian/changelog (original)
+++ trunk/libsvn-hooks-perl/debian/changelog Wed Apr 28 20:02:38 2010
@@ -1,3 +1,9 @@
+libsvn-hooks-perl (0.28-1) UNRELEASED; urgency=low
+
+ * New upstream release
+
+ -- Salvatore Bonaccorso <salvatore.bonaccorso at gmail.com> Wed, 28 Apr 2010 22:02:16 +0200
+
libsvn-hooks-perl (0.27-1) unstable; urgency=low
* New upstream release
Modified: trunk/libsvn-hooks-perl/lib/SVN/Hooks.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsvn-hooks-perl/lib/SVN/Hooks.pm?rev=57071&op=diff
==============================================================================
--- trunk/libsvn-hooks-perl/lib/SVN/Hooks.pm (original)
+++ trunk/libsvn-hooks-perl/lib/SVN/Hooks.pm Wed Apr 28 20:02:38 2010
@@ -15,11 +15,11 @@
=head1 VERSION
-Version 0.27
+Version 0.28
=cut
-our $VERSION = '0.27';
+our $VERSION = '0.28';
=head1 SYNOPSIS
Modified: trunk/libsvn-hooks-perl/lib/SVN/Hooks/DenyChanges.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsvn-hooks-perl/lib/SVN/Hooks/DenyChanges.pm?rev=57071&op=diff
==============================================================================
--- trunk/libsvn-hooks-perl/lib/SVN/Hooks/DenyChanges.pm (original)
+++ trunk/libsvn-hooks-perl/lib/SVN/Hooks/DenyChanges.pm Wed Apr 28 20:02:38 2010
@@ -46,7 +46,7 @@
DENY_UPDATE(qr/^tags/); # Can't modify tags
-=head2 DENY_EXCEMPT_USERS(LIST)
+=head2 DENY_EXCEPT_USERS(LIST)
This directive receives a list of user names which are to be exempt
from the rules specified by the other directives.
Modified: trunk/libsvn-hooks-perl/t/00-load.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsvn-hooks-perl/t/00-load.t?rev=57071&op=diff
==============================================================================
--- trunk/libsvn-hooks-perl/t/00-load.t (original)
+++ trunk/libsvn-hooks-perl/t/00-load.t Wed Apr 28 20:02:38 2010
@@ -7,11 +7,11 @@
require "test-functions.pl";
-if (has_svn()) {
+if (can_svn()) {
plan tests => 1;
}
else {
- plan skip_all => 'Need svn commands in the PATH.';
+ plan skip_all => 'Cannot find or use svn commands.';
}
my $t = reset_repo();
Modified: trunk/libsvn-hooks-perl/t/02-allowlogchange.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsvn-hooks-perl/t/02-allowlogchange.t?rev=57071&op=diff
==============================================================================
--- trunk/libsvn-hooks-perl/t/02-allowlogchange.t (original)
+++ trunk/libsvn-hooks-perl/t/02-allowlogchange.t Wed Apr 28 20:02:38 2010
@@ -7,11 +7,11 @@
require "test-functions.pl";
-if (has_svn()) {
+if (can_svn()) {
plan tests => 8;
}
else {
- plan skip_all => 'Need svn commands in the PATH.';
+ plan skip_all => 'Cannot find or use svn commands.';
}
my $t = reset_repo();
Modified: trunk/libsvn-hooks-perl/t/02-allowpropchange.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsvn-hooks-perl/t/02-allowpropchange.t?rev=57071&op=diff
==============================================================================
--- trunk/libsvn-hooks-perl/t/02-allowpropchange.t (original)
+++ trunk/libsvn-hooks-perl/t/02-allowpropchange.t Wed Apr 28 20:02:38 2010
@@ -7,11 +7,11 @@
require "test-functions.pl";
-if (has_svn()) {
+if (can_svn()) {
plan tests => 8;
}
else {
- plan skip_all => 'Need svn commands in the PATH.';
+ plan skip_all => 'Cannot find or use svn commands.';
}
my $t = reset_repo();
Modified: trunk/libsvn-hooks-perl/t/02-checkcapability.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsvn-hooks-perl/t/02-checkcapability.t?rev=57071&op=diff
==============================================================================
--- trunk/libsvn-hooks-perl/t/02-checkcapability.t (original)
+++ trunk/libsvn-hooks-perl/t/02-checkcapability.t Wed Apr 28 20:02:38 2010
@@ -7,11 +7,11 @@
require "test-functions.pl";
-if (has_svn()) {
+if (can_svn()) {
plan tests => 3;
}
else {
- plan skip_all => 'Need svn commands in the PATH.';
+ plan skip_all => 'Cannot find or use svn commands.';
}
my $t = reset_repo();
Modified: trunk/libsvn-hooks-perl/t/02-checkjira.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsvn-hooks-perl/t/02-checkjira.t?rev=57071&op=diff
==============================================================================
--- trunk/libsvn-hooks-perl/t/02-checkjira.t (original)
+++ trunk/libsvn-hooks-perl/t/02-checkjira.t Wed Apr 28 20:02:38 2010
@@ -7,8 +7,8 @@
require "test-functions.pl";
-if (not has_svn()) {
- plan skip_all => 'Need svn commands in the PATH.';
+if (not can_svn()) {
+ plan skip_all => 'Cannot find or use svn commands.';
}
elsif (not eval {require JIRA::Client}) {
plan skip_all => 'Need JIRA::Client';
Modified: trunk/libsvn-hooks-perl/t/02-checklog.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsvn-hooks-perl/t/02-checklog.t?rev=57071&op=diff
==============================================================================
--- trunk/libsvn-hooks-perl/t/02-checklog.t (original)
+++ trunk/libsvn-hooks-perl/t/02-checklog.t Wed Apr 28 20:02:38 2010
@@ -7,11 +7,11 @@
require "test-functions.pl";
-if (has_svn()) {
+if (can_svn()) {
plan tests => 5;
}
else {
- plan skip_all => 'Need svn commands in the PATH.';
+ plan skip_all => 'Cannot find or use svn commands.';
}
my $t = reset_repo();
Modified: trunk/libsvn-hooks-perl/t/02-checkmimetypes.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsvn-hooks-perl/t/02-checkmimetypes.t?rev=57071&op=diff
==============================================================================
--- trunk/libsvn-hooks-perl/t/02-checkmimetypes.t (original)
+++ trunk/libsvn-hooks-perl/t/02-checkmimetypes.t Wed Apr 28 20:02:38 2010
@@ -7,11 +7,11 @@
require "test-functions.pl";
-if (has_svn()) {
+if (can_svn()) {
plan tests => 5;
}
else {
- plan skip_all => 'Need svn commands in the PATH.';
+ plan skip_all => 'Cannot find or use svn commands.';
}
my $t = reset_repo();
Modified: trunk/libsvn-hooks-perl/t/02-checkproperty.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsvn-hooks-perl/t/02-checkproperty.t?rev=57071&op=diff
==============================================================================
--- trunk/libsvn-hooks-perl/t/02-checkproperty.t (original)
+++ trunk/libsvn-hooks-perl/t/02-checkproperty.t Wed Apr 28 20:02:38 2010
@@ -7,11 +7,11 @@
require "test-functions.pl";
-if (has_svn()) {
+if (can_svn()) {
plan tests => 20;
}
else {
- plan skip_all => 'Need svn commands in the PATH.';
+ plan skip_all => 'Cannot find or use svn commands.';
}
my $t = reset_repo();
Modified: trunk/libsvn-hooks-perl/t/02-checkstructure.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsvn-hooks-perl/t/02-checkstructure.t?rev=57071&op=diff
==============================================================================
--- trunk/libsvn-hooks-perl/t/02-checkstructure.t (original)
+++ trunk/libsvn-hooks-perl/t/02-checkstructure.t Wed Apr 28 20:02:38 2010
@@ -7,11 +7,11 @@
require "test-functions.pl";
-if (has_svn()) {
+if (can_svn()) {
plan tests => 13;
}
else {
- plan skip_all => 'Need svn commands in the PATH.';
+ plan skip_all => 'Cannot find or use svn commands.';
}
my $t = reset_repo();
Modified: trunk/libsvn-hooks-perl/t/02-denychanges.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsvn-hooks-perl/t/02-denychanges.t?rev=57071&op=diff
==============================================================================
--- trunk/libsvn-hooks-perl/t/02-denychanges.t (original)
+++ trunk/libsvn-hooks-perl/t/02-denychanges.t Wed Apr 28 20:02:38 2010
@@ -7,11 +7,11 @@
require "test-functions.pl";
-if (has_svn()) {
+if (can_svn()) {
plan tests => 10;
}
else {
- plan skip_all => 'Need svn commands in the PATH.';
+ plan skip_all => 'Cannot find or use svn commands.';
}
my $t = reset_repo();
Modified: trunk/libsvn-hooks-perl/t/02-denyfilenames.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsvn-hooks-perl/t/02-denyfilenames.t?rev=57071&op=diff
==============================================================================
--- trunk/libsvn-hooks-perl/t/02-denyfilenames.t (original)
+++ trunk/libsvn-hooks-perl/t/02-denyfilenames.t Wed Apr 28 20:02:38 2010
@@ -7,11 +7,11 @@
require "test-functions.pl";
-if (has_svn()) {
+if (can_svn()) {
plan tests => 4;
}
else {
- plan skip_all => 'Need svn commands in the PATH.';
+ plan skip_all => 'Cannot find or use svn commands.';
}
my $t = reset_repo();
Modified: trunk/libsvn-hooks-perl/t/02-jiraacceptance.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsvn-hooks-perl/t/02-jiraacceptance.t?rev=57071&op=diff
==============================================================================
--- trunk/libsvn-hooks-perl/t/02-jiraacceptance.t (original)
+++ trunk/libsvn-hooks-perl/t/02-jiraacceptance.t Wed Apr 28 20:02:38 2010
@@ -7,8 +7,8 @@
require "test-functions.pl";
-if (not has_svn()) {
- plan skip_all => 'Need svn commands in the PATH.';
+if (not can_svn()) {
+ plan skip_all => 'Cannot find or use svn commands.';
}
elsif (not eval {require XMLRPC::Lite}) {
plan skip_all => 'Need XMLRPC::Lite';
Modified: trunk/libsvn-hooks-perl/t/02-mailer.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsvn-hooks-perl/t/02-mailer.t?rev=57071&op=diff
==============================================================================
--- trunk/libsvn-hooks-perl/t/02-mailer.t (original)
+++ trunk/libsvn-hooks-perl/t/02-mailer.t Wed Apr 28 20:02:38 2010
@@ -9,8 +9,8 @@
my $io_available = 1;
-if (not has_svn()) {
- plan skip_all => 'Need svn commands in the PATH.';
+if (not can_svn()) {
+ plan skip_all => 'Cannot find or use svn commands.';
}
elsif (not eval {require Email::Send}) {
plan skip_all => 'Need Email::Send';
Modified: trunk/libsvn-hooks-perl/t/02-notify.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsvn-hooks-perl/t/02-notify.t?rev=57071&op=diff
==============================================================================
--- trunk/libsvn-hooks-perl/t/02-notify.t (original)
+++ trunk/libsvn-hooks-perl/t/02-notify.t Wed Apr 28 20:02:38 2010
@@ -7,8 +7,8 @@
require "test-functions.pl";
-if (not has_svn()) {
- plan skip_all => 'Need svn commands in the PATH.';
+if (not can_svn()) {
+ plan skip_all => 'Cannot find or use svn commands.';
}
elsif (! eval {require SVN::Notify}) {
plan skip_all => 'Need SVN::Notify.';
Modified: trunk/libsvn-hooks-perl/t/02-updateconffile.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsvn-hooks-perl/t/02-updateconffile.t?rev=57071&op=diff
==============================================================================
--- trunk/libsvn-hooks-perl/t/02-updateconffile.t (original)
+++ trunk/libsvn-hooks-perl/t/02-updateconffile.t Wed Apr 28 20:02:38 2010
@@ -7,11 +7,11 @@
require "test-functions.pl";
-if (has_svn()) {
+if (can_svn()) {
plan tests => 13;
}
else {
- plan skip_all => 'Need svn commands in the PATH.';
+ plan skip_all => 'Cannot find or use svn commands.';
}
my $t = reset_repo();
Modified: trunk/libsvn-hooks-perl/t/test-functions.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsvn-hooks-perl/t/test-functions.pl?rev=57071&op=diff
==============================================================================
--- trunk/libsvn-hooks-perl/t/test-functions.pl (original)
+++ trunk/libsvn-hooks-perl/t/test-functions.pl Wed Apr 28 20:02:38 2010
@@ -7,11 +7,12 @@
use Cwd;
use File::Temp qw/tempdir/;
use File::Spec::Functions qw/catfile path/;
+use File::Path;
# Make sure the svn messages come in English.
$ENV{LC_MESSAGES} = 'C';
-sub has_svn {
+sub can_svn {
CMD:
for my $cmd (qw/svn svnadmin svnlook/) {
for my $path (path()) {
@@ -19,7 +20,12 @@
}
return 0;
}
- return 1;
+
+ my $T = tempdir('t.XXXX', DIR => getcwd());
+ my $canuseit = system("svnadmin create $T/repo") == 0;
+ rmtree($T);
+
+ return $canuseit;
}
our $T;
More information about the Pkg-perl-cvs-commits
mailing list