convert t/t00basic to Test::More and have it try to load all of the core modules

diff --git a/t/t00basic.t b/t/t00basic.t
index ab64eeda1b74deb65ee07e3baf2549d88f0fdabb..883af4371de116f5b3dba79ea25362c5cb31d702 100644 (file)
--- a/t/t00basic.t
+++ b/t/t00basic.t
@@ -1,28 +1,19 @@
-# Before `make install' is performed this script should be runnable with
-# `make test'. After `make install' it should work as `perl test.pl'
-
-######################### We start with some black magic to print on failure.
-
-# Change 1..1 below to 1..last_test_to_print .
-# (It may become useful if the test is moved to ./t subdirectory.)
-
-BEGIN { $| = 1; print "1..2\n"; }
-END {print "not ok 1\n" unless $loaded;}
-use Imager;
-#use Data::Dumper;
-$loaded = 1;
-print "ok 1\n";
-
-init_log("testout/t00basic.log",1);
-
-#list_formats();
-
-#%hsh=%Imager::formats;
-#print Dumper(\%hsh);
-
-i_has_format("jpeg") && print "# has jpeg\n";
-i_has_format("png") && print "# has png\n";
-
-print "ok 2\n";
-
-malloc_state();
+#!perl -w
+use strict;
+use Test::More tests => 15;
+
+use_ok('Imager');
+use_ok('Imager::Font');
+use_ok('Imager::Color');
+use_ok('Imager::Color::Float');
+use_ok('Imager::Color::Table');
+use_ok('Imager::Matrix2d');
+use_ok('Imager::ExtUtils');
+use_ok('Imager::Expr');
+use_ok('Imager::Expr::Assem');
+use_ok('Imager::Font::BBox');
+use_ok('Imager::Font::Wrap');
+use_ok('Imager::Fountain');
+use_ok('Imager::Regops');
+use_ok('Imager::Test');
+use_ok('Imager::Transform');