convert t/t90cc.t to Test::More and actually test a bit more

diff --git a/t/t90cc.t b/t/t90cc.t
index 2ae55c80098166c60383abd6fc8393839fbcd980..3aeef9a12cadf3e7e3b538e1a3aac179a2f66811 100644 (file)
--- a/t/t90cc.t
+++ b/t/t90cc.t
@@ -1,27 +1,16 @@
-# 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..3\n"; }
-END {print "not ok 1\n" unless $loaded;}
+#!perl -w
+use strict;
+use Test::More tests => 4;
 
 use Imager;
-$loaded=1;
-
-print "ok 1\n";
 
 Imager::init('log'=>'testout/t90cc.log');
 
-$img=Imager->new();
-$img->open(file=>'testimg/scale.ppm') || print "failed: ",$img->{ERRSTR},"\n";
-print "ok 2\n";
+my $img=Imager->new();
+ok($img->open(file=>'testimg/scale.ppm'), 'load test image')
+  or print "failed: ",$img->{ERRSTR},"\n";
 
-print "# Less than 10K colors in image\n" if !defined($img->getcolorcount(maxcolors=>10000));
+ok(defined($img->getcolorcount(maxcolors=>10000)), 'check color count is small enough');
 print "# color count: ".$img->getcolorcount()."\n";
-
-print "ok 3\n";
+is($img->getcolorcount(), 86, 'expected number of colors');
+is($img->getcolorcount(maxcolors => 50), undef, 'check overflow handling');