The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
use 5.010;

#################################################
#                                               #
# This test checks whether messages in order    #
# are handled correctly.                        #
#                                               #
#################################################

use Test::More;
use Tapper::Schema::TestTools;
use Test::Fixture::DBIC::Schema;
use Test::MockModule;
use Log::Log4perl;
use Tapper::Model 'model';

my $string = "
log4perl.rootLogger           = FATAL, root
log4perl.appender.root        = Log::Log4perl::Appender::Screen
log4perl.appender.root.stderr = 1
log4perl.appender.root.layout = SimpleLayout";
Log::Log4perl->init(\$string);

# -----------------------------------------------------------------------------------------------------------------
construct_fixture( schema  => testrundb_schema, fixture => 't/fixtures/testrundb/testrun_with_preconditions.yml' );
construct_fixture( schema  => reportsdb_schema, fixture => 't/fixtures/reportsdb/report.yml' );
# -----------------------------------------------------------------------------------------------------------------

BEGIN{
        use_ok('Tapper::Notification');
}

my $mock_mail = Test::MockModule->new('Tapper::Notification::Plugin::Mail');
my @results;
$mock_mail->mock('notify',sub{my (undef, @local_results) = @_;push @results,\@local_results; return 0});

my $notify = Tapper::Notification->new();
isa_ok($notify, 'Tapper::Notification');

$notify->run();
is_deeply(\@results, [[ 'anton@mail.net', 'Testrun id 42 finished' ]], 'Expected arguments to mail notifier for test "testrun with given id finished"');
@results = ();
my $event = model('ReportsDB')->resultset('NotificationEvent')->new({
                                                                     type => 'report_received',
                                                                     message => { report_id =>  101,}  # thats the report with real TAPDOM
                                                                    }
                                                                   );
$event->insert();

$notify->run();
is_deeply(\@results, [[ 'anton@mail.net', 'Report received' ]], 'Expected arguments to mail notifier for test "report with given id received"');


@results = ();
$event = model('ReportsDB')->resultset('NotificationEvent')->new({
                                                                     type => 'testrun_finished',
                                                                     message => { testrun_id =>  23,}
                                                                    }
                                                                   );
$event->insert();
$notify->run();
is_deeply(\@results, [[ 'anton@mail.net', 'Report received' ]], 'Expected arguments to mail notifier for test "Success change for last 2 testruns with same topic as current one"');


done_testing;