[Bps-public-commit] r15854 - in SVN-Mirror/trunk: .

[clkao at bestpractical.com]

Author: clkao
Date: Mon Sep  8 07:41:17 2008
New Revision: 15854

Modified:
   SVN-Mirror/trunk/   (props changed)
   SVN-Mirror/trunk/Makefile.PL
   SVN-Mirror/trunk/t/2basic.t
   SVN-Mirror/trunk/t/6relay.t
   SVN-Mirror/trunk/t/7copy.t
   SVN-Mirror/trunk/t/8skipto-torev.t
   SVN-Mirror/trunk/t/9overlapping.t

Log:
 r399 at mtl:  clkao | 2007-03-20 07:00:18 +0800
 win32 test fixes.
 
 Submitted by: David Golden <xdaveg at gmail.com>


Modified: SVN-Mirror/trunk/Makefile.PL
==============================================================================
--- SVN-Mirror/trunk/Makefile.PL	(original)
+++ SVN-Mirror/trunk/Makefile.PL	Mon Sep  8 07:41:17 2008
@@ -13,6 +13,7 @@
 requires(
         'SVN::Core'   => $required_svn,
         'URI::Escape' => '0',
+        'URI::file' => '0',
         'Term::ReadKey' => '0',
         'SVN::Simple::Edit' => '0',
         'Date::Format' => '0',

Modified: SVN-Mirror/trunk/t/2basic.t
==============================================================================
--- SVN-Mirror/trunk/t/2basic.t	(original)
+++ SVN-Mirror/trunk/t/2basic.t	Mon Sep  8 07:41:17 2008
@@ -3,6 +3,7 @@
 use SVN::Mirror;
 use File::Path;
 use File::Spec;
+use URI::file;
 use strict;
 
 plan skip_all => "can't find svnadmin"
@@ -18,9 +19,7 @@
 			       {'fs-type' => $ENV{SVNFSTYPE}})
     or die "failed to create repository at $repospath";
 
-my $uri = File::Spec->rel2abs( $repospath ) ;
-$uri =~ s{^|\\}{/}g if ($^O eq 'MSWin32');
-$uri = "file://$uri";
+my $uri = URI::file->new_abs( $repospath ) ;
 
 `svn mkdir -m 'init' $uri/source`;
 `svnadmin load --parent-dir source $repospath < t/test_repo.dump`;

Modified: SVN-Mirror/trunk/t/6relay.t
==============================================================================
--- SVN-Mirror/trunk/t/6relay.t	(original)
+++ SVN-Mirror/trunk/t/6relay.t	Mon Sep  8 07:41:17 2008
@@ -2,7 +2,7 @@
 use Test::More;
 use SVN::Mirror;
 use File::Path;
-use File::Spec;
+use URI::file;
 use strict;
 
 plan skip_all => "relay doesn't work with svn < 1.1.0"
@@ -21,9 +21,7 @@
 			       {'fs-type' => $ENV{SVNFSTYPE}})
     or die "failed to create repository at $repospath";
 
-my $uri = File::Spec->rel2abs( $repospath ) ;
-$uri =~ s{^|\\}{/}g if ($^O eq 'MSWin32');
-$uri = "file://$uri";
+my $uri = URI::file->new_abs( $repospath ) ;
 
 `svn mkdir -m 'init' $uri/source`;
 `svnadmin load --parent-dir source $repospath < t/test_repo.dump`;
@@ -34,9 +32,7 @@
 				{'fs-type' => $ENV{SVNFSTYPE} || 'bdb'})
     or die "failed to create repository at $rrepospath";
 
-my $ruri = File::Spec->rel2abs( $rrepospath ) ;
-$ruri =~ s{^|\\}{/}g if ($^O eq 'MSWin32');
-$ruri = "file://$ruri";
+my $ruri = URI::file->new_abs( $rrepospath ) ;
 
 for (1..50) {
     `svn mkdir -m 'waste-rev' $ruri/waste`;

Modified: SVN-Mirror/trunk/t/7copy.t
==============================================================================
--- SVN-Mirror/trunk/t/7copy.t	(original)
+++ SVN-Mirror/trunk/t/7copy.t	Mon Sep  8 07:41:17 2008
@@ -2,7 +2,7 @@
 use Test::More;
 use SVN::Mirror;
 use File::Path;
-use File::Spec;
+use URI::file;
 use strict;
 
 plan skip_all => "can't find svnadmin"
@@ -18,9 +18,7 @@
 			       {'fs-type' => $ENV{SVNFSTYPE}})
     or die "failed to create repository at $repospath";
 
-my $uri = File::Spec->rel2abs( $repospath ) ;
-$uri =~ s{^|\\}{/}g if ($^O eq 'MSWin32');
-$uri = "file://$uri";
+my $uri = URI::file->new_abs( $repospath ) ;
 `svn mkdir -m 'init' $uri/source`;
 `svnadmin load --parent-dir source $repospath < t/copy.dump`;
 

Modified: SVN-Mirror/trunk/t/8skipto-torev.t
==============================================================================
--- SVN-Mirror/trunk/t/8skipto-torev.t	(original)
+++ SVN-Mirror/trunk/t/8skipto-torev.t	Mon Sep  8 07:41:17 2008
@@ -4,7 +4,7 @@
 use Test::More;
 use SVN::Mirror;
 use File::Path;
-use File::Spec;
+use URI::file;
 use strict;
 
 plan skip_all => "can't find svnadmin"
@@ -23,9 +23,7 @@
 				   {'fs-type' => $ENV{SVNFSTYPE}})
         or die "failed to create repository at $repospath";
 
-    my $uri = File::Spec->rel2abs( $repospath ) ;
-    $uri =~ s{^|\\}{/}g if ($^O eq 'MSWin32');
-    $uri = "file://$uri";
+    my $uri = URI::file->new_abs( $repospath ) ;
 
     `svn mkdir -m 'init' $uri/source`;
     `svnadmin load --parent-dir source $repospath < t/test_repo.dump`;

Modified: SVN-Mirror/trunk/t/9overlapping.t
==============================================================================
--- SVN-Mirror/trunk/t/9overlapping.t	(original)
+++ SVN-Mirror/trunk/t/9overlapping.t	Mon Sep  8 07:41:17 2008
@@ -2,7 +2,7 @@
 use Test::More;
 use SVN::Mirror;
 use File::Path;
-use File::Spec;
+use URI::file;
 use strict;
 
 plan skip_all => "can't find svnadmin"
@@ -18,9 +18,7 @@
 			       {'fs-type' => $ENV{SVNFSTYPE}})
     or die "failed to create repository at $repospath";
 
-my $uri = File::Spec->rel2abs( $repospath ) ;
-$uri =~ s{^|\\}{/}g if ($^O eq 'MSWin32');
-$uri = "file://$uri";
+my $uri = URI::file->new_abs( $repospath ) ;
 
 `svn mkdir -m 'init' $uri/source`;
 `svnadmin load --parent-dir source $repospath < t/test_repo.dump`;