[Bast-commits] r9333 - in DBIx-Class/0.08/branches/dbicadmin-non-versioned/t: . admin var var/dbicadmincrap var/dbicadmincrap/lib

[edenc at dev.catalyst.perl.org]

Author: edenc
Date: 2010-05-07 23:02:25 +0100 (Fri, 07 May 2010)
New Revision: 9333

Added:
   DBIx-Class/0.08/branches/dbicadmin-non-versioned/t/var/
   DBIx-Class/0.08/branches/dbicadmin-non-versioned/t/var/dbicadmincrap/
   DBIx-Class/0.08/branches/dbicadmin-non-versioned/t/var/dbicadmincrap/lib/
   DBIx-Class/0.08/branches/dbicadmin-non-versioned/t/var/dbicadmincrap/lib/Foo.pm
Modified:
   DBIx-Class/0.08/branches/dbicadmin-non-versioned/t/admin/04include.t
Log:
fixes to dbicadmin -I test

Modified: DBIx-Class/0.08/branches/dbicadmin-non-versioned/t/admin/04include.t
===================================================================
--- DBIx-Class/0.08/branches/dbicadmin-non-versioned/t/admin/04include.t	2010-05-07 22:02:00 UTC (rev 9332)
+++ DBIx-Class/0.08/branches/dbicadmin-non-versioned/t/admin/04include.t	2010-05-07 22:02:25 UTC (rev 9333)
@@ -12,11 +12,16 @@
 
 if(use_ok 'DBIx::Class::Admin') {
   my $admin = DBIx::Class::Admin->new(
-      include_dirs => 't/var/dbicadmincrap/lib',
-      schema_class => 'Foo'
+      include_dirs => ['t/var/dbicadmincrap/lib'],
+      schema_class => 'Foo',
+      config => { Foo => {} },
+      config_stanza => 'Foo'
   );
   lives_ok { $admin->_build_schema } 'should survive attempt to load module located in include_dirs';
-  ok($Foo::loaded);
+  {
+    no warnings 'once';
+    ok($Foo::loaded);
+  }
 }
 
 done_testing;

Added: DBIx-Class/0.08/branches/dbicadmin-non-versioned/t/var/dbicadmincrap/lib/Foo.pm
===================================================================
--- DBIx-Class/0.08/branches/dbicadmin-non-versioned/t/var/dbicadmincrap/lib/Foo.pm	                        (rev 0)
+++ DBIx-Class/0.08/branches/dbicadmin-non-versioned/t/var/dbicadmincrap/lib/Foo.pm	2010-05-07 22:02:25 UTC (rev 9333)
@@ -0,0 +1,7 @@
+package Foo;
+
+our $loaded = 1;
+
+sub connect {}
+
+1;