failing test for object inflator

diff --git a/t/custom_methods.t b/t/custom_methods.t
index 1fd689d..d8b70dd 100644 (file)
--- a/t/custom_methods.t
+++ b/t/custom_methods.t
@@ -71,6 +71,27 @@ ok(my $schema = DBICTest->init_schema(), 'got schema');
        ], 'display with substring using _with_meta_key okay');
 }
 
+{
+       my $artists = $schema->resultset('Artist')->search({}, { order_by => 'artistid' })->with_substr_key_obj->display();
+       is_deeply($artists, [
+               {
+                       'artistid' => '1',
+                       'name' => 'Caterwauler McCrae',
+                       'substr' => 'Cat'
+               },
+               {
+                       'artistid' => '2',
+                       'name' => 'Random Boy Band',
+                       'substr' => 'Ran'
+               },
+               {
+                       'artistid' => '3',
+                       'name' => 'We Are Goth',
+                       'substr' => 'We '
+               }
+       ], 'display with substring using _with_meta_key with object okay');
+}
+
 # {
 #      my $artists = $schema->resultset('Artist')->search({}, { order_by => 'artistid' })->with_substr_old->display();
 #      is_deeply($artists, [

diff --git a/t/lib/DBICTest/Schema/ResultSet/Artist.pm b/t/lib/DBICTest/Schema/ResultSet/Artist.pm
index a3688f2..20ac92d 100644 (file)
--- a/t/lib/DBICTest/Schema/ResultSet/Artist.pm
+++ b/t/lib/DBICTest/Schema/ResultSet/Artist.pm
@@ -27,6 +27,16 @@ method with_substr_key () {
   return $self;
 }
 
+method with_substr_key_obj () {
+  $self->_with_meta_key( 
+    substr => sub {
+      my ($hash, $obj) = @_;
+      return substr($obj->name, 0, 3);
+    }
+  );
+  return $self;
+}
+
 method with_substr_old () {
   foreach my $row ($self->all) {
     my $substr = substr($row->name, 0, 3);