t/config_backend_class.t

   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 {
  16         my ( $class, @p ) = @_;
  17         bless \@p, $class;
  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
  35 is_deeply( $registered, MyCache->new( param => "foo" ), "params sent correctly" );
  36