failing test for object inflator

[dbsrgits/DBIx-Class-ResultSet-WithMetaData.git] / t / custom_methods.t

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, [