Mercurial > octave

comparison test/eval-command.tst @ 30322:552239d43c18 stable

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
update bug status Modified files: cellfun.cc, mappers.cc, pt-eval.cc, bug-52851.tst, eval-command.tst, and handle-to-sibling.tst.
author John W. Eaton <jwe@octave.org>
date Tue, 23 Nov 2021 09:51:21 -0500
parents 0a5b15007766
children 796f54d4ddbf
comparison
equal deleted inserted replaced
30272:869dea2b5c91 30322:552239d43c18
173 %! r = f_eval_fun (); 173 %! r = f_eval_fun ();
174 %!endfunction 174 %!endfunction
175 175
176 %!shared evalin_value 176 %!shared evalin_value
177 %! evalin_value = "this is the caller"; 177 %! evalin_value = "this is the caller";
178 %!assert <59847> (f_eval_fun (), "this is the caller"); 178 %!assert <*59847> (f_eval_fun (), "this is the caller");
179 %!assert <59847> (g_eval_fun (), "this is the caller"); 179 %!assert <*59847> (g_eval_fun (), "this is the caller");
180 %!assert <59847> (h_eval_fun (), "this is h_eval_fun"); 180 %!assert <*59847> (h_eval_fun (), "this is h_eval_fun");
181 181
182 %!function r = f_asgn_fun () 182 %!function r = f_asgn_fun ()
183 %! asgnin_value = "this is f_asgn_fun"; 183 %! asgnin_value = "this is f_asgn_fun";
184 %! assignin ("caller", "asgnin_value", "f value"); 184 %! assignin ("caller", "asgnin_value", "f value");
185 %! r = asgnin_value; 185 %! r = asgnin_value;
193 %! asgnin_value = "this is h_asgn_fun"; 193 %! asgnin_value = "this is h_asgn_fun";
194 %! f_asgn_fun (); 194 %! f_asgn_fun ();
195 %! r = asgnin_value; 195 %! r = asgnin_value;
196 %!endfunction 196 %!endfunction
197 197
198 %!test <59847> 198 %!test <*59847>
199 %! asgnin_value = "this is the caller"; 199 %! asgnin_value = "this is the caller";
200 %! assert (f_asgn_fun (), "this is f_asgn_fun"); 200 %! assert (f_asgn_fun (), "this is f_asgn_fun");
201 %! assert (asgnin_value, "f value"); 201 %! assert (asgnin_value, "f value");
202 202
203 %!test <59847> 203 %!test <*59847>
204 %! asgnin_value = "this is the caller"; 204 %! asgnin_value = "this is the caller";
205 %! assert (g_asgn_fun (), "this is g_asgn_fun"); 205 %! assert (g_asgn_fun (), "this is g_asgn_fun");
206 %! assert (asgnin_value, "f value"); 206 %! assert (asgnin_value, "f value");
207 207
208 %!test <59847> 208 %!test <*59847>
209 %! asgnin_value = "this is the caller"; 209 %! asgnin_value = "this is the caller";
210 %! assert (h_asgn_fun (), "f value"); 210 %! assert (h_asgn_fun (), "f value");
211 %! assert (asgnin_value, "this is the caller"); 211 %! assert (asgnin_value, "this is the caller");