r27681 - in /trunk/libsvn-hooks-perl: Changes META.yml Makefile.PL README debian/changelog debian/libsvn-hooks-perl.docs lib/SVN/Hooks.pm t/02-allowlogchange.t t/02-mailer.t t/test-functions.pl
angelabad-guest at users.alioth.debian.org
angelabad-guest at users.alioth.debian.org
Wed Dec 3 16:22:12 UTC 2008
Author: angelabad-guest
Date: Wed Dec 3 16:22:09 2008
New Revision: 27681
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27681
Log:
New release and switch to unstable
Modified:
trunk/libsvn-hooks-perl/Changes
trunk/libsvn-hooks-perl/META.yml
trunk/libsvn-hooks-perl/Makefile.PL
trunk/libsvn-hooks-perl/README
trunk/libsvn-hooks-perl/debian/changelog
trunk/libsvn-hooks-perl/debian/libsvn-hooks-perl.docs
trunk/libsvn-hooks-perl/lib/SVN/Hooks.pm
trunk/libsvn-hooks-perl/t/02-allowlogchange.t
trunk/libsvn-hooks-perl/t/02-mailer.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=27681&op=diff
==============================================================================
--- trunk/libsvn-hooks-perl/Changes (original)
+++ trunk/libsvn-hooks-perl/Changes Wed Dec 3 16:22:09 2008
@@ -1,4 +1,9 @@
Revision history for SVN-Look. -*- text -*-
+
+0.13 2008-12-03
+
+ Moving code to http://code.google.com/p/svn-hooks/.
+ Improving some tests.
0.12 2008-10-09
Modified: trunk/libsvn-hooks-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsvn-hooks-perl/META.yml?rev=27681&op=diff
==============================================================================
--- trunk/libsvn-hooks-perl/META.yml (original)
+++ trunk/libsvn-hooks-perl/META.yml Wed Dec 3 16:22:09 2008
@@ -1,19 +1,17 @@
---- #YAML:1.0
-name: SVN-Hooks
-version: 0.12.477
-abstract: A framework for implementing Subversion hooks.
-license: ~
-author:
- - Gustavo Chaves <gnustavo at cpan.org>
-generated_by: ExtUtils::MakeMaker version 6.42
-distribution_type: module
-requires:
+# http://module-build.sourceforge.net/META-spec.html
+#XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX#
+name: SVN-Hooks
+version: 0.13.9
+version_from: lib/SVN/Hooks.pm
+installdirs: site
+requires:
Email::Send: 0
Email::Simple: 0
Email::Simple::Creator: 0
SVN::Look: 0
+ SVN::Notify: 0
Test::More: 0
XMLRPC::Lite: 0
-meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.3.html
- version: 1.3
+
+distribution_type: module
+generated_by: ExtUtils::MakeMaker version 6.30_01
Modified: trunk/libsvn-hooks-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsvn-hooks-perl/Makefile.PL?rev=27681&op=diff
==============================================================================
--- trunk/libsvn-hooks-perl/Makefile.PL (original)
+++ trunk/libsvn-hooks-perl/Makefile.PL Wed Dec 3 16:22:09 2008
@@ -12,9 +12,10 @@
'Email::Send' => 0,
'Email::Simple' => 0,
'Email::Simple::Creator' => 0,
+ 'SVN::Look' => 0,
+ 'SVN::Notify' => 0,
+ 'Test::More' => 0,
'XMLRPC::Lite' => 0,
- 'Test::More' => 0,
- 'SVN::Look' => 0,
},
dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
clean => { FILES => 'SVN-Hooks-*' },
Modified: trunk/libsvn-hooks-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsvn-hooks-perl/README?rev=27681&op=diff
==============================================================================
--- trunk/libsvn-hooks-perl/README (original)
+++ trunk/libsvn-hooks-perl/README Wed Dec 3 16:22:09 2008
@@ -1,6 +1,6 @@
Name: SVN-Hooks
What: Framework for Subversion hooks
-Version: 0.12
+Version: 0.13
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=27681&op=diff
==============================================================================
--- trunk/libsvn-hooks-perl/debian/changelog (original)
+++ trunk/libsvn-hooks-perl/debian/changelog Wed Dec 3 16:22:09 2008
@@ -1,5 +1,5 @@
-libsvn-hooks-perl (0.12.477-1) UNRELEASED; urgency=low
+libsvn-hooks-perl (0.13.9-1) unstable; urgency=low
* Initial Release. (Closes: #507268)
- -- Angel Abad (Ikusnet SLL) <angel at grupoikusnet.com> Wed, 3 Dec 2008 16:22:38 +0100
+ -- Angel Abad (Ikusnet SLL) <angel at grupoikusnet.com> Wed, 03 Dec 2008 17:07:13 +0100
Modified: trunk/libsvn-hooks-perl/debian/libsvn-hooks-perl.docs
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libsvn-hooks-perl/debian/libsvn-hooks-perl.docs?rev=27681&op=diff
==============================================================================
--- trunk/libsvn-hooks-perl/debian/libsvn-hooks-perl.docs (original)
+++ trunk/libsvn-hooks-perl/debian/libsvn-hooks-perl.docs Wed Dec 3 16:22:09 2008
@@ -1,2 +1,1 @@
TODO
-README
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=27681&op=diff
==============================================================================
--- trunk/libsvn-hooks-perl/lib/SVN/Hooks.pm (original)
+++ trunk/libsvn-hooks-perl/lib/SVN/Hooks.pm Wed Dec 3 16:22:09 2008
@@ -15,11 +15,11 @@
=head1 VERSION
-Version 0.12
+Version 0.13
=cut
-our $VERSION = '0.12.' . substr(q$Revision: 477 $, 10); # bump from 410
+our $VERSION = '0.13.' . substr(q$Revision: 9 $, 10); # bump from 7
=head1 SYNOPSIS
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=27681&op=diff
==============================================================================
--- trunk/libsvn-hooks-perl/t/02-allowlogchange.t (original)
+++ trunk/libsvn-hooks-perl/t/02-allowlogchange.t Wed Dec 3 16:22:09 2008
@@ -48,8 +48,10 @@
svn pd svn:log --revprop -r 1 $repo
EOS
+my $username = getpwuid($<);
+
set_conf(<<"EOS");
-ALLOW_LOG_CHANGE('x$ENV{USER}');
+ALLOW_LOG_CHANGE('x$username');
EOS
work_nok('deny user' => 'ALLOW_LOG_CHANGE: you are not allowed to change a revision log.', <<"EOS");
@@ -57,7 +59,7 @@
EOS
set_conf(<<"EOS");
-ALLOW_LOG_CHANGE($ENV{USER});
+ALLOW_LOG_CHANGE($username);
EOS
work_ok('can modify', <<"EOS");
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=27681&op=diff
==============================================================================
--- trunk/libsvn-hooks-perl/t/02-mailer.t (original)
+++ trunk/libsvn-hooks-perl/t/02-mailer.t Wed Dec 3 16:22:09 2008
@@ -7,6 +7,8 @@
require "test-functions.pl";
+my $io_available = 1;
+
if (not has_svn()) {
plan skip_all => 'Need svn commands in the PATH.';
}
@@ -15,6 +17,10 @@
}
elsif (not eval {require Email::Simple::Creator}) {
plan skip_all => 'Need Email::Simple::Creator';
+}
+elsif (! Email::Send->new()->mailer_available('IO')) {
+ $io_available = 0;
+ plan tests => 7;
}
else {
plan tests => 17;
@@ -81,6 +87,8 @@
work_nok('commit missing to', "EMAIL_COMMIT: missing 'to' address", work('f'));
+exit 0 unless $io_available;
+
my $log = '02-mailer.log';
set_conf(<<'EOS');
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=27681&op=diff
==============================================================================
--- trunk/libsvn-hooks-perl/t/test-functions.pl (original)
+++ trunk/libsvn-hooks-perl/t/test-functions.pl Wed Dec 3 16:22:09 2008
@@ -25,37 +25,42 @@
our $T;
+sub newdir {
+ my $num = 1 + Test::Builder->new()->current_test();
+ my $dir = "$T/$num";
+ mkdir $dir;
+ $dir;
+}
+
sub do_script {
- my ($num, $cmd) = @_;
+ my ($dir, $cmd) = @_;
{
- open my $script, '>', "$T/script" or die;
+ open my $script, '>', "$dir/script" or die;
print $script $cmd;
close $script;
- chmod 0755, "$T/script";
+ chmod 0755, "$dir/script";
}
- system("$T/script 1>$T/$num.stdout 2>$T/$num.stderr");
+ system("$dir/script 1>$dir/stdout 2>$dir/stderr");
}
sub work_ok {
my ($tag, $cmd) = @_;
- my $num = 1 + Test::Builder->new()->current_test();
- ok((do_script($num, $cmd) == 0), $tag)
+ ok((do_script(newdir(), $cmd) == 0), $tag)
or diag("work_ok command failed.\n");
}
sub work_nok {
my ($tag, $error_expect, $cmd) = @_;
-
- my $num = 1 + Test::Builder->new()->current_test();
- my $exit = do_script($num, $cmd);
+ my $dir = newdir();
+ my $exit = do_script($dir, $cmd);
if ($exit == 0) {
fail($tag);
diag("work_nok command worked but it shouldn't!\n");
return;
}
- my $stderr = `cat $T/$num.stderr`;
+ my $stderr = `cat $dir/stderr`;
if (! ref $error_expect) {
ok(index($stderr, $error_expect) >= 0, $tag)
More information about the Pkg-perl-cvs-commits
mailing list