Mercurial > hg > octave-max

comparison test/fntests.m @ 11227:84846912f3c1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
test/fntests.m: run tests for deprecated functions
author John W. Eaton <jwe@octave.org>
date Wed, 10 Nov 2010 16:04:55 -0500
parents 3b8817c91e31
children fd0a3ac60b0e
comparison
equal deleted inserted replaced
11226:16d744cce38c 11227:84846912f3c1
134 lst = dir (d); 134 lst = dir (d);
135 dp = dn = dxf = dsk = 0; 135 dp = dn = dxf = dsk = 0;
136 for i = 1:length (lst) 136 for i = 1:length (lst)
137 nm = lst(i).name; 137 nm = lst(i).name;
138 if (lst(i).isdir && ! strcmp (nm, ".") && ! strcmp (nm, "..") 138 if (lst(i).isdir && ! strcmp (nm, ".") && ! strcmp (nm, "..")
139 && ! strcmp (nm, "CVS") && ! strcmp (nm, "deprecated") ) 139 && ! strcmp (nm, "CVS"))
140 [p, n, xf, sk] = run_test_script (fid, [d, "/", nm]); 140 [p, n, xf, sk] = run_test_script (fid, [d, "/", nm]);
141 dp += p; 141 dp += p;
142 dn += n; 142 dn += n;
143 dxf += xf; 143 dxf += xf;
144 dsk += sk; 144 dsk += sk;
213 pso = page_screen_output (); 213 pso = page_screen_output ();
214 warn_state = warning ("query", "quiet"); 214 warn_state = warning ("query", "quiet");
215 warning ("on", "quiet"); 215 warning ("on", "quiet");
216 try 216 try
217 page_screen_output (0); 217 page_screen_output (0);
218 warning ("off", "Octave:deprecated-functions");
218 fid = fopen ("fntests.log", "wt"); 219 fid = fopen ("fntests.log", "wt");
219 if (fid < 0) 220 if (fid < 0)
220 error ("could not open fntests.log for writing"); 221 error ("could not open fntests.log for writing");
221 endif 222 endif
222 test ("", "explain", fid); 223 test ("", "explain", fid);