# vim600: set syn=perl :
use strict;
use warnings;
use Test::More tests => 15;

BEGIN { use_ok('IO::Capture::Stderr') };

#Save initial values
my ($initial_stderr_dev, $initial_stderr_inum) = (stat(STDERR))[0,1];

#Test 2
ok (my $capture = IO::Capture::Stderr->new(), "Constructor Test");

#########################################################
# Start, put some data, stop ############################
#########################################################

my $rv1 = $capture->start() || 0;
my $rv2;
if ($rv1) {
    print STDERR "Test Line One";
    print STDERR "Test Line Two";
    print STDERR "Test Line Three";
    print STDERR "Test Line Four";
    $rv2 = $capture->stop()  || 0;
}

#########################################################
# Check the results #####################################
#########################################################

#Test 3
ok ($rv1, "Start Method");

#Test 4
ok ($rv2, "Stop Method");

#Test 5
my $line1 = $capture->read();
my $results_line1 = $line1 eq "Test Line One";
ok ($results_line1, "Read Method, First Line");
diag "*"x60 . "\n1st line read was: $line1\n" . "*"x60 . "\n\n" unless $results_line1;

#Test 6
my $line2 = $capture->read();
my $results_line2 = $line2 eq "Test Line Two";
ok ($results_line2, "Read Method, Second Line");
diag "*"x60 . "\n2nd line read was: $line2\n" . "*"x60 . "\n\n" unless $results_line2;

#Test 7
$capture->line_pointer(1);
my $new_line = $capture->line_pointer;
ok($new_line == 1, "Check set line_pointer");

#Test 8
my $line1_2 = $capture->read();
my $results_line1_2 = $line1_2 eq "Test Line One";
ok ($results_line1_2, "Read After line_pointer(), First Line");
diag "*"x60 .
     "\nline read after line_pointer() was: $line1_2\n" .
     "*"x60 .
     "\n\n"
     unless $results_line1_2;


#Test 9
my @lines_array = $capture->read;
ok(@lines_array == 4, "'List' Context Check");


#########################################################
# Check for untie #######################################
#########################################################

#Test 10 
my $tie_check = tied *STDERR;
ok(!$tie_check, "Untie Test");

#########################################################
# Check filehandles - STDERR ############################
#########################################################

my ($ending_stderr_dev, $ending_stderr_inum) = (stat(STDERR))[0,1];
#Test 11 
ok ($initial_stderr_dev == $ending_stderr_dev, "Invariant Check - STDERR filesystem dev number");

#Test 12
ok ($initial_stderr_inum == $ending_stderr_inum, "Invariant Check - STDERR inode number");

#Test 13
# make sure $SIG{__WARN__} is not set. I.e., It was not left in an odd state
cmp_ok ( $SIG{__WARN__}, 'eq', '', "warn back to DEFAULT");

#Test 14
my $warn_handler = sub {print STDERR "Custom warn handler in effect\n"};
$SIG{__WARN__} = $warn_handler;
$capture->start();
warn "Warn test 1";
$capture->stop();
my $warn_out = $capture->read();
cmp_ok( $warn_out, '=~', "Custom warn handler", "Verify custom handler not overridden" );

#Test 15
cmp_ok( $SIG{__WARN__}, "==", $warn_handler, "Restore warn handler");