Mercurial > hg > octave-lyh

diff scripts/set/ismember.m @ 6533:c64687e6f1c3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-04-17 21:21:46 by jwe]
author jwe
date Tue, 17 Apr 2007 21:21:46 +0000
parents 3e5a3b5fd40e
children 30891d1d0c86
line wrap: on
line diff
--- a/scripts/set/ismember.m
+++ b/scripts/set/ismember.m
@@ -108,4 +108,10 @@
   endif
 
 endfunction
-  
+
+%!assert (ismember ({''}, {'abc', 'def'}), false);
+%!assert (ismember ('abc', {'abc', 'def'}), true);
+%!assert (isempty (ismember ([], [1, 2])), true);
+%!assert (ismember ('', {'abc', 'def'}), false);
+%!fail (ismember ([], {1, 2}), 'error:.*');
+%!fail (ismember ({[]}, {1, 2}), 'error:.*');