diff options
author | Jesse Luehrs <doy@tozt.net> | 2014-10-07 13:29:26 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2014-10-07 13:29:26 -0400 |
commit | 35a0bc2f82802800bdb0769882d667d59313f141 (patch) | |
tree | 7e861ca1c3f9a23366adc3dbfd1b881c813bbccf /t/P3.t | |
parent | 3151013be7b78d79f5c0db3d5e7b95b2714dc88f (diff) | |
download | image-pnm-35a0bc2f82802800bdb0769882d667d59313f141.tar.gz image-pnm-35a0bc2f82802800bdb0769882d667d59313f141.zip |
initial sketch
Diffstat (limited to 't/P3.t')
-rw-r--r-- | t/P3.t | 23 |
1 files changed, 23 insertions, 0 deletions
@@ -0,0 +1,23 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use Test::More; + +use Image::PNM; + +my $image = Image::PNM->new('t/data/P3.pnm'); +is($image->as_string('P3'), <<IMAGE); +P3 +8 8 +255 +255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 +255 255 255 255 255 255 255 255 255 0 84 255 0 84 255 255 255 255 255 255 255 255 255 255 +255 255 255 255 255 255 0 0 0 255 255 255 255 255 255 0 0 0 255 255 255 255 255 255 +255 255 255 0 0 0 255 255 255 255 255 255 255 255 255 255 255 255 0 0 0 255 255 255 +255 255 255 0 0 0 255 0 0 255 0 0 255 0 0 255 0 0 0 0 0 255 255 255 +255 255 255 0 0 0 255 255 255 255 255 255 255 255 255 255 255 255 0 0 0 255 255 255 +255 255 255 0 0 0 255 255 255 255 255 255 255 255 255 255 255 255 0 0 0 255 255 255 +255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 255 +IMAGE + +done_testing; |