Mercurial > hg > octave-nkf
changeset 17267:27800ef1f7d2
imwrite: add simple test for actual successfully writing
| author | Carnë Draug <carandraug@octave.org> |
|---|---|
| date | Sat, 17 Aug 2013 04:49:28 +0100 |
| parents | b1a09f72a520 |
| children | 1c21f264d26f |
| files | scripts/image/imwrite.m |
| diffstat | 1 files changed, 10 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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)