Mercurial > octave
changeset 23094:28c9a42cfbf8
fix typos in failing new test added in previous change
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Thu, 26 Jan 2017 13:09:13 -0500 |
| parents | 8aba6d170887 |
| children | 5a8979c8d0c3 |
| files | test/io.tst |
| diffstat | 1 files changed, 6 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- 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)';