Mercurial > hg > octave-lyh
diff scripts/set/setxor.m @ 9498:f7cc8f30f3b8
Added test for setxor
author | Pieter Eendebak <pieter.eendebak@gmail.com> |
---|---|
date | Thu, 06 Aug 2009 14:39:02 +0200 |
parents | a3ae7abaf659 |
children | 0bcfeadb6178 |
line wrap: on
line diff
--- a/scripts/set/setxor.m +++ b/scripts/set/setxor.m @@ -93,8 +93,10 @@ endfunction %!assert(setxor([1,2,3],[2,3,4]),[1,4]) +%!assert(setxor({'a'}, {'a', 'b'}), {'b'}); %!test %! a = [3, 1, 4, 1, 5]; b = [1, 2, 3, 4]; %! [y, ia, ib] = setxor (a, b.'); %! assert(y, [2, 5]); %! assert(y, sort([a(ia), b(ib)])); +