t/Git-SVN/Utils/fatal.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More 'no_plan';
   7
   8 BEGIN {
   9         # Override exit at BEGIN time before Git::SVN::Utils is loaded
  10         # so it will see our local exit later.
  11         *CORE::GLOBAL::exit = sub(;$) {
  12         return @_ ? CORE::exit($_[0]) : CORE::exit();
  13         };
  14 }
  15
  16 use Git::SVN::Utils qw(fatal);
  17
  18 # fatal()
  19 {
  20         # Capture the exit code and prevent exit.
  21         my $exit_status;
  22         no warnings 'redefine';
  23         local *CORE::GLOBAL::exit = sub { $exit_status = $_[0] || 0 };
  24
  25         # Trap fatal's message to STDERR
  26         my $stderr;
  27         close STDERR;
  28         ok open STDERR, ">", \$stderr;
  29
  30         fatal "Some", "Stuff", "Happened";
  31
  32         is $stderr, "Some Stuff Happened\n";
  33         is $exit_status, 1;
  34 }