r31216 - in /branches/upstream/libsvn-look-perl/current: META.yml lib/SVN/Look.pm t/test-functions.pl
antonio-guest at users.alioth.debian.org
antonio-guest at users.alioth.debian.org
Sat Feb 28 12:43:18 UTC 2009
Author: antonio-guest
Date: Sat Feb 28 12:43:15 2009
New Revision: 31216
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=31216
Log:
[svn-upgrade] Integrating new upstream version, libsvn-look-perl (0.14.5)
Modified:
branches/upstream/libsvn-look-perl/current/META.yml
branches/upstream/libsvn-look-perl/current/lib/SVN/Look.pm
branches/upstream/libsvn-look-perl/current/t/test-functions.pl
Modified: branches/upstream/libsvn-look-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-look-perl/current/META.yml?rev=31216&op=diff
==============================================================================
--- branches/upstream/libsvn-look-perl/current/META.yml (original)
+++ branches/upstream/libsvn-look-perl/current/META.yml Sat Feb 28 12:43:15 2009
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: SVN-Look
-version: 0.13.463
+version: 0.14.5
abstract: A caching wrapper aroung the svnlook command.
license: ~
author:
Modified: branches/upstream/libsvn-look-perl/current/lib/SVN/Look.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-look-perl/current/lib/SVN/Look.pm?rev=31216&op=diff
==============================================================================
--- branches/upstream/libsvn-look-perl/current/lib/SVN/Look.pm (original)
+++ branches/upstream/libsvn-look-perl/current/lib/SVN/Look.pm Sat Feb 28 12:43:15 2009
@@ -14,7 +14,7 @@
=cut
-our $VERSION = '0.13.' . substr(q$Revision: 463 $, 10);
+our $VERSION = '0.14.' . substr(q$Revision: 5 $, 10); # bump from 10
=head1 SYNOPSIS
Modified: branches/upstream/libsvn-look-perl/current/t/test-functions.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libsvn-look-perl/current/t/test-functions.pl?rev=31216&op=diff
==============================================================================
--- branches/upstream/libsvn-look-perl/current/t/test-functions.pl (original)
+++ branches/upstream/libsvn-look-perl/current/t/test-functions.pl Sat Feb 28 12:43:15 2009
@@ -24,37 +24,43 @@
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)
- or diag("work_ok command failed.\n");
+ my $dir = newdir();
+ ok((do_script($dir, $cmd) == 0), $tag)
+ or diag("work_ok command failed with following stderr:\n", `cat $dir/stderr`);
}
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