Mercurial > octave

changeset 28442:5bca1527b034 stable

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
new tests for bug #51567 * test/fcn-handle/bug-51567.tst, test/fcn-handle/bug51567.m: New files. * test/fcn-handle/module.mk: Update.
author John W. Eaton <jwe@octave.org>
date Wed, 10 Jun 2020 15:59:51 -0400
parents 8dd50efa3c47
children bdd52f5e4170
files test/fcn-handle/bug-51567.tst test/fcn-handle/bug51567.m test/fcn-handle/module.mk
diffstat 3 files changed, 32 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/fcn-handle/bug-51567.tst	Wed Jun 10 15:59:51 2020 -0400
@@ -0,0 +1,5 @@
+%!shared a
+%! a = bug51567 ();
+%!
+%!assert <51567> (a.doit_1 (), 13);
+%!assert <51567> (a.doit_2 (), 42);
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test/fcn-handle/bug51567.m	Wed Jun 10 15:59:51 2020 -0400
@@ -0,0 +1,24 @@
+classdef bug51567 < handle
+  properties
+    fh1;
+    fh2;
+  endproperties
+  methods
+    function obj = bug51567 (self)
+      obj.fh1 = str2func ("bar");
+      obj.fh2 = @baz;
+    endfunction
+    function r = bar (obj)
+      r = 13;
+    endfunction
+    function r = baz (obj)
+      r = 42;
+    endfunction
+    function r = doit_1 (obj)
+      r = obj.fh1 ();
+    endfunction
+    function r = doit_2 (obj)
+      r = obj.fh2 ();
+    endfunction
+  endmethods
+endclassdef
--- a/test/fcn-handle/module.mk	Wed Jun 10 15:41:32 2020 -0400
+++ b/test/fcn-handle/module.mk	Wed Jun 10 15:59:51 2020 -0400
@@ -10,11 +10,13 @@
   %reldir%/@fhdr_other/getsize_loop.m \
   %reldir%/@fhdr_parent/fhdr_parent.m \
   %reldir%/@fhdr_parent/numel.m \
+  %reldir%/bug-51567.tst \
+  %reldir%/bug51567.m \
   %reldir%/bug51709_a.m \
   %reldir%/bug51709_c.m \
+  %reldir%/bug57941.tst \
   %reldir%/bug57941a.m \
   %reldir%/bug57941b.m \
-  %reldir%/bug57941.tst \
   %reldir%/derived-resolution.tst \
   %reldir%/f1.m \
   %reldir%/keyword.tst \