indexed by

[dbsrgits/DBIx-Data-Store-old.git] / t / 02indexed_by.t

diff --git a/t/02indexed_by.t b/t/02indexed_by.t
index 5b82cec..e300532 100644 (file)
--- a/t/02indexed_by.t
+++ b/t/02indexed_by.t
@@ -12,6 +12,8 @@ sub setup_db { BasicCollection::setup_db @_ }
 
 sub make_store { BasicCollection::make_store @_ }
 
+sub sort_set { BasicCollection::sort_set @_ }
+
 sub make_set {
   BasicCollection::make_set({
       indexable_by => {
@@ -35,11 +37,40 @@ sub make_set {
 
 sub run_tests {
   my @expect = setup_db;
-  my $set = make_set;
+  my $by_id = make_set;
   use Devel::Dwarn;
-  Dwarn $set->get({ id => 1 });
-  my $by_name = $set->indexed_by('name');
-  Dwarn $by_name->get({ name => 'Pterry' });
+  my $id_1 = $by_id->get({ id => 1 });
+  my $by_name = $by_id->indexed_by('name');
+  ok(scalar($by_name->_key_cache_get_object($id_1), 'key cache transfer'));
+  cmp_ok(
+    $id_1, '==', $by_name->get({ name => $id_1->{name} }),
+    'get returns same object'
+  );
+  my $name_pterry = $by_name->get({ name => 'Pterry' });
+  ok(
+    scalar($by_id->_key_cache_get_object($name_pterry)),
+    'key cache reverse transfer'
+  );
+  cmp_ok(
+    $name_pterry, '==', $by_id->get({ id => $name_pterry->{id} }),
+    'get returns same object'
+  );
+  ok(
+    !$by_id->_member_cache_built && !$by_name->_member_cache_built,
+    'No caches yet'
+  );
+  is_deeply(
+    [ sort_set $by_id->flatten ], \@expect,
+    'flatten set',
+  );
+  ok(
+    $by_id->_member_cache_built && $by_name->_member_cache_built,
+    'Both caches filled'
+  );
+  ok(
+    $by_id->_member_cache != $by_name->_member_cache,
+    'Caches are separate arrayrefs'
+  );
   done_testing;
 }