Mercurial > hg > octave-lyh

diff scripts/set/union.m @ 7411:83a8781b529d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2008-01-22 21:52:25 by jwe]
author jwe
date Tue, 22 Jan 2008 21:52:26 +0000
parents 4571f691b0ce
children e56bb65186f6
line wrap: on
line diff
--- a/scripts/set/union.m
+++ b/scripts/set/union.m
@@ -74,3 +74,14 @@
   endif
 
 endfunction
+
+%!assert(all (all (union ([1, 2, 4], [2, 3, 5]) == [1, 2, 3, 4, 5])));
+
+%!assert(all (all (union ([1; 2; 4], [2, 3, 5]) == [1, 2, 3, 4, 5])));
+
+%!assert(all (all (union ([1, 2, 3], [5; 7; 9]) == [1, 2, 3, 5, 7, 9])));
+
+%!error union (1);
+
+%!error union (1, 2, 3);
+