# HG changeset patch
# User Carnë Draug <carandraug@octave.org>
# Date 1376711368 -3600
# Node ID 27800ef1f7d24e666ff646f0a0bda7c8b7804f7b
# Parent  b1a09f72a520f556284544be525ceeb106e11a00
imwrite: add simple test for actual successfully writing

diff --git a/scripts/image/imwrite.m b/scripts/image/imwrite.m
--- a/scripts/image/imwrite.m
+++ b/scripts/image/imwrite.m
@@ -96,3 +96,13 @@
 %!error imwrite ([], "filename.jpg")          # Empty img matrix
 %!error imwrite (spones (2), "filename.jpg")  # Invalid sparse img
 
+%!testif HAVE_MAGICK
+%! imw = randi (255, 100, "uint8");
+%! filename = [tmpnam() ".png"];
+%! unwind_protect
+%!   imwrite (imw, filename);
+%!   imr = imread (filename);
+%! unwind_protect_cleanup
+%!   unlink (filename);
+%! end_unwind_protect
+%! assert (imw, imr)