X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F97result_class.t;h=79211587b56320fad44035cdb95d66f0dbbbee13;hb=f4f87589f2e1780cb5db3d9429975f7ae5303448;hp=820948b536134a37ae63ac4e40a610a934bcdba4;hpb=6c0ddbf737fa59fd988b0ca3bdbd0e68d2ef9e6d;p=dbsrgits%2FDBIx-Class-Historic.git diff --git a/t/97result_class.t b/t/97result_class.t index 820948b..7921158 100644 --- a/t/97result_class.t +++ b/t/97result_class.t @@ -7,7 +7,7 @@ use DBICTest; my $schema = DBICTest->init_schema(); -plan tests => 7; +plan tests => 9; { my $cd_rc = $schema->resultset("CD")->result_class; @@ -18,8 +18,14 @@ plan tests => 7; my $cd_rs = $artist_rs->related_resultset('cds'); is($cd_rs->result_class, $cd_rc, 'Correct cd result_class'); + + my $cd_rs2 = $schema->resultset("Artist")->search_rs({})->related_resultset('cds'); + is($cd_rs->result_class, $cd_rc, 'Correct cd2 result_class'); + + 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'); + isa_ok(eval{ $cd_rs->find(1) }, $cd_rc, 'Inflated into correct cd result_class'); } @@ -27,12 +33,12 @@ plan tests => 7; my $cd_rc = $schema->resultset("CD")->result_class; my $artist_rs = $schema->resultset("Artist") - ->search_rs({}, {result_class => "IWillExplode"})->search({artistis => 1}); + ->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->search({ cdid => 1 })->first}, $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'); }