X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F60core.t;h=f063cb33e5f63f6995586b09d4a3be1c58c5a4d3;hb=49ca473e;hp=215c033c41ce6b7423aeb11c337b68cb4da73c66;hpb=84f7e8a1c6303091d753572648e37d3bd7270181;p=dbsrgits%2FDBIx-Class.git diff --git a/t/60core.t b/t/60core.t index 215c033..f063cb3 100644 --- a/t/60core.t +++ b/t/60core.t @@ -122,16 +122,10 @@ is($new_again->ID, 'DBICTest::Artist|artist|artistid=4', 'unique object id gener $artist->delete; } -# Test backwards compatibility -{ - 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'); -} +# this has been warning for 4 years, killing +throws_ok { + $schema->resultset('Artist')->find(artistid => 4); +} qr|expects either a column/value hashref, or a list of values corresponding to the columns of the specified unique constraint|; is($schema->resultset("Artist")->count, 4, 'count ok');