Fix bug, I think

[catagits/Catalyst-Plugin-Cache.git] / t / config_backend_class.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More;

use_ok "Catalyst::Plugin::Cache";

{
    package MockApp;
    use base qw/Catalyst::Plugin::Cache/;

    package MyCache;
    sub new {
        my ( $class, $p ) = @_;
        die unless ref $p;
        bless { %$p }, $class;
    }
    sub get {}
    sub set {}
    sub remove {}
}

MockApp->_cache_backends({});

MockApp->setup_generic_cache_backend( "foo", {
    class => "MyCache",
    param => "foo",
});

my $registered = MockApp->get_cache_backend( "foo" );

ok( $registered, "registered a backend" );

is_deeply( $registered, MyCache->new({ param => "foo" }), "params sent correctly" );

done_testing;