[Bast-commits] r5294 - in DBIx-Class/0.08/trunk: . t t/lib/DBICNSTest/Result

[wreis at dev.catalyst.perl.org]

Author: wreis
Date: 2009-01-08 22:45:35 +0000 (Thu, 08 Jan 2009)
New Revision: 5294

Modified:
   DBIx-Class/0.08/trunk/Makefile.PL
   DBIx-Class/0.08/trunk/t/39load_namespaces_1.t
   DBIx-Class/0.08/trunk/t/lib/DBICNSTest/Result/B.pm
Log:
failing test for load_namespace

Modified: DBIx-Class/0.08/trunk/Makefile.PL
===================================================================
--- DBIx-Class/0.08/trunk/Makefile.PL	2009-01-08 22:16:45 UTC (rev 5293)
+++ DBIx-Class/0.08/trunk/Makefile.PL	2009-01-08 22:45:35 UTC (rev 5294)
@@ -33,6 +33,7 @@
 test_requires 'Test::Builder'       => 0.33;
 test_requires 'Test::Warn'          => 0.11;
 test_requires 'Test::Exception'     => 0;
+test_requires 'FindBin'             => 0;
 
 install_script 'script/dbicadmin';
 

Modified: DBIx-Class/0.08/trunk/t/39load_namespaces_1.t
===================================================================
--- DBIx-Class/0.08/trunk/t/39load_namespaces_1.t	2009-01-08 22:16:45 UTC (rev 5293)
+++ DBIx-Class/0.08/trunk/t/39load_namespaces_1.t	2009-01-08 22:45:35 UTC (rev 5294)
@@ -3,11 +3,12 @@
 use strict;
 use warnings;
 use Test::More;
+use FindBin;
+use lib "$FindBin::Bin/../t/lib";
+use DBICNSTest::Result::A;
 
-unshift(@INC, './t/lib');
+plan tests => 7;
 
-plan tests => 6;
-
 my $warnings;
 eval {
     local $SIG{__WARN__} = sub { $warnings .= shift };
@@ -27,3 +28,7 @@
 isa_ok($source_b, 'DBIx::Class::ResultSource::Table');
 my $rset_b   = DBICNSTest->resultset('B');
 isa_ok($rset_b, 'DBIx::Class::ResultSet');
+ok(
+   $source_b->source_name
+   eq DBICNSTest::Result::B->result_source_instance->source_name
+);
\ No newline at end of file

Modified: DBIx-Class/0.08/trunk/t/lib/DBICNSTest/Result/B.pm
===================================================================
--- DBIx-Class/0.08/trunk/t/lib/DBICNSTest/Result/B.pm	2009-01-08 22:16:45 UTC (rev 5293)
+++ DBIx-Class/0.08/trunk/t/lib/DBICNSTest/Result/B.pm	2009-01-08 22:45:35 UTC (rev 5294)
@@ -1,5 +1,5 @@
 package DBICNSTest::Result::B;
-use base qw/DBIx::Class/;
+use base qw/DBICNSTest::Result::A/;
 __PACKAGE__->load_components(qw/PK::Auto Core/);
 __PACKAGE__->table('b');
 __PACKAGE__->add_columns('b');