7 files changed, 0 insertions, 167 deletions
diff --git a/third_party/git/t/Git-SVN/00compile.t b/third_party/git/t/Git-SVN/00compile.t
deleted file mode 100755
index c92fee453f60..000000000000
--- a/third_party/git/t/Git-SVN/00compile.t
+++ /dev/null
@@ -1,14 +0,0 @@
-#!/usr/bin/env perl
-
-use strict;
-use warnings;
-
-use Test::More tests => 7;
-
-require_ok 'Git::SVN';
-require_ok 'Git::SVN::Utils';
-require_ok 'Git::SVN::Ra';
-require_ok 'Git::SVN::Log';
-require_ok 'Git::SVN::Migration';
-require_ok 'Git::IndexInfo';
-require_ok 'Git::SVN::GlobSpec';
diff --git a/third_party/git/t/Git-SVN/Utils/add_path_to_url.t b/third_party/git/t/Git-SVN/Utils/add_path_to_url.t
deleted file mode 100755
index bfbd87845f77..000000000000
--- a/third_party/git/t/Git-SVN/Utils/add_path_to_url.t
+++ /dev/null
@@ -1,27 +0,0 @@
-#!/usr/bin/env perl
-
-use strict;
-use warnings;
-
-use Test::More 'no_plan';
-
-use Git::SVN::Utils qw(
-	add_path_to_url
-);
-
-# A reference cannot be a hash key, so we use an array.
-my @tests = (
-	["http://x.com", "bar"]			=> 'http://x.com/bar',
-	["http://x.com", ""]			=> 'http://x.com',
-	["http://x.com/foo/", undef]		=> 'http://x.com/foo/',
-	["http://x.com/foo/", "/bar/baz/"]	=> 'http://x.com/foo/bar/baz/',
-	["http://x.com", 'per%cent']		=> 'http://x.com/per%25cent',
-);
-
-while(@tests) {
-	my($have, $want) = splice @tests, 0, 2;
-
-	my $args = join ", ", map { qq['$_'] } map { defined($_) ? $_ : 'undef' } @$have;
-	my $name = "add_path_to_url($args) eq $want";
-	is add_path_to_url(@$have), $want, $name;
-}
diff --git a/third_party/git/t/Git-SVN/Utils/can_compress.t b/third_party/git/t/Git-SVN/Utils/can_compress.t
deleted file mode 100755
index d7b49b8d546a..000000000000
--- a/third_party/git/t/Git-SVN/Utils/can_compress.t
+++ /dev/null
@@ -1,11 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use Test::More 'no_plan';
-
-use Git::SVN::Utils qw(can_compress);
-
-# !! is the "convert this to boolean" operator.
-is !!can_compress(), !!eval { require Compress::Zlib };
diff --git a/third_party/git/t/Git-SVN/Utils/canonicalize_url.t b/third_party/git/t/Git-SVN/Utils/canonicalize_url.t
deleted file mode 100755
index 05795ab636d6..000000000000
--- a/third_party/git/t/Git-SVN/Utils/canonicalize_url.t
+++ /dev/null
@@ -1,26 +0,0 @@
-#!/usr/bin/env perl
-
-# Test our own home rolled URL canonicalizer.  Test the private one
-# directly because we can't predict what the SVN API is doing to do.
-
-use strict;
-use warnings;
-
-use Test::More 'no_plan';
-
-use Git::SVN::Utils;
-my $canonicalize_url = \&Git::SVN::Utils::_canonicalize_url_ourselves;
-
-my %tests = (
-	"http://x.com"			=> "http://x.com",
-	"http://x.com/"			=> "http://x.com",
-	"http://x.com/foo/bar"		=> "http://x.com/foo/bar",
-	"http://x.com//foo//bar//"	=> "http://x.com/foo/bar",
-	"http://x.com/  /%/"		=> "http://x.com/%20%20/%25",
-);
-
-for my $arg (keys %tests) {
-	my $want = $tests{$arg};
-
-	is $canonicalize_url->($arg), $want, "canonicalize_url('$arg') => $want";
-}
diff --git a/third_party/git/t/Git-SVN/Utils/collapse_dotdot.t b/third_party/git/t/Git-SVN/Utils/collapse_dotdot.t
deleted file mode 100755
index 1da1cce156c4..000000000000
--- a/third_party/git/t/Git-SVN/Utils/collapse_dotdot.t
+++ /dev/null
@@ -1,23 +0,0 @@
-#!/usr/bin/env perl
-
-use strict;
-use warnings;
-
-use Test::More 'no_plan';
-
-use Git::SVN::Utils;
-my $collapse_dotdot = \&Git::SVN::Utils::_collapse_dotdot;
-
-my %tests = (
-	"foo/bar/baz"			=> "foo/bar/baz",
-	".."				=> "..",
-	"foo/.."			=> "",
-	"/foo/bar/../../baz"		=> "/baz",
-	"deeply/.././deeply/nested"	=> "./deeply/nested",
-);
-
-for my $arg (keys %tests) {
-	my $want = $tests{$arg};
-
-	is $collapse_dotdot->($arg), $want, "_collapse_dotdot('$arg') => $want";
-}
diff --git a/third_party/git/t/Git-SVN/Utils/fatal.t b/third_party/git/t/Git-SVN/Utils/fatal.t
deleted file mode 100755
index 49e1438295c0..000000000000
--- a/third_party/git/t/Git-SVN/Utils/fatal.t
+++ /dev/null
@@ -1,34 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use Test::More 'no_plan';
-
-BEGIN {
-	# Override exit at BEGIN time before Git::SVN::Utils is loaded
-	# so it will see our local exit later.
-	*CORE::GLOBAL::exit = sub(;$) {
-	return @_ ? CORE::exit($_[0]) : CORE::exit();
-	};
-}
-
-use Git::SVN::Utils qw(fatal);
-
-# fatal()
-{
-	# Capture the exit code and prevent exit.
-	my $exit_status;
-	no warnings 'redefine';
-	local *CORE::GLOBAL::exit = sub { $exit_status = $_[0] || 0 };
-
-	# Trap fatal's message to STDERR
-	my $stderr;
-	close STDERR;
-	ok open STDERR, ">", \$stderr;
-
-	fatal "Some", "Stuff", "Happened";
-
-	is $stderr, "Some Stuff Happened\n";
-	is $exit_status, 1;
-}
diff --git a/third_party/git/t/Git-SVN/Utils/join_paths.t b/third_party/git/t/Git-SVN/Utils/join_paths.t
deleted file mode 100755
index d4488e7162cf..000000000000
--- a/third_party/git/t/Git-SVN/Utils/join_paths.t
+++ /dev/null
@@ -1,32 +0,0 @@
-#!/usr/bin/env perl
-
-use strict;
-use warnings;
-
-use Test::More 'no_plan';
-
-use Git::SVN::Utils qw(
-	join_paths
-);
-
-# A reference cannot be a hash key, so we use an array.
-my @tests = (
-	[]					=> '',
-	["/x.com", "bar"]			=> '/x.com/bar',
-	["x.com", ""]				=> 'x.com',
-	["/x.com/foo/", undef, "bar"]		=> '/x.com/foo/bar',
-	["x.com/foo/", "/bar/baz/"]		=> 'x.com/foo/bar/baz/',
-	["foo", "bar"]				=> 'foo/bar',
-	["/foo/bar", "baz", "/biff"]		=> '/foo/bar/baz/biff',
-	["", undef, "."]			=> '.',
-	[]					=> '',
-
-);
-
-while(@tests) {
-	my($have, $want) = splice @tests, 0, 2;
-
-	my $args = join ", ", map { qq['$_'] } map { defined($_) ? $_ : 'undef' } @$have;
-	my $name = "join_paths($args) eq '$want'";
-	is join_paths(@$have), $want, $name;
-}