Mercurial > hg > octave-terminal
changeset 13766:453997717598
Add functional tests for csvwrite/csvread.
* Add functional tests for csvwrite/csvread.
author | Rik <octave@nomad.inbox5.com> |
---|---|
date | Thu, 27 Oct 2011 20:53:50 -0700 |
parents | 0d4c6d54b6a3 |
children | 2b98014771b4 |
files | scripts/io/csvread.m scripts/io/csvwrite.m |
diffstat | 2 files changed, 24 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/scripts/io/csvread.m +++ b/scripts/io/csvread.m @@ -33,3 +33,9 @@ function x = csvread (filename, varargin) x = dlmread (filename, ",", varargin{:}); endfunction + + +%% Tests for csvread() are in csvwrite() +%% Mark file as being tested +%!assert (1) +
--- a/scripts/io/csvwrite.m +++ b/scripts/io/csvwrite.m @@ -34,3 +34,21 @@ function csvwrite (filename, x, varargin) dlmwrite (filename, x, ",", varargin{:}); endfunction + + +%!shared fname +%! fname = tmpnam (); + +%!test +%! csvwrite (fname, magic (3)); +%! assert (csvread (fname), magic (3)); +%! unlink (fname); + +%!test +%! csvwrite (fname, magic (3), "precision", "%2.1f", "newline", "unix"); +%! fid = fopen (fname, "rt"); +%! txt = char (fread (fid,Inf,'char')'); +%! fclose (fid); +%! assert (txt, "8.0,1.0,6.0\n3.0,5.0,7.0\n4.0,9.0,2.0\n"); +%! unlink (fname); +