[Bast-commits] r8118 - DBIx-Class/0.08/branches/dbicadmin_refactor/t

[goraxe at dev.catalyst.perl.org]

Author: goraxe
Date: 2009-12-15 22:18:35 +0000 (Tue, 15 Dec 2009)
New Revision: 8118

Modified:
   DBIx-Class/0.08/branches/dbicadmin_refactor/t/89dbicadmin.t
Log:
add deps check for 89dbicadmin.t

Modified: DBIx-Class/0.08/branches/dbicadmin_refactor/t/89dbicadmin.t
===================================================================
--- DBIx-Class/0.08/branches/dbicadmin_refactor/t/89dbicadmin.t	2009-12-15 22:16:00 UTC (rev 8117)
+++ DBIx-Class/0.08/branches/dbicadmin_refactor/t/89dbicadmin.t	2009-12-15 22:18:35 UTC (rev 8118)
@@ -7,15 +7,22 @@
 use DBICTest;
 
 
-eval 'require JSON::Any';
-plan skip_all => 'Install JSON::Any to run this test' if ($@);
+BEGIN {
+    eval "require DBIx::Class::Admin";
+    plan skip_all => "Deps not installed: $@" if $@;
 
-eval 'require Text::CSV_XS';
-if ($@) {
-    eval 'require Text::CSV_PP';
-    plan skip_all => 'Install Text::CSV_XS or Text::CSV_PP to run this test' if ($@);
+    eval "require Getopt::Long::Descriptive";
+    plan skip_all => 'Install Getopt::Long::Descriptive to run this test' if ($@);
+
+    eval 'require JSON::Any';
+    plan skip_all => 'Install JSON::Any to run this test' if ($@);
+
+    eval 'require Text::CSV_XS';
+    if ($@) {
+        eval 'require Text::CSV_PP';
+        plan skip_all => 'Install Text::CSV_XS or Text::CSV_PP to run this test' if ($@);
+    }
 }
-
 my @json_backends = qw/XS JSON DWIW/;
 my $tests_per_run = 5;