Fix test warnings left in by 11343b34

[dbsrgits/DBIx-Class.git] / t / search / deprecated_attributes.t

diff --git a/t/search/deprecated_attributes.t b/t/search/deprecated_attributes.t
index 498c828..f4d2e28 100644 (file)
--- a/t/search/deprecated_attributes.t
+++ b/t/search/deprecated_attributes.t
@@ -11,14 +11,30 @@ my $schema = DBICTest->init_schema();
 my $cd_rs = $schema->resultset("CD");
 
 warnings_exist( sub {
-    $cd_rs->search_rs( undef, { cols => [ { name => 'artist.name' } ], join => [ 'artist' ] })
+  my $cd = $cd_rs->search( undef, {
+    cols => [ { name => 'artist.name' } ],
+    join => 'artist',
+  })->next;
+
+  is_deeply (
+    { $cd->get_inflated_columns },
+    { name => 'Caterwauler McCrae' },
+    'cols attribute still works',
+  );
 }, qr/Resultset attribute 'cols' is deprecated/,
 'deprecation warning when passing cols attribute');
 
 warnings_exist( sub {
-    $cd_rs->search_rs( undef, {
-        include_columns => [ { name => 'artist.name' } ], join => [ 'artist' ]
-    })
+  my $cd = $cd_rs->search_rs( undef, {
+    include_columns => [ { name => 'artist.name' } ],
+    join => 'artist',
+  })->next;
+
+  is (
+    $cd->get_column('name'),
+    'Caterwauler McCrae',
+    'include_columns attribute still works',
+  );
 }, qr/Resultset attribute 'include_columns' is deprecated/,
 'deprecation warning when passing include_columns attribute');