Moved POD around, added all options for all parsers and non-graphical

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

diff --git a/t/01load.t b/t/01load.t
index cc47a99..64e14ac 100644 (file)
--- a/t/01load.t
+++ b/t/01load.t
@@ -6,31 +6,29 @@
 #
 
 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 @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";
+    use_ok($mod);
 }