Author: aschnell Date: Sun Dec 21 18:45:09 2008 New Revision: 54320 URL: http://svn.opensuse.org/viewcvs/yast?rev=54320&view=rev Log: - added tests Modified: trunk/core/libycp/src/YCPBuiltinList.cc trunk/core/libycp/testsuite/tests/builtin/Builtin-List.err trunk/core/libycp/testsuite/tests/builtin/Builtin-List.out trunk/core/libycp/testsuite/tests/builtin/Builtin-List.ycp Modified: trunk/core/libycp/src/YCPBuiltinList.cc URL: http://svn.opensuse.org/viewcvs/yast/trunk/core/libycp/src/YCPBuiltinList.cc... ============================================================================== --- trunk/core/libycp/src/YCPBuiltinList.cc (original) +++ trunk/core/libycp/src/YCPBuiltinList.cc Sun Dec 21 18:45:09 2008 @@ -1290,6 +1290,8 @@ static YCPValue s_difference(const YCPList& a, const YCPList& b) { + // see http://www.sgi.com/tech/stl/set_difference.html + vector<YCPValue> r; back_insert_iterator< vector<YCPValue> > bii(r); @@ -1305,6 +1307,8 @@ static YCPValue s_symmetric_difference(const YCPList& a, const YCPList& b) { + // see http://www.sgi.com/tech/stl/set_symmetric_difference.html + vector<YCPValue> r; back_insert_iterator< vector<YCPValue> > bii(r); @@ -1320,6 +1324,8 @@ static YCPValue s_intersection(const YCPList& a, const YCPList& b) { + // see http://www.sgi.com/tech/stl/set_intersection.html + vector<YCPValue> r; back_insert_iterator< vector<YCPValue> > bii(r); @@ -1335,6 +1341,8 @@ static YCPValue s_union(const YCPList& a, const YCPList& b) { + // see http://www.sgi.com/tech/stl/set_union.html + vector<YCPValue> r; back_insert_iterator< vector<YCPValue> > bii(r); Modified: trunk/core/libycp/testsuite/tests/builtin/Builtin-List.err URL: http://svn.opensuse.org/viewcvs/yast/trunk/core/libycp/testsuite/tests/built... ============================================================================== --- trunk/core/libycp/testsuite/tests/builtin/Builtin-List.err (original) +++ trunk/core/libycp/testsuite/tests/builtin/Builtin-List.err Sun Dec 21 18:45:09 2008 @@ -179,3 +179,15 @@ ---------------------------------------------------------------------- list::reduce (term t, float f, `item (`id (`dummy)), [3.14, 2.71], { return add (t, tostring (f)); }) ---------------------------------------------------------------------- +Parsed: +---------------------------------------------------------------------- +"** difference **" +---------------------------------------------------------------------- +Parsed: +---------------------------------------------------------------------- +list::difference ([1, 2, 3], [2, 3, 4]) +---------------------------------------------------------------------- +Parsed: +---------------------------------------------------------------------- +list::difference ([2, 3, 4], [1, 2, 3]) +---------------------------------------------------------------------- Modified: trunk/core/libycp/testsuite/tests/builtin/Builtin-List.out URL: http://svn.opensuse.org/viewcvs/yast/trunk/core/libycp/testsuite/tests/built... ============================================================================== --- trunk/core/libycp/testsuite/tests/builtin/Builtin-List.out (original) +++ trunk/core/libycp/testsuite/tests/builtin/Builtin-List.out Sun Dec 21 18:45:09 2008 @@ -39,3 +39,6 @@ (48) (`item (`id (`dummy))) (`item (`id (`dummy), "3.14", "2.71")) +("** difference **") +([1]) +([4]) Modified: trunk/core/libycp/testsuite/tests/builtin/Builtin-List.ycp URL: http://svn.opensuse.org/viewcvs/yast/trunk/core/libycp/testsuite/tests/built... ============================================================================== --- trunk/core/libycp/testsuite/tests/builtin/Builtin-List.ycp (original) +++ trunk/core/libycp/testsuite/tests/builtin/Builtin-List.ycp Sun Dec 21 18:45:09 2008 @@ -83,3 +83,9 @@ (list::reduce (term t, float f, `item(`id(`dummy)), [], { return add(t, tostring(f)); })) (list::reduce (term t, float f, `item(`id(`dummy)), [3.14, 2.71], { return add(t, tostring(f)); })) + +("** difference **") + +(list::difference ([1, 2, 3], [2, 3, 4])) +(list::difference ([2, 3, 4], [1, 2, 3])) + -- To unsubscribe, e-mail: yast-commit+unsubscribe@opensuse.org For additional commands, e-mail: yast-commit+help@opensuse.org