From: Daniel Westermann-Clark <danieltwc@cpan.org>
Date: Tue, 6 Jun 2006 15:46:11 +0000 (+0000)
Subject: Revert change to test for deprecated find usage and swallow warnings
X-Git-Tag: v0.07002~75^2~135
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=13e6ab634fa907078fe8dc6bfd5b2e529b8b6358;hp=cd40c868c0783a1777774c47db16e8d1d1ff36e3;p=dbsrgits%2FDBIx-Class.git

Revert change to test for deprecated find usage and swallow warnings
---

diff --git a/t/60core.t b/t/60core.t
index a42d1ec..a4d97d0 100644
--- a/t/60core.t
+++ b/t/60core.t
@@ -7,7 +7,7 @@ use DBICTest;
 
 my $schema = DBICTest->init_schema();
 
-plan tests => 60;
+plan tests => 61;
 
 # figure out if we've got a version of sqlite that is older than 3.2.6, in
 # which case COUNT(DISTINCT()) doesn't work
@@ -102,9 +102,13 @@ is($new_again->ID, 'DBICTest::Artist|artist|artistid=4', 'unique object id gener
 
 # Test backwards compatibility
 {
-  my $artist_by_hash = $schema->resultset('Artist')->find({artistid => 4});
+  my $warnings = '';
+  local $SIG{__WARN__} = sub { $warnings .= $_[0] };
+
+  my $artist_by_hash = $schema->resultset('Artist')->find(artistid => 4);
   is($artist_by_hash->name, 'Man With A Spoon', 'Retrieved correctly');
   is($artist_by_hash->ID, 'DBICTest::Artist|artist|artistid=4', 'unique object id generated correctly');
+  like($warnings, qr/deprecated/, 'warned about deprecated find usage');
 }
 
 is($schema->resultset("Artist")->count, 4, 'count ok');