From: Tony Cook <tony@develop=help.com>
Date: Tue, 24 Apr 2001 09:34:11 +0000 (+0000)
Subject: extracted jpeg tests from t10formats.t
X-Git-Tag: Imager-0.48^2~718
X-Git-Url: http://git.imager.perl.org/imager.git/commitdiff_plain/20adc63d490d25b5a5610b7b025cfefca48d5b6c?ds=sidebyside;hp=3827fae079759315f3e65f20062c185b6e9cb5c0

extracted jpeg tests from t10formats.t
---

diff --git a/t/t101jpeg.t b/t/t101jpeg.t
new file mode 100644
index 00000000..ccc1258d
--- /dev/null
+++ b/t/t101jpeg.t
@@ -0,0 +1,39 @@
+use Imager qw(:all);
+
+print "1..2\n";
+
+init_log("testout/t101jpeg.log",1);
+
+$green=i_color_new(0,255,0,255);
+$blue=i_color_new(0,0,255,255);
+$red=i_color_new(255,0,0,255);
+
+$img=Imager::ImgRaw::new(150,150,3);
+$cmpimg=Imager::ImgRaw::new(150,150,3);
+
+i_box_filled($img,70,25,130,125,$green);
+i_box_filled($img,20,25,80,125,$blue);
+i_arc($img,75,75,30,0,361,$red);
+i_conv($img,[0.1, 0.2, 0.4, 0.2, 0.1]);
+
+i_has_format("jpeg") && print "# has jpeg\n";
+if (!i_has_format("jpeg")) {
+  print "ok 1 # skip no jpeg support\n";
+  print "ok 2 # skip no jpeg support\n";
+} else {
+  open(FH,">testout/t11.jpg") || die "cannot open testout/t11.jpg for writing\n";
+  binmode(FH);
+  i_writejpeg($img,fileno(FH),30);
+  close(FH);
+
+  print "ok 1\n";
+  
+  open(FH,"testout/t11.jpg") || die "cannot open testout/t11.jpg\n";
+  binmode(FH);
+
+  ($cmpimg,undef)=i_readjpeg(fileno(FH));
+  close(FH);
+
+  print "# jpeg average mean square pixel difference: ",sqrt(i_img_diff($img,$cmpimg))/150*150,"\n";
+  print "ok 2\n";
+}