base cache key on sql and binds plus dbname and username

[dbsrgits/DBIx-Class-Cursor-Cached.git] / t / simple.t

diff --git a/t/simple.t b/t/simple.t
index c731410..57454f9 100644 (file)
--- a/t/simple.t
+++ b/t/simple.t
@@ -46,14 +46,13 @@ use Cache::FileCache;
 use DBIx::Class::Cursor::Cached;
 use Test::More 'no_plan';
 
+mkdir('t/var');
 unlink('t/var/test.db');
 
 my ($dsn, $user, $pass) = ('dbi:SQLite:t/var/test.db');
 
 SchemaClass->connect($dsn,$user,$pass)->init;
 
-require Data::Dumper;
-
 my $expect_data = [ [ 1, 'CD one' ], [ 2, 'CD two' ] ];
 
 { ## start test block
@@ -94,7 +93,7 @@ is_deeply($cache->get($rs->cursor->cache_key), $expect_data,
 
 ok(!defined($cache->get($rs->cursor->cache_key)), 'cache cleared');
 
-  @cds = $rs->all; # refills cache
+  @cds = (); while (my $rec = $rs->next) { push(@cds, $rec); }
 
 is_deeply([ map { [ $_->id, $_->title ] } @cds ], $expect_data,
   'correct data in objects');
@@ -102,3 +101,52 @@ is_deeply($cache->get($rs->cursor->cache_key), $expect_data,
   'correct data in cache');
 
 }
+
+{
+  my $schema = SchemaClass->connect(
+    sub {
+      DBI->connect('dbi:SQLite:t/var/test.db', '', '', { RaiseError => 1 }) },
+        { cursor_class => 'DBIx::Class::Cursor::Cached' }
+  );
+
+  $schema->default_resultset_attributes({
+    cache_object => Cache::FileCache->new({ namespace => 'SchemaClass' }),
+  });
+
+my $cache = $schema->default_resultset_attributes->{cache_object};
+
+  my $rs = $schema->resultset('CD')->search(undef, { cache_for => 300 });
+
+  my @cds = $rs->all; # fills cache
+
+is_deeply([ map { [ $_->id, $_->title ] } @cds ], $expect_data,
+  'correct data in objects');
+is_deeply($cache->get($rs->cursor->cache_key), $expect_data,
+  'correct data in cache');
+
+  $rs = $schema->resultset('CD')->search(undef, { cache_for => 300 });
+    # refresh resultset
+
+$schema->storage->disconnect;
+
+  @cds = $rs->all; # uses cache, no SQL run
+
+ok(!$schema->storage->connected, 'no reconnect made since no SQL required');
+is_deeply([ map { [ $_->id, $_->title ] } @cds ], $expect_data,
+  'correct data in objects');
+is_deeply($cache->get($rs->cursor->cache_key), $expect_data,
+  'correct data in cache');
+
+  $rs->cursor->clear_cache; # deletes data from cache
+
+ok(!defined($cache->get($rs->cursor->cache_key)), 'cache cleared');
+
+  @cds = (); while (my $rec = $rs->next) { push(@cds, $rec); }
+
+is_deeply([ map { [ $_->id, $_->title ] } @cds ], $expect_data,
+  'correct data in objects');
+is_deeply($cache->get($rs->cursor->cache_key), $expect_data,
+  'correct data in cache');
+}
+
+