# HG changeset patch
# User jwe
# Date 1176844906 0
# Node ID c64687e6f1c3b9244983445dc41baead9bb64332
# Parent  25cad08843a07f7575d30ecb4d6ad015fc789041
[project @ 2007-04-17 21:21:46 by jwe]

diff --git a/scripts/ChangeLog b/scripts/ChangeLog
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -1,3 +1,8 @@
+2007-04-17  John W. Eaton  <jwe@octave.org>
+
+	* set/ismember.m: New tests.
+	From David Grohmann <grohmann@arlut.utexas.edu>
+
 2007-04-17  Paul Kienzle  <pkienzle@users.sf.net>
 
 	* specfun/factorial.m: Use gamma function instead of cumprod.
diff --git a/scripts/set/ismember.m b/scripts/set/ismember.m
--- 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:.*');