/[A3C]/t/05-cache.t
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /t/05-cache.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 219 by dpavlin, Sun Jun 22 14:41:23 2008 UTC revision 227 by dpavlin, Fri Jun 27 17:53:30 2008 UTC
# Line 19  my $debug = $A3C::Cache::debug; Line 19  my $debug = $A3C::Cache::debug;
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: {

Legend:
Removed from v.219  
changed lines
  Added in v.227

  ViewVC Help
Powered by ViewVC 1.1.26