[Bast-commits] r5928 - DBIx-Class/0.08/branches/subclassed_rsset/t

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-04-21 11:53:25 +0100 (Tue, 21 Apr 2009)
New Revision: 5928

Modified:
   DBIx-Class/0.08/branches/subclassed_rsset/t/63register_class.t
Log:
Back out my bogus test from r4902 - this warning was never supposed to be here in the first place - we are essentially dynamically subclassing Artist (although in a very sloppy way)

Modified: DBIx-Class/0.08/branches/subclassed_rsset/t/63register_class.t
===================================================================
--- DBIx-Class/0.08/branches/subclassed_rsset/t/63register_class.t	2009-04-21 10:42:14 UTC (rev 5927)
+++ DBIx-Class/0.08/branches/subclassed_rsset/t/63register_class.t	2009-04-21 10:53:25 UTC (rev 5928)
@@ -1,19 +1,14 @@
 use strict;
 use warnings;  
 
-use Test::More tests => 3;
+use Test::More tests => 2;
 use lib qw(t/lib);
 use DBICTest;
 use DBICTest::Schema;
 use DBICTest::Schema::Artist;
 
 DBICTest::Schema::Artist->source_name('MyArtist');
-{
-    my $w;
-    local $SIG{__WARN__} = sub { $w = shift };
-    DBICTest::Schema->register_class('FooA', 'DBICTest::Schema::Artist');
-    like ($w, qr/use register_extra_source/, 'Complain about using register_class on an already-registered class');
-}
+DBICTest::Schema->register_class('FooA', 'DBICTest::Schema::Artist');
 
 my $schema = DBICTest->init_schema();