# --
# CacheInternal.t - CacheInternal tests
# Copyright (C) 2001-2012 OTRS AG, http://otrs.org/
# --
# $Id: CacheInternal.t,v 1.4 2012/05/15 08:44:29 mg Exp $
# --
# This software comes with ABSOLUTELY NO WARRANTY. For details, see
# the enclosed file COPYING for license information (AGPL). If you
# did not receive this file, see http://www.gnu.org/licenses/agpl.txt.
# --

use strict;
use warnings;
use vars (qw($Self));

use Kernel::System::CacheInternal;

my $CacheInternal1 = Kernel::System::CacheInternal->new(
    %{$Self},
    Type => 'UnitTest1',
    TTL  => 60,
);

my $CacheInternal2 = Kernel::System::CacheInternal->new(
    %{$Self},
    Type => 'UnitTest1',
    TTL  => 60,
);

my $CacheInternalInvalid;

eval {
    $CacheInternalInvalid = Kernel::System::CacheInternal->new(
        %{$Self},
        Type => 'UnitTest1::invalid::type',
        TTL  => 60,
    );
};

$Self->False(
    scalar $CacheInternalInvalid,
    "Could not create CacheInternal with broken type",
);

my @Tests = (
    {
        Name   => 'Simple',
        Key    => 'Key1',
        Input  => 123,
        Result => 123,
    },
    {
        Name   => 'Simple',
        Key    => 'Key2',
        Input  => { 1 => 'a', 2 => 'b' },
        Result => { 1 => 'a', 2 => 'b' },
    }
);

for my $Test (@Tests) {
    my $Value = $CacheInternal1->Get( Key => $Test->{Key} );

    $Self->Is(
        undef,
        $Value,
        $Test->{Name},
    );

    my $Value2 = $CacheInternal2->Get( Key => $Test->{Key} );

    $Self->Is(
        undef,
        $Value,
        $Test->{Name},
    );

    $CacheInternal1->Set(
        Key   => $Test->{Key},
        Value => $Test->{Input},
    );

    $Value = $CacheInternal1->Get( Key => $Test->{Key} );

    $Self->IsDeeply(
        $Test->{Result},
        $Value,
        $Test->{Name},
    );

    $Value2 = $CacheInternal2->Get( Key => $Test->{Key} );

    $Self->IsDeeply(
        $Test->{Result},
        $Value,
        $Test->{Name},
    );

}

$CacheInternal1->CleanUp();
$CacheInternal2->CleanUp();

#
# check cleanup in other cache type
#

$CacheInternal1 = Kernel::System::CacheInternal->new(
    %{$Self},
    Type => 'UnitTest1',
    TTL  => 60,
);

$CacheInternal2 = Kernel::System::CacheInternal->new(
    %{$Self},
    Type => 'UnitTest2',
    TTL  => 60,
);

$CacheInternal2->Set(
    Key   => 'testkey',
    Value => 'testvalue',
);

$Self->Is(
    $CacheInternal2->Get( Key => 'testkey' ),
    'testvalue',
    'verify key was set correctly',
);

$CacheInternal1->CleanUp( OtherType => 'UnitTest2' );

# renew cache object to invalidate the internal cache
$CacheInternal2 = Kernel::System::CacheInternal->new(
    %{$Self},
    Type => 'UnitTest2',
    TTL  => 60,
);

$Self->Is(
    $CacheInternal2->Get( Key => 'testkey' ) || '',
    '',
    'CleanUp() with OtherType',
);

1;
