Initial upstream version 9.4.3upstream/9.4.3

1 files changed, 43 insertions, 0 deletions

diff --git a/tests/general/sets.std b/tests/general/sets.std
new file mode 100644
index 0000000..4209e0a
--- /dev/null
+++ b/tests/general/sets.std
@@ -0,0 +1,43 @@
+     empty : 0 :
+set
+    insert : 1 : &null
+&null
+&null
+    insert : 1 : &null
+    delete : 0 :
+    delete : 0 :
+
+         x : 3 : 1 2 4
+         y : 3 : 1 2 5
+    x ++ y : 4 : 1 2 4 5
+    y ++ x : 4 : 1 2 4 5
+    x -- y : 1 : 4
+    y -- x : 1 : 5
+    x ** y : 2 : 1 2
+    y ** x : 2 : 1 2
+
+     empty : 0 :
+       + 1 : 1 : 1
+       + 2 : 2 : 1 2
+       + c : 3 : 1 2 "c"
+       - 3 : 3 : 1 2 "c"
+       - 1 : 2 : 2 "c"
+       - 1 : 2 : 2 "c"
+       + 2 : 2 : 2 "c"
+       + 1 : 3 : 1 2 "c"
+     + 7.0 : 4 : 1 2 7.0 "c"
+     + 7.0 : 4 : 1 2 7.0 "c"
+    + 'cs' : 5 : 1 2 7.0 "c" 'cs'
+    + 'cs' : 5 : 1 2 7.0 "c" 'cs'
+       x = : 5 : 1 2 7.0 "c" 'cs'
+
+     3,a,4 : 3 : 3 4 "a"
+    y ++ x : 8 : 1 2 3 4 7.0 "a" "c" 'cs'
+    y ** x : 0 :
+    y -- x : 3 : 3 4 "a"
+    x -- y : 5 : 1 2 7.0 "c" 'cs'
+
+ z from !y : 3 : 3 4 "a"
+
+         x : 7 : 1 2 3 5 6 7 9
+         y : 7 : 0 2 3 4 5 6 9