19 |
|
|
20 |
my $instance = 'cache'; |
my $instance = 'cache'; |
21 |
|
|
22 |
ok( my $strix = A3C::Cache->new({ instance => $instance }), 'new' ); |
ok( my $strix = A3C::Cache->new({ instance => $instance, dir => 't' }), 'new' ); |
23 |
isa_ok( $strix, 'A3C::Cache' ); |
isa_ok( $strix, 'A3C::Cache' ); |
24 |
|
|
25 |
# cache |
# cache |
26 |
ok( my $path = $strix->cache_path( 'test', 42, 'bar' ), 'cache_path' ); |
ok( my $path = $strix->cache_path( 'test', 42, 'bar' ), 'cache_path' ); |
27 |
like( $path, qr/test-42-bar/, 'correct' ); |
like( $path, qr'var/t/.*test-42-bar', 'correct' ); |
28 |
|
diag "path: $path"; |
29 |
|
|
30 |
my $data = 'scalar'; |
my $data = 'scalar'; |
31 |
SKIP: { |
SKIP: { |