From: Fitz Elliott Date: Thu, 12 Jul 2012 21:26:59 +0000 (-0400) Subject: Test that ->new() on a ResultSet object returns a Row X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3f1d61d063d5fd98d80099784d68d37aa1e2e00a;p=dbsrgits%2FDBIx-Class-Historic.git Test that ->new() on a ResultSet object returns a Row --- diff --git a/t/60core.t b/t/60core.t index ed7c225..f21355c 100644 --- a/t/60core.t +++ b/t/60core.t @@ -553,6 +553,14 @@ lives_ok (sub { my $newlink = $newbook->link}, "stringify to false value doesn't ); } +# test to make sure that calling ->new() on a resultset object gives +# us a row object +{ + my $new_artist = $schema->resultset('Artist')->new({}); + isa_ok( $new_artist, 'DBIx::Class::Row', '$rs->new gives a row object' ); +} + + # make sure we got rid of the compat shims SKIP: { my $remove_version = 0.083;