Added new files to MANIFEST.

[dbsrgits/SQL-Translator.git] / t / 01load.t

diff --git a/t/01load.t b/t/01load.t
index cc47a99..e6378aa 100644 (file)
--- a/t/01load.t
+++ b/t/01load.t
@@ -6,31 +6,30 @@
 #
 
 my @perlmods;
-my $count = 0;
+
+use Test::More;
+use SQL::Translator;
 
 unless (open MANIFH, "MANIFEST") {
-    print "1..1\n";
-    print "not ok 1\n";
+    plan skip_all => "Can't open MANIFEST! ($!)";
     exit;
 }
+
 while (<MANIFH>) {
     chomp;
     if (s/\.pm$//) {
         s,/,::,g;
-        s/^lib:://;
         push @perlmods, $_
     }
 }
 
-print "1.." . scalar @perlmods . "\n";
-
 close MANIFH;
 
+@perlmods = sort { length $a <=> length $b } @perlmods; # aesthetics
+plan tests => scalar @perlmods;
+
 for my $mod (@perlmods) {
-    $count++;
-    $mod =~ s,/,::,g;
-    eval "use $mod;";
-    print "not " if ($@);
-    print "ok $count # $mod\n";
+    SQL::Translator::load($mod);
+    ok(!$@, "use $mod");
 }