Mercurial > hg > octave-lyh

diff scripts/io/csvwrite.m @ 13766:453997717598

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 fd0a3ac60b0e
children 72c96de7a403
line wrap: on
line diff
--- 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);
+