# HG changeset patch
# User Jordi Gutiérrez Hermoso <jordigh@gmail.com>
# Date 1310857073 18000
# Node ID 0232a5300adf6f1f9f36b2d724f7c6082b9fcb4e
# Parent  7fce673b934a01bc29b7a54f074cfa251a6774b8
codesprint: Add 1 test to powerset.m

diff --git a/scripts/set/powerset.m b/scripts/set/powerset.m
--- a/scripts/set/powerset.m
+++ b/scripts/set/powerset.m
@@ -75,3 +75,9 @@
   endif
 
 endfunction
+
+
+%!test
+%! c = sort (cellstr ({ [], [1], [2], [3], [1, 2], [1, 3], [2, 3], [1, 2, 3]}));
+%! p = sort (cellstr (powerset ([1, 2, 3])));
+%! assert (p, c));
\ No newline at end of file