Mercurial > octave

annotate test/bug-59661/bug59661.m @ 33664:28493b96c69f bytecode-interpreter tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: Merge default to bytecode-interpreter
author Arun Giridhar <arungiridhar@gmail.com>
date Fri, 14 Jun 2024 15:14:13 -0400
parents 370b5ded5e6a
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
29208
370b5ded5e6a Add test case for bug #59661.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
1 classdef bug59661 < handle
370b5ded5e6a Add test case for bug #59661.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
2
370b5ded5e6a Add test case for bug #59661.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
3 properties
370b5ded5e6a Add test case for bug #59661.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
4 p = [];
370b5ded5e6a Add test case for bug #59661.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
5 endproperties
370b5ded5e6a Add test case for bug #59661.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
6
370b5ded5e6a Add test case for bug #59661.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
7 methods
370b5ded5e6a Add test case for bug #59661.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
8
370b5ded5e6a Add test case for bug #59661.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
9 function o = bug59661 (varargin)
370b5ded5e6a Add test case for bug #59661.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
10 o.p = [varargin{:}];
370b5ded5e6a Add test case for bug #59661.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
11 endfunction
370b5ded5e6a Add test case for bug #59661.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
12
370b5ded5e6a Add test case for bug #59661.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
13 function res = eq (a, b)
370b5ded5e6a Add test case for bug #59661.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
14
370b5ded5e6a Add test case for bug #59661.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
15 if (numel (a.p) > 1 && numel (b.p) > 1 && ! isequal (size (a.p), size (b.p)))
370b5ded5e6a Add test case for bug #59661.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
16 res = false;
370b5ded5e6a Add test case for bug #59661.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
17 return;
370b5ded5e6a Add test case for bug #59661.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
18 endif
370b5ded5e6a Add test case for bug #59661.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
19
370b5ded5e6a Add test case for bug #59661.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
20 if (isequal (size (a.p), size (b.p)))
370b5ded5e6a Add test case for bug #59661.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
21 res = eq (a.p, b.p);
370b5ded5e6a Add test case for bug #59661.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
22 else
370b5ded5e6a Add test case for bug #59661.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
23 res = bsxfun (@eq, a.p, b.p);
370b5ded5e6a Add test case for bug #59661.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
24 endif
370b5ded5e6a Add test case for bug #59661.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
25
370b5ded5e6a Add test case for bug #59661.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
26 endfunction
370b5ded5e6a Add test case for bug #59661.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
27
370b5ded5e6a Add test case for bug #59661.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
28 endmethods
370b5ded5e6a Add test case for bug #59661.
Markus Mützel <markus.muetzel@gmx.de>
parents:
diff changeset
29 endclassdef