t/t60dyntest.t

   1 BEGIN { $| = 1; print "1..3\n"; }
   2 END {print "not ok 1\n" unless $loaded;}
   3 use Imager qw(:default);
   4 use Config;
   5 $loaded = 1;
   6
   7 #$Imager::DEBUG=1;
   8
   9 Imager::init('log'=>'testout/t60dyntest.log');
  10
  11 $img=Imager->new() || die "unable to create image object\n";
  12
  13 $img->open(file=>'testout/t104.ppm',type=>'pnm') || die "failed: ",$img->{ERRSTR},"\n";
  14
  15 $plug='dynfilt/dyntest.'.$Config{'so'};
  16 load_plugin($plug) || die "unable to load plugin:\n$Imager::ERRSTR\n";
  17
  18 print "ok\nok\n"; # exit;
  19
  20 %hsh=(a=>35,b=>200,type=>lin_stretch);
  21 $img->filter(%hsh);
  22
  23 $img->write(type=>'pnm',file=>'testout/t60.ppm') || die "error in write()\n";
  24
  25 unload_plugin($plug) || die "unable to unload plugin: $Imager::ERRSTR\n";
  26
  27 print "ok\n";
  28
  29