Updated XML test.

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

diff --git a/t/01load.t b/t/01load.t
index e6378aa..64e14ac 100644 (file)
--- a/t/01load.t
+++ b/t/01load.t
@@ -25,11 +25,10 @@ while (<MANIFH>) {
 
 close MANIFH;
 
-@perlmods = sort { length $a <=> length $b } @perlmods; # aesthetics
+@perlmods = sort @perlmods; # aesthetics
 plan tests => scalar @perlmods;
 
 for my $mod (@perlmods) {
-    SQL::Translator::load($mod);
-    ok(!$@, "use $mod");
+    use_ok($mod);
 }