X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F63register_class.t;h=63704644eb30848df8eeff41db4fc9ff6a72dd13;hb=fcf32d045;hp=2fdc07cf163b288868527441bf3aff7abdf7abf9;hpb=b9537280fd9a38dc4856a286b1920dfc16978b11;p=dbsrgits%2FDBIx-Class.git diff --git a/t/63register_class.t b/t/63register_class.t index 2fdc07c..6370464 100644 --- a/t/63register_class.t +++ b/t/63register_class.t @@ -1,5 +1,5 @@ use strict; -use warnings; +use warnings; use Test::More tests => 2; use lib qw(t/lib); @@ -15,3 +15,6 @@ my $schema = DBICTest->init_schema(); my $a = $schema->resultset('FooA')->search; is($a->count, 3, 'have 3 artists'); is($schema->class('FooA'), 'DBICTest::FooA', 'Correct artist class'); + +# clean up +DBICTest::Schema->_unregister_source('FooA');