Mercurial > octave-nkf

changeset 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 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	Thu Oct 27 20:37:45 2011 -0700
+++ b/scripts/io/csvread.m	Thu Oct 27 20:53:50 2011 -0700
@@ -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	Thu Oct 27 20:37:45 2011 -0700
+++ b/scripts/io/csvwrite.m	Thu Oct 27 20:53:50 2011 -0700
@@ -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);
+