1 files changed, 52 insertions, 0 deletions
diff --git a/tests/type/set/testscript b/tests/type/set/testscript
new file mode 100644
index 0000000..3897220
--- /dev/null
+++ b/tests/type/set/testscript
@@ -0,0 +1,52 @@
+# file      : tests/type/set/testscript
+# license   : MIT; see accompanying LICENSE file
+
+# See also tests in function/*/ (size()).
+
+.include ../../common.testscript
+
+: basics
+:
+$* <<EOI >>EOO
+s = [string_set] a b a
+print $s
+s += c b
+print $s
+s =+ d b
+print $s
+EOI
+a b
+a b c
+a b c d
+EOO
+
+: type
+:
+$* <<EOI >>EOO
+s = [string_set]
+print $type($s)
+EOI
+string_set
+EOO
+
+: subscript
+:
+$* <<EOI >>EOO
+s = [string_set] a b c
+print ($s[b])
+print ($s[z])
+EOI
+true
+false
+EOO
+
+: iteration
+:
+$* <<EOI >>EOO
+for s: [string_set] a b c
+  print $s
+EOI
+a
+b
+c
+EOO