From bfe45b39b5a6ff927fd25199ec6be3edba039fa7 Mon Sep 17 00:00:00 2001
From: Guillaume Rousse <guillomovitch@mageia.org>
Date: Wed, 5 Dec 2012 12:10:04 +0000
Subject: use Test::Compile for more automation

---
 t/01compile.t | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

(limited to 't/01compile.t')

diff --git a/t/01compile.t b/t/01compile.t
index 2b81d0c3..727112a3 100644
--- a/t/01compile.t
+++ b/t/01compile.t
@@ -2,10 +2,14 @@
 
 use strict;
 use warnings;
-use Test::More tests => 26;
 
-for my $module (glob("urpm/*.pm")) {
-    $module =~ s,/,::,g;
-    $module =~ s,\.pm$,,;
-    use_ok $module;
-}
+use English qw(-no_match_vars);
+use Test::More;
+
+eval {
+    require Test::Compile;
+    Test::Compile->import();
+};
+plan(skip_all => 'Test::Compile required') if $EVAL_ERROR;
+
+all_pm_files_ok(all_pm_files('urpm'));
-- 
cgit v1.2.1