t/t66paste.t

   1 BEGIN { $| = 1; print "1..4\n"; }
   2 END {print "not ok 1\n" unless $loaded;}
   3 use Imager;
   4
   5 $loaded = 1;
   6
   7 #$Imager::DEBUG=1;
   8
   9 Imager::init('log'=>'testout/t66paste.log');
  10
  11 $img=Imager->new() || die "unable to create image object\n";
  12
  13 print "ok 1\n";
  14
  15 $img->open(file=>'testimg/scale.ppm',type=>'pnm');
  16
  17 $nimg=Imager->new() or die "Unable to create image object\n";
  18 $nimg->open(file=>'testimg/scale.ppm',type=>'pnm');
  19 print "ok 2\n";
  20
  21 $img->paste(img=>$nimg, top=>30, left=>30) or die $img->{ERRSTR};
  22 print "ok 3\n";
  23
  24
  25 $img->write(type=>'pnm',file=>'testout/t66.ppm') || die "error in write()\n";
  26 print "ok 4\n";
  27
  28