re-work XS handling of channel lists

[imager.git] / t / t68map.t

diff --git a/t/t68map.t b/t/t68map.t
index 4b39a6a1306380a9f62cae073687073212d156de..600887ded279d58b628812ac041f54504e1cca14 100644 (file)
--- a/t/t68map.t
+++ b/t/t68map.t
@@ -1,4 +1,6 @@
-Imager::init(log=>'testout/t68map.log');
+-d "testout" or mkdir "testout";
+
+Imager::init("log"=>'testout/t68map.log');
 
 use Imager qw(:all :handy);
 
@@ -16,13 +18,13 @@ my $imbase = Imager::ImgRaw::new(200,300,3);
 $tst = 1;
 
 i_map($imbase, [ [],     [],     \@map1 ]);
-print $tst++." ok\n";
+print "ok ".$tst++."\n";
 i_map($imbase, [ \@map1, \@map1, \@map1 ]);
 
-print $tst++." ok\n";
+print "ok ".$tst++."\n";
 i_map($imbase, [ \@map1, \@map2, \@map3 ]);
 
-print $tst++." ok\n";
+print "ok ".$tst++."\n";
 i_map($imbase, [ \@maps, \@mapl, \@map3 ]);
 
 # test the highlevel interface
@@ -31,8 +33,8 @@ i_map($imbase, [ \@maps, \@mapl, \@map3 ]);
 
 my $im = Imager->new;
 if ($im->read(file=>'testimg/scale.ppm')) {
-  print $tst++.( $im->map(r=>\@map1, g=>\@map2, b=>\@map3) ? " ok\n" : " not ok\n");
-  print $tst++.( $im->map(maps=>[\@map1, [], \@map2]) ? " ok\n" : " not ok\n");
+  print( ( $im->map(red=>\@map1, green=>\@map2, blue=>\@map3) ? "ok " : "not ok ").$tst++."\n" );
+  print( ( $im->map(maps=>[\@map1, [], \@map2]) ? "ok " : "not ok "). $tst++."\n");
 }
 else {
   die "could not load testout/scale.ppm\n";