Commit | Line | Data |
23b2d59b |
1 | #!/usr/bin/perl |
2 | |
3 | use strict; |
4 | use warnings; |
5 | |
6 | use Test::More 'no_plan'; |
7 | |
8 | use ok "Catalyst::Plugin::Cache"; |
9 | |
10 | { |
11 | package MockApp; |
12 | use base qw/Catalyst::Plugin::Cache/; |
13 | |
14 | package MyCache; |
15 | sub new { |
8429b634 |
16 | my ( $class, $p ) = @_; |
17 | bless { %$p }, $class; |
23b2d59b |
18 | } |
19 | sub get {} |
20 | sub set {} |
21 | sub remove {} |
22 | } |
23 | |
24 | MockApp->_cache_backends({}); |
25 | |
26 | MockApp->setup_generic_cache_backend( "foo", { |
27 | class => "MyCache", |
28 | param => "foo", |
29 | }); |
30 | |
31 | my $registered = MockApp->get_cache_backend( "foo" ); |
32 | |
33 | ok( $registered, "registered a backend" ); |
34 | |
8429b634 |
35 | is_deeply( $registered, MyCache->new({ param => "foo" }), "params sent correctly" ); |
23b2d59b |
36 | |