[Bast-commits] r6248 - DBIx-Class/0.08/branches/rs_subclass/t

[abraxxa at dev.catalyst.perl.org]

Author: abraxxa
Date: 2009-05-13 14:32:50 +0000 (Wed, 13 May 2009)
New Revision: 6248

Modified:
   DBIx-Class/0.08/branches/rs_subclass/t/39load_classes.t
Log:
fixed subclass test #2


Modified: DBIx-Class/0.08/branches/rs_subclass/t/39load_classes.t
===================================================================
--- DBIx-Class/0.08/branches/rs_subclass/t/39load_classes.t	2009-05-13 14:29:46 UTC (rev 6247)
+++ DBIx-Class/0.08/branches/rs_subclass/t/39load_classes.t	2009-05-13 14:32:50 UTC (rev 6248)
@@ -23,8 +23,8 @@
 my $source_s = DBICNSTest->source('S');
 isa_ok($source_s, 'DBIx::Class::ResultSource::Table');
 my $rset_s   = DBICNSTest->resultset('S');
-isa_ok($rset_s, 'DBICNSTest::Result::A');
-
 my $row = $rset_s->new_result({});
 
+# check subclassing
+isa_ok($row, 'DBICNSTest::Result::A');
 ok($row->can('submethod'), 'method defined in rs subclass');