#!/usr/bin/env perl

use strict;
use warnings;

use Test::More;

use feature qw(say);

# Append test alias to alises file
open(my $fh, '>>', './testaliases') or die;
say $fh 'alias paris-numa NUMA Paris <communique@numa.co>';
close $fh;


my $output = `cat ./testdata/email | ./target/debug/alias-auto-add`;
ok !$?;

# Check that the program outputs the full email coming from STDIN
{
	open(my $fh, '<', './testdata/email') or die;
	local $/ = undef;
	my $email = <$fh>;

	is $output, $email;

	close $fh;
}

# Check that the aliases file includes an alias for the address from the input email
{
	open(my $fh, '<', './testaliases') or die;

	my $last_line;
	while (my $line = readline $fh) {
		$last_line = $line;
	}

	is $last_line, 'alias paris-numa-2 NUMA Paris <communication@numa.co>' . "\n";

	close $fh;
}


# Teardown


done_testing;