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]

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)