diff test/build_sparse_tests.sh @ 5603:2c66c36d2698

[project @ 2006-01-31 11:57:47 by dbateman]
author dbateman
date Tue, 31 Jan 2006 11:57:47 +0000
parents 1ad66ea35fe5
children 9761b7d24e9e
line wrap: on
line diff
--- a/test/build_sparse_tests.sh
+++ b/test/build_sparse_tests.sh
@@ -772,6 +772,7 @@
 %!assert(sparse(as(idx),true),sparse(af(idx),true));
 %!assert(as(idx),sparse(af(idx),true));
 %!assert(as(idx'),sparse(af(idx'),true));
+%!assert(as(flipud(idx(:))),sparse(af(flipud(idx(:))),true))
 %!assert(as([idx,idx]),sparse(af([idx,idx]),true));
 %!error(as(reshape([idx;idx],[1,length(idx),2])));
 
@@ -780,6 +781,33 @@
 %!assert(as(ridx,:), sparse(af(ridx,:),true))
 %!assert(as(:,cidx), sparse(af(:,cidx),true))
 %!assert(as(:,:), sparse(af(:,:),true))
+%!assert(as((size(as,1):-1:1),:),sparse(af((size(af,1):-1:1),:),true))
+%!assert(as(:,(size(as,2):-1:1)),sparse(af(:,(size(af,2):-1:1)),true))
+
+%% Assignment test
+%!test
+%! ts=as;ts(:,:)=ts(fliplr(1:size(as,1)),:);
+%! tf=af;tf(:,:)=tf(fliplr(1:size(af,1)),:);
+%! assert(ts,sparse(tf,true));
+%!test
+%! ts=as;ts(fliplr(1:size(as,1)),:)=ts;
+%! tf=af;tf(fliplr(1:size(af,1)),:)=tf;
+%! assert(ts,sparse(tf,true));
+%!test
+%! ts=as;ts(:,fliplr(1:size(as,2)))=ts;
+%! tf=af;tf(:,fliplr(1:size(af,2)))=tf;
+%! assert(ts,sparse(tf,true));
+%!test
+%! ts(fliplr(1:size(as,1)))=as(:,1);tf(fliplr(1:size(af,1)))=af(:,1);
+%! assert(ts,sparse(tf,true));
+
+%% Deletion tests
+%!test
+%! ts=as;ts(1,:)=[];tf=af;tf(1,:)=[];
+%! assert(ts,sparse(tf,true));
+%!test
+%! ts=as;ts(:,1)=[];tf=af;tf(:,1)=[];
+%! assert(ts,sparse(tf,true));
 
 %% Test 'end' keyword
 %!assert(as(end),af(end))