From c2372470164611b5597ea63faf8dcfe33381df39 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Tue, 7 Oct 2014 14:11:36 -0400
Subject: implement P2

---
 t/P2.t        | 30 ++++++++++++++++++++++++++++++
 t/data/P2.pgm | 52 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 82 insertions(+)
 create mode 100644 t/P2.t
 create mode 100644 t/data/P2.pgm

(limited to 't')

diff --git a/t/P2.t b/t/P2.t
new file mode 100644
index 0000000..41c2d8e
--- /dev/null
+++ b/t/P2.t
@@ -0,0 +1,30 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More;
+
+use Image::PNM;
+
+my $image = Image::PNM->new('t/data/P2.pgm');
+
+is($image->width, 6);
+is($image->height, 8);
+is($image->max_pixel_value, 255);
+is_deeply($image->raw_pixel(1, 2), [78, 78, 78]);
+is_deeply($image->pixel(0, 0), [1, 1, 1]);
+
+is($image->as_string('P2'), <<IMAGE);
+P2
+6 8
+255
+255 255 255 255 255 255
+255 255 78 78 255 255
+255 0 255 255 0 255
+0 255 255 255 255 0
+0 54 54 54 54 0
+0 255 255 255 255 0
+0 255 255 255 255 0
+255 255 255 255 255 255
+IMAGE
+
+done_testing;
diff --git a/t/data/P2.pgm b/t/data/P2.pgm
new file mode 100644
index 0000000..0dbad2e
--- /dev/null
+++ b/t/data/P2.pgm
@@ -0,0 +1,52 @@
+P2
+# CREATOR: GIMP PNM Filter Version 1.1
+6 8
+255
+255
+255
+255
+255
+255
+255
+255
+255
+78
+78
+255
+255
+255
+0
+255
+255
+0
+255
+0
+255
+255
+255
+255
+0
+0
+54
+54
+54
+54
+0
+0
+255
+255
+255
+255
+0
+0
+255
+255
+255
+255
+0
+255
+255
+255
+255
+255
+255
-- 
cgit v1.2.3-54-g00ecf