implement P5

6 files changed, 98 insertions, 0 deletions

diff --git a/t/P1.t b/t/P1.t
index 030634b..325f87e 100644
--- a/t/P1.t
+++ b/t/P1.t
@@ -60,4 +60,11 @@ P4
 \x00\x30\x48\x84\xfc\x84\x84\x00
 IMAGE
 
+is($image->as_string('P5') . "\n", <<IMAGE);
+P5
+6 8
+1
+\x01\x01\x01\x01\x01\x01\x01\x01\x00\x00\x01\x01\x01\x00\x01\x01\x00\x01\x00\x01\x01\x01\x01\x00\x00\x00\x00\x00\x00\x00\x00\x01\x01\x01\x01\x00\x00\x01\x01\x01\x01\x00\x01\x01\x01\x01\x01\x01
+IMAGE
+
 done_testing;
diff --git a/t/P2.t b/t/P2.t
index 6ff8a29..88efe59 100644
--- a/t/P2.t
+++ b/t/P2.t
@@ -60,4 +60,11 @@ P4
 \x00\x30\x48\x84\xfc\x84\x84\x00
 IMAGE
 
+is($image->as_string('P5') . "\n", <<IMAGE);
+P5
+6 8
+255
+\xff\xff\xff\xff\xff\xff\xff\xff\x4e\x4e\xff\xff\xff\x00\xff\xff\x00\xff\x00\xff\xff\xff\xff\x00\x00\x36\x36\x36\x36\x00\x00\xff\xff\xff\xff\x00\x00\xff\xff\xff\xff\x00\xff\xff\xff\xff\xff\xff
+IMAGE
+
 done_testing;
diff --git a/t/P3.t b/t/P3.t
index 925b2d7..3a60aa0 100644
--- a/t/P3.t
+++ b/t/P3.t
@@ -60,4 +60,11 @@ P4
 \x00\x30\x48\x84\xfc\x84\x84\x00
 IMAGE
 
+is($image->as_string('P5') . "\n", <<IMAGE);
+P5
+6 8
+255
+\xff\xff\xff\xff\xff\xff\xff\xff\x4e\x4e\xff\xff\xff\x00\xff\xff\x00\xff\x00\xff\xff\xff\xff\x00\x00\x36\x36\x36\x36\x00\x00\xff\xff\xff\xff\x00\x00\xff\xff\xff\xff\x00\xff\xff\xff\xff\xff\xff
+IMAGE
+
 done_testing;
diff --git a/t/P4.t b/t/P4.t
index 9655658..7c68665 100644
--- a/t/P4.t
+++ b/t/P4.t
@@ -60,4 +60,11 @@ P4
 \x00\x30\x48\x84\xfc\x84\x84\x00
 IMAGE
 
+is($image->as_string('P5') . "\n", <<IMAGE);
+P5
+6 8
+1
+\x01\x01\x01\x01\x01\x01\x01\x01\x00\x00\x01\x01\x01\x00\x01\x01\x00\x01\x00\x01\x01\x01\x01\x00\x00\x00\x00\x00\x00\x00\x00\x01\x01\x01\x01\x00\x00\x01\x01\x01\x01\x00\x01\x01\x01\x01\x01\x01
+IMAGE
+
 done_testing;
diff --git a/t/P5.t b/t/P5.t
new file mode 100644
index 0000000..bbd0cbf
--- /dev/null
+++ b/t/P5.t
@@ -0,0 +1,70 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Test::More;
+
+use Image::PNM;
+
+my $image = Image::PNM->new('t/data/P5.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('P1'), <<IMAGE);
+P1
+6 8
+0 0 0 0 0 0
+0 0 1 1 0 0
+0 1 0 0 1 0
+1 0 0 0 0 1
+1 1 1 1 1 1
+1 0 0 0 0 1
+1 0 0 0 0 1
+0 0 0 0 0 0
+IMAGE
+
+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
+
+is($image->as_string('P3'), <<IMAGE);
+P3
+6 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 78 78 78 78 78 78 255 255 255 255 255 255
+255 255 255 0 0 0 255 255 255 255 255 255 0 0 0 255 255 255
+0 0 0 255 255 255 255 255 255 255 255 255 255 255 255 0 0 0
+0 0 0 54 54 54 54 54 54 54 54 54 54 54 54 0 0 0
+0 0 0 255 255 255 255 255 255 255 255 255 255 255 255 0 0 0
+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
+IMAGE
+
+is($image->as_string('P4') . "\n", <<IMAGE);
+P4
+6 8
+\x00\x30\x48\x84\xfc\x84\x84\x00
+IMAGE
+
+is($image->as_string('P5') . "\n", <<IMAGE);
+P5
+6 8
+255
+\xff\xff\xff\xff\xff\xff\xff\xff\x4e\x4e\xff\xff\xff\x00\xff\xff\x00\xff\x00\xff\xff\xff\xff\x00\x00\x36\x36\x36\x36\x00\x00\xff\xff\xff\xff\x00\x00\xff\xff\xff\xff\x00\xff\xff\xff\xff\xff\xff
+IMAGE
+
+done_testing;
diff --git a/t/data/P5.pgm b/t/data/P5.pgm
new file mode 100644
index 0000000..31285e0
--- /dev/null
+++ b/t/data/P5.pgm