[Bast-commits] r9332 - DBIx-Class/0.08/branches/dbicadmin-non-versioned/t/admin

[edenc at dev.catalyst.perl.org]

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

Added:
   DBIx-Class/0.08/branches/dbicadmin-non-versioned/t/admin/04include.t
Log:
test for the dbicadmin -I option

Added: DBIx-Class/0.08/branches/dbicadmin-non-versioned/t/admin/04include.t
===================================================================
--- DBIx-Class/0.08/branches/dbicadmin-non-versioned/t/admin/04include.t	                        (rev 0)
+++ DBIx-Class/0.08/branches/dbicadmin-non-versioned/t/admin/04include.t	2010-05-07 22:02:00 UTC (rev 9332)
@@ -0,0 +1,22 @@
+use strict;
+use warnings;
+
+use Test::More;
+use Test::Exception;
+
+BEGIN {
+    require DBIx::Class;
+    plan skip_all => 'Test needs ' . DBIx::Class::Optional::Dependencies->req_missing_for('admin')
+      unless DBIx::Class::Optional::Dependencies->req_ok_for('admin');
+}
+
+if(use_ok 'DBIx::Class::Admin') {
+  my $admin = DBIx::Class::Admin->new(
+      include_dirs => 't/var/dbicadmincrap/lib',
+      schema_class => 'Foo'
+  );
+  lives_ok { $admin->_build_schema } 'should survive attempt to load module located in include_dirs';
+  ok($Foo::loaded);
+}
+
+done_testing;