Mercurial > octave-nkf

comparison scripts/testfun/test.m @ 10635:d1978e7364ad

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Print name of function in error() string messages.
author Rik <octave@nomad.inbox5.com>
date Sun, 16 May 2010 22:26:54 -0700
parents 08050f37ba49
children be55736a0783
comparison
equal deleted inserted replaced
10634:60542efcfa2c 10635:d1978e7364ad
103 __close_fid = 0; 103 __close_fid = 0;
104 if (__batch) 104 if (__batch)
105 if (ischar (__fid)) 105 if (ischar (__fid))
106 __fid = fopen (__fid, "wt"); 106 __fid = fopen (__fid, "wt");
107 if (__fid < 0) 107 if (__fid < 0)
108 error ("could not open log file"); 108 error ("test: could not open log file");
109 endif 109 endif
110 __close_fid = 1; 110 __close_fid = 1;
111 endif 111 endif
112 fprintf (__fid, "%sprocessing %s\n", __signal_file, __name); 112 fprintf (__fid, "%sprocessing %s\n", __signal_file, __name);
113 fflush (__fid); 113 fflush (__fid);
147 if (__close_fid) 147 if (__close_fid)
148 fclose(__fid); 148 fclose(__fid);
149 endif 149 endif
150 return; 150 return;
151 else 151 else
152 error ("test unknown flag '%s'", __flag); 152 error ("test: unknown flag '%s'", __flag);
153 endif 153 endif
154 154
155 ## Locate the file to test. 155 ## Locate the file to test.
156 __file = file_in_loadpath (__name, "all"); 156 __file = file_in_loadpath (__name, "all");
157 if (isempty (__file)) 157 if (isempty (__file))