#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 9;
use ok "Mail::Summary::Tools::YAMLCache";
use Path::Class;
use File::Temp qw/tempfile/;
my ( $fh, $tmpfile ) = tempfile();
my $y = Mail::Summary::Tools::YAMLCache->new( file => file($tmpfile) );
isa_ok( $y, "Mail::Summary::Tools::YAMLCache" );
can_ok( $y, qw/get set delete/ );
my $key = "foo:bar";
is( $y->get($key), undef );
$y->set( $key => 42 );
is( $y->get($key), 42 );
undef $y;
$y = Mail::Summary::Tools::YAMLCache->new( file => file($tmpfile) );
is( $y->get($key), 42 );
$y->set("foo:gorch", 123 );
undef $y;
$y = Mail::Summary::Tools::YAMLCache->new( file => file($tmpfile) );
is( $y->get($key), 42 );
is( $y->get("foo:gorch"), 123 );
$y->delete( $key );
is( $y->get($key), undef );