Tk Library Source Code

Artifact 6a7c13f63fc4de3a557bd1415b3e28be42716567:

Attachment "list.test.patch" to ticket [776010ffff] added by cleverly 2003-07-23 09:36:01.

---

--- modules/struct/list.test	2003-07-22 19:56:59.000000000 -0600
+++ modules/struct/list.test.new	2003-07-22 20:56:19.000000000 -0600
@@ -467,6 +467,29 @@
     repeat 0 {3 4}
 } {{0 0 0} {0 0 0} {0 0 0} {0 0 0}}
 
+#----------------------------------------------------------------------
+
+interp alias {} commonElements {} ::struct::list::list commonElements 
+
+test commonElements-1.1 {common elements} {
+    commonElements {{1 2 3 4 5} {2 4 6 8 10} {2 4 8 16 32}}
+} {2 4}
+
+test commonElements-1.2 {common elements} {
+    commonElements foo
+} foo
+
+test commonElements-1.3 {common elements} {
+    commonElements {}
+} {}
+
+test commonElements-1.4 {common elements} {
+    commonElements {{tcl perl ruby python php} {lisp tcl} {perl php c tcl}}
+} tcl
+
+test commonElements-1.5 {common elements} {
+    commonElements {{1 2 3 4 5} {2. 4. 6. 8. 10.} {2.0 4.0 8.0 16.0 32.0}}
+} {}
 
 #----------------------------------------------------------------------