[Bast-commits] r5838 - DBIx-Class/0.08/trunk/t

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-03-29 11:22:49 +0100 (Sun, 29 Mar 2009)
New Revision: 5838

Removed:
   DBIx-Class/0.08/trunk/t/39load_namespaces_rt41083.t
Log:
Remove failing test before branching

Deleted: DBIx-Class/0.08/trunk/t/39load_namespaces_rt41083.t
===================================================================
--- DBIx-Class/0.08/trunk/t/39load_namespaces_rt41083.t	2009-03-29 10:18:19 UTC (rev 5837)
+++ DBIx-Class/0.08/trunk/t/39load_namespaces_rt41083.t	2009-03-29 10:22:49 UTC (rev 5838)
@@ -1,66 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-use Test::More;
-
-use lib 't/lib';
-
-plan tests => 8;
-
-sub _chk_warning {
-  defined $_[0]?
-    $_[0] !~ qr/We found ResultSet class '([^']+)' for '([^']+)', but it seems that you had already set '([^']+)' to use '([^']+)' instead/ :
-    1
-}
-
-sub _chk_extra_sources_warning {
-  my $p = qr/already has a source, use register_extra_source for additional sources/;
-  defined $_[0]? $_[0] !~ /$p/ : 1;
-}
-
-{
-  my $warnings;
-  eval {
-    local $SIG{__WARN__} = sub { $warnings .= shift };
-    package DBICNSTest::RtBug41083;
-    use base 'DBIx::Class::Schema';
-    __PACKAGE__->load_namespaces(
-      result_namespace => 'Schema_A',
-      resultset_namespace => 'ResultSet_A',
-      default_resultset_class => 'ResultSet'
-    );
-  };
-
-  ok(!$@) or diag $@;
-  ok(_chk_warning($warnings), 'expected no resultset complaint');
-  ok(_chk_extra_sources_warning($warnings), 'expected no extra sources complaint') or diag($warnings);
-}
-
-is_deeply (
-  [ DBICNSTest::RtBug41083->sources ],
-  [qw/ /],
-);
-
-{
-  my $warnings;
-  eval {
-    local $SIG{__WARN__} = sub { $warnings .= shift };
-    package DBICNSTest::RtBug41083;
-    use base 'DBIx::Class::Schema';
-    __PACKAGE__->load_namespaces(
-      result_namespace => 'Schema',
-      resultset_namespace => 'ResultSet',
-      default_resultset_class => 'ResultSet'
-    );
-  };
-  ok(!$@) or diag $@;
-  ok(_chk_warning($warnings), 'expected no resultset complaint') or diag $warnings;
-  ok(_chk_extra_sources_warning($warnings), 'expected no extra sources complaint') or diag($warnings);
-}
-
-is_deeply (
-  [ DBICNSTest::RtBug41083->sources ],
-  [qw/ /],
-);
-