GraphicsMagick: PerlMagick/t/input_bilevel.xpm New testcase with...

changeset 94516c1cc211 in /hg/GraphicsMagick
details: http://hg.GraphicsMagick.org/hg/GraphicsMagick?cmd=changeset;node=94516c1cc211
summary: PerlMagick/t/input_bilevel.xpm New testcase with bilevel monochrome image.

diffstat:

 ChangeLog                                          |    8 ++++++++
 PerlMagick/t/input_bilevel.xpm                     |   13 +++++++++++++
 PerlMagick/t/read.t                                |    6 +++++-
 PerlMagick/t/reference/read/input_xpm_bilevel.miff |  Bin 
 4 files changed, 26 insertions(+), 1 deletions(-)

diffs (58 lines):

diff -r d42a77ac8d21 -r 94516c1cc211 ChangeLog
--- a/ChangeLog	Fri Oct 28 03:57:27 2022 +0200
+++ b/ChangeLog	Sat Oct 29 00:09:43 2022 +0200
@@ -1,3 +1,11 @@
+2022-10-29  Fojtik Jaroslav  <[email protected]>
+
+	* PerlMagick/t/input_bilevel.xpm
+	* PerlMagick/t/reference/read/input_xpm_bilevel.miff New testcase
+        with bilevel monochrome image.
+	* PerlMagick/t/read.t: Added input_xpm_pal16.miff to PerlMagick test
+	suite.
+
 2022-10-28  Fojtik Jaroslav  <[email protected]>
 
 	* PerlMagick/t/input_pal16.xpm
diff -r d42a77ac8d21 -r 94516c1cc211 PerlMagick/t/input_bilevel.xpm
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/PerlMagick/t/input_bilevel.xpm	Sat Oct 29 00:09:43 2022 +0200
@@ -0,0 +1,13 @@
+/* XPM */
+static char * blarg_xpm[] = {
+"16 7 2 1",
+"* c #000000",
+". c #ffffff",
+"**..*...........",
+"*.*.*...........",
+"**..*..**.**..**",
+"*.*.*.*.*.*..*.*",
+"**..*..**.*...**",
+"...............*",
+".............**."
+};
\ No newline at end of file
diff -r d42a77ac8d21 -r 94516c1cc211 PerlMagick/t/read.t
--- a/PerlMagick/t/read.t	Fri Oct 28 03:57:27 2022 +0200
+++ b/PerlMagick/t/read.t	Sat Oct 29 00:09:43 2022 +0200
@@ -13,7 +13,7 @@
 # Whenever a new test is added/removed, be sure to update the
 # 1..n ouput.
 #
-BEGIN { $| = 1; $test=1; print "TAP version 13\n1..85\n"; }
+BEGIN { $| = 1; $test=1; print "TAP version 13\n1..86\n"; }
 END {print "not ok $test\n" unless $loaded;}
 use Graphics::Magick;
 $loaded=1;
@@ -335,6 +335,10 @@
 ++$test;
 testReadCompare('xc:black', 'reference/read/input_xc_black.miff', q/size=>"70x46",, depth=>8/, 0, 0);
 
+print("X Windows system pixmap file (bilevel) ...\n");
+++$test;
+testReadCompare('input_bilevel.xpm', 'reference/read/input_xpm_bilevel.miff', q//, 0, 0);
+
 print("X Windows system pixmap file (color) ...\n");
 ++$test;
 testReadCompare('input.xpm', 'reference/read/input_xpm.miff', q//, 0, 0);
diff -r d42a77ac8d21 -r 94516c1cc211 PerlMagick/t/reference/read/input_xpm_bilevel.miff
Binary file PerlMagick/t/reference/read/input_xpm_bilevel.miff has changed