From 35a0bc2f82802800bdb0769882d667d59313f141 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Tue, 7 Oct 2014 13:29:26 -0400 Subject: initial sketch --- t/P3.t | 23 +++++++ t/data/P3.pnm | 196 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 219 insertions(+) create mode 100644 t/P3.t create mode 100644 t/data/P3.pnm (limited to 't') diff --git a/t/P3.t b/t/P3.t new file mode 100644 index 0000000..5712ace --- /dev/null +++ b/t/P3.t @@ -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'), <