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 ) = @_; |
22954d19 |
17 | die unless ref $p; |
8429b634 |
18 | bless { %$p }, $class; |
23b2d59b |
19 | } |
20 | sub get {} |
21 | sub set {} |
22 | sub remove {} |
23 | } |
24 | |
25 | MockApp->_cache_backends({}); |
26 | |
27 | MockApp->setup_generic_cache_backend( "foo", { |
28 | class => "MyCache", |
29 | param => "foo", |
30 | }); |
31 | |
32 | my $registered = MockApp->get_cache_backend( "foo" ); |
33 | |
34 | ok( $registered, "registered a backend" ); |
35 | |
8429b634 |
36 | is_deeply( $registered, MyCache->new({ param => "foo" }), "params sent correctly" ); |
23b2d59b |
37 | |