about summary refs log tree commit diff
path: root/third_party/git/t/Git-SVN/Utils/fatal.t
diff options
context:
space:
mode:
Diffstat (limited to 'third_party/git/t/Git-SVN/Utils/fatal.t')
-rwxr-xr-xthird_party/git/t/Git-SVN/Utils/fatal.t34
1 files changed, 0 insertions, 34 deletions
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 49e1438295..0000000000
--- 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;
-}