Commit | Line | Data |
---|---|---|
23b2d59b | 1 | #!/usr/bin/perl |
2 | ||
3 | use strict; | |
4 | use warnings; | |
5 | ||
1049fa80 | 6 | use Test::More; |
23b2d59b | 7 | |
1049fa80 | 8 | use_ok "Catalyst::Plugin::Cache"; |
23b2d59b | 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 | |
1049fa80 | 38 | done_testing; |
39 |