Mercurial > octave-nkf

comparison scripts/testfun/fail.m @ 7151:aeeb646f6538

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-11-09 19:34:17 by jwe]
author jwe
date Fri, 09 Nov 2007 19:35:52 +0000
parents a1dbe9d80eee
children bc982528de11
comparison
equal deleted inserted replaced
7150:68a1b616b7df 7151:aeeb646f6538
97 catch 97 catch
98 warning (state.state, "quiet"); 98 warning (state.state, "quiet");
99 err = lasterr; 99 err = lasterr;
100 err([1:7, end]) = []; # transform "error: ...\n", to "..." 100 err([1:7, end]) = []; # transform "error: ...\n", to "..."
101 msg = sprintf ("expected warning <%s> but got error <%s>", pattern, err); 101 msg = sprintf ("expected warning <%s> but got error <%s>", pattern, err);
102 end 102 end_try_catch
103 103
104 else 104 else
105 ## perform the error test 105 ## perform the error test
106 try 106 try
107 evalin ("caller", sprintf ("%s;", code)); 107 evalin ("caller", sprintf ("%s;", code));
113 endif 113 endif
114 if (! isempty (regexp (err, pattern, "once"))) 114 if (! isempty (regexp (err, pattern, "once")))
115 return; 115 return;
116 endif 116 endif
117 msg = sprintf ("expected error <%s>\nbut got <%s>", pattern, err); 117 msg = sprintf ("expected error <%s>\nbut got <%s>", pattern, err);
118 end 118 end_try_catch
119 endif 119 endif
120 120
121 ## if we get here, then code didn't fail or error didn't match 121 ## if we get here, then code didn't fail or error didn't match
122 error (msg); 122 error (msg);
123 endfunction 123 endfunction