Mercurial > hg > octave-image
changeset 175:73d541ecfa04
Reorder tests so that shared variables are displayed unless relevant.
author | pkienzle |
---|---|
date | Tue, 03 Jan 2006 02:09:15 +0000 |
parents | a03df7b2b98f |
children | 07d29c511f67 |
files | qtdecomp.m |
diffstat | 1 files changed, 11 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/qtdecomp.m +++ b/qtdecomp.m @@ -235,6 +235,12 @@ %!assert(full(qtdecomp(eye(5))), reshape([5,zeros(1,24)],5,5)); %!assert(full(qtdecomp(eye(6))), repmat(reshape([3,zeros(1,8)],3,3),2,2)); +%!# Test 'equal' method +%!test +%! a=ones(2,2); +%! b=[2,0;0,0]; +%! assert(full(qtdecomp(eye(4))), [a,b;b,a]); + %!shared A, B2, B4 %! A=[ 1, 4, 2, 5,54,55,61,62; %! 3, 6, 3, 1,58,53,67,65; @@ -247,12 +253,6 @@ %! B2=[2,0;0,0]; %! B4=zeros(4); B4(1,1)=4; -%!# Test 'equal' method -%!test -%! a=ones(2,2); -%! b=[2,0;0,0]; -%! assert(full(qtdecomp(eye(4))), [a,b;b,a]); - %!test %! R=[ones(4,8); [ones(2),B2;ones(2,4)], B4]; %! assert(full(qtdecomp(A)), R); @@ -262,9 +262,11 @@ %!test %! R=[ones(4,8); [ones(2),B2;B2,ones(2)],B4]; %! assert(full(qtdecomp(A,1)), R); + %!test %! R=[[B4,[B2,B2;B2,B2]]; [[ones(2),B2;B2,B2],B4]]; %! assert(full(qtdecomp(A,10)), R); + %!test %! R=[[B4,[B2,B2;B2,B2]]; [[B2,B2;B2,B2],B4]]; %! assert(full(qtdecomp(A,10,2)), R); @@ -298,6 +300,9 @@ % % $Log$ +% Revision 1.8 2006/01/03 02:09:15 pkienzle +% Reorder tests so that shared variables are displayed unless relevant. +% % Revision 1.7 2006/01/02 22:05:06 pkienzle % Reduce number of shared variables in tests %