From: Fitz Elliott <fitz.elliott@gmail.com>
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;