#!/usr/bin/perl

use strict;
use warnings;

use Test::More;

BEGIN {
    plan skip_all => "This test requires File::Temp" unless eval { require File::Temp };
    plan tests => 3;
}

use ok "Catalyst::Plugin::Cache::Store::FastMmap";

{
    package MockApp;
    use base qw/Catalyst::Plugin::Cache::Store::FastMmap/;
    
    our %backends;
    sub register_cache_backend {
        my ( $app, $name, $backend ) = @_;
        $backends{$name} = $backend;
    }
}

can_ok( "MockApp", "setup_fastmmap_cache_backend" );

my ( $fh, $name ) = File::Temp::tempfile;

MockApp->setup_fastmmap_cache_backend( foo => { share_file => $name } );

isa_ok( $MockApp::backends{foo}, "Cache::FastMmap" );

END {
    close $fh;
    unlink $name if -e $name;
}