t/config_backend_class.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More;
   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 {
  16         my ( $class, $p ) = @_;
  17         die unless ref $p;
  18         bless { %$p }, $class;
  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
  36 is_deeply( $registered, MyCache->new({ param => "foo" }), "params sent correctly" );
  37
  38 done_testing;
  39