- 

#!/usr/bin/perl

use Modern::Perl;

use Test::More tests => 4;

use Test::MockModule;

use C4::Auth qw(get_session);

use_ok('Koha::Messages');

# Create a new session and save it immediately in database.

my $session = get_session('');

$session->flush;

# Mock CGI::cookie to return the CGISESSID of just created session.

my $cgi_module = new Test::MockModule('CGI');

$cgi_module->mock('cookie', sub {

    my ($self, $name) = @_;

    return $session->id if ($name eq 'CGISESSID');

});

my $messages = messages_get();

is_deeply($messages, {}, "no messages at beginning");

messages_set('ok 1');

messages_set('warning 1', 'warning');

messages_set('error 1', 'error');

messages_set('ok 2');

messages_set('warning 2', 'warning');

messages_set('error 2', 'error');

$messages = messages_get();

my $expected = {

    'ok' => ['ok 1', 'ok 2'],

    'warning' => ['warning 1', 'warning 2'],

    'error' => ['error 1', 'error 2'],

};

is_deeply($messages, $expected, "messages successfully retrieved");

$messages = messages_get();

is_deeply($messages, {}, "messages emptied automatically");