X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F97result_class.t;h=ab0863dc6f044577a705b6ce16b7554f73ed1784;hb=da89304fa29f8fd18d235d120ccbea7d2cfbecdf;hp=0b0db50881030e96b6891677f75fa83eea6d975b;hpb=c5bc9ba6e36d69c76fefc18a3653596a9ea13921;p=dbsrgits%2FDBIx-Class.git diff --git a/t/97result_class.t b/t/97result_class.t index 0b0db50..ab0863d 100644 --- a/t/97result_class.t +++ b/t/97result_class.t @@ -1,5 +1,5 @@ use strict; -use warnings; +use warnings; use Test::More; use Test::Exception; @@ -12,7 +12,7 @@ plan tests => 12; { my $cd_rc = $schema->resultset("CD")->result_class; - + throws_ok { $schema->resultset("Artist") ->search_rs({}, {result_class => "IWillExplode"}) @@ -43,21 +43,21 @@ plan tests => 12; my $cd_rs3 = $schema->resultset("Artist")->search_rs({},{})->related_resultset('cds'); is($cd_rs->result_class, $cd_rc, 'Correct cd3 result_class'); - + isa_ok(eval{ $cd_rs->find(1) }, $cd_rc, 'Inflated into correct cd result_class'); } { my $cd_rc = $schema->resultset("CD")->result_class; - + my $artist_rs = $schema->resultset("Artist") ->search_rs({}, {result_class => "IWillExplode"})->search({artistid => 1}); is($artist_rs->result_class, 'IWillExplode', 'Correct artist result_class'); - + my $cd_rs = $artist_rs->related_resultset('cds'); is($cd_rs->result_class, $cd_rc, 'Correct cd result_class'); - - isa_ok(eval{ $cd_rs->find(1) }, $cd_rc, 'Inflated into correct cd result_class'); + + isa_ok(eval{ $cd_rs->find(1) }, $cd_rc, 'Inflated into correct cd result_class'); isa_ok(eval{ $cd_rs->search({ cdid => 1 })->first }, $cd_rc, 'Inflated into correct cd result_class'); }