# HG changeset patch
# User John W. Eaton <jwe@octave.org>
# Date 1485454153 18000
# Node ID 28c9a42cfbf85d85ec6139864a3e9ba68f1591f1
# Parent  8aba6d17088707cd9a2a32df3c501dc2ed5dd94b
fix typos in failing new test added in previous change

diff -r 8aba6d170887 -r 28c9a42cfbf8 test/io.tst
--- a/test/io.tst	Thu Jan 26 12:19:15 2017 -0500
+++ b/test/io.tst	Thu Jan 26 13:09:13 2017 -0500
@@ -506,18 +506,19 @@
 %!   cls = classes{i};
 %!   s_in = ones (1, 1, cls);
 %!   m_in = ones (2, 2, cls);
-%!   m_shape = size (m);
-%!   fwrite (id, s, numel (s), cls);
-%!   fwrite (id, m, numel (m), cls);
+%!   m_shape = size (m_in);
+%!   frewind (id);
+%!   fwrite (id, s_in, cls);
+%!   fwrite (id, m_in, cls);
 %!   frewind (id);
 %!   s_out = fread (id, numel (s_in), sprintf ("%s=>%s", cls, cls));
 %!   m_out = fread (id, numel (m_in), sprintf ("%s=>%s", cls, cls));
 %!   m_out = reshape (m_out, m_shape);
-%!   fclose (id);
-%!   unlink (nm);
 %!   assert (s_in, s_out);
 %!   assert (m_in, m_out);
 %! endfor
+%! fclose (id);
+%! unlink (nm);
 
 %!test
 %! x = char (128:255)';