Mailinglist Archive: yast-commit (595 mails)

[aschnell@xxxxxxxxxxxxxxxx]

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?rev=54320&r1=54319&r2=54320&view=diff
==============================================================================
--- 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/builtin/Builtin-List.err?rev=54320&r1=54319&r2=54320&view=diff
==============================================================================
--- 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/builtin/Builtin-List.out?rev=54320&r1=54319&r2=54320&view=diff
==============================================================================
--- 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/builtin/Builtin-List.ycp?rev=54320&r1=54319&r2=54320&view=diff
==============================================================================
--- 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@xxxxxxxxxxxx
For additional commands, e-mail: yast-commit+help@xxxxxxxxxxxx