Mercurial > octave-nkf

diff test/io.tst @ 19379:2a790328fc50 gui-release

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: Periodic merge of stable to gui-release.
author Rik <rik@octave.org>
date Sat, 22 Nov 2014 20:19:23 -0800
parents f1b91e3137b9 a791930c3bda
children 112fc552ea22 be7ac98fab43
line wrap: on
line diff
--- a/test/io.tst	Thu Nov 13 07:02:33 2014 +0100
+++ b/test/io.tst	Sat Nov 22 20:19:23 2014 -0800
@@ -609,3 +609,12 @@
 %! assert (data, [256, 1798; 770, 3083; 1284, 3597]);
 %! assert (count, 6);
 %! fclose (id);
+
+%!test
+%! id = tmpfile ();
+%! fwrite (id, "abcd");
+%! frewind (id);
+%! [data, count] = fread (id, [2, 3], "char");
+%! assert (data, [97, 99; 98, 100]);
+%! assert (count, 4);
+%! fclose (id);