A3C/t/05-cache.t

#!/usr/bin/env perl
use warnings;
use strict;

=head1 DESCRIPTION

test cache

=cut

use Jifty::Test tests => 11;

use Data::Dump qw/dump/;

use_ok('A3C::Cache');

$A3C::Cache::debug = 1 if @ARGV;
my $debug = $A3C::Cache::debug;

my $instance = 'cache';

ok( my $strix = A3C::Cache->new({ instance => $instance }), 'new' );
isa_ok( $strix, 'A3C::Cache' );

# cache
ok( my $path = $strix->cache_path( 'test', 42, 'bar' ), 'cache_path' );
like( $path, qr/test-42-bar/, 'correct' );

my $data = 'scalar';
SKIP: {
skip( 'scalars not supported', 2 );
ok( $strix->write_cache( $data, 'test-scalar' ), 'write_cache scalar' );
is_deeply( $strix->read_cache( 'test-scalar' ), $data, 'read_cache scalar' );
}
$data = { foo => 42, bar => 'baz' };
ok( $strix->write_cache( $data, 'test-hash' ), 'write_cache hash' );
is_deeply( $strix->read_cache( 'test-hash' ), $data, 'read_cache hash' );
$data = [ 1, 2, 42 ];
ok( $strix->write_cache( $data, 'test-array' ), 'write_cache array' );
is_deeply( $strix->read_cache( 'test-array' ), $data, 'read_cache array' );

1	#!/usr/bin/env perl
2	use warnings;
3	use strict;
4
5	=head1 DESCRIPTION
6
7	test cache
8
9	=cut
10
11	use Jifty::Test tests => 11;
12
13	use Data::Dump qw/dump/;
14
15	use_ok('A3C::Cache');
16
17	$A3C::Cache::debug = 1 if @ARGV;
18	my $debug = $A3C::Cache::debug;
19
20	my $instance = 'cache';
21
22	ok( my $strix = A3C::Cache->new({ instance => $instance }), 'new' );
23	isa_ok( $strix, 'A3C::Cache' );
24
25	# cache
26	ok( my $path = $strix->cache_path( 'test', 42, 'bar' ), 'cache_path' );
27	like( $path, qr/test-42-bar/, 'correct' );
28
29	my $data = 'scalar';
30	SKIP: {
31	skip( 'scalars not supported', 2 );
32	ok( $strix->write_cache( $data, 'test-scalar' ), 'write_cache scalar' );
33	is_deeply( $strix->read_cache( 'test-scalar' ), $data, 'read_cache scalar' );
34	}
35	$data = { foo => 42, bar => 'baz' };
36	ok( $strix->write_cache( $data, 'test-hash' ), 'write_cache hash' );
37	is_deeply( $strix->read_cache( 'test-hash' ), $data, 'read_cache hash' );
38	$data = [ 1, 2, 42 ];
39	ok( $strix->write_cache( $data, 'test-array' ), 'write_cache array' );
40	is_deeply( $strix->read_cache( 'test-array' ), $data, 'read_cache array' );
41