Add $size() function to get size of sequence (names, strings, etc)

2 files changed, 22 insertions, 0 deletions

diff --git a/tests/function/name/buildfile b/tests/function/name/buildfile
new file mode 100644
index 0000000..48be4c3
--- /dev/null
+++ b/tests/function/name/buildfile
@@ -0,0 +1,4 @@
+# file      : tests/function/name/buildfile
+# license   : MIT; see accompanying LICENSE file
+
+./: testscript $b
diff --git a/tests/function/name/testscript b/tests/function/name/testscript
new file mode 100644
index 0000000..2fe8e24
--- /dev/null
+++ b/tests/function/name/testscript
@@ -0,0 +1,18 @@
+# file      : tests/function/name/testscript
+# license   : MIT; see accompanying LICENSE file
+
+.include ../../common.testscript
+
+: size
+:
+{
+  $* <'print $size(a b c@./)' >'3'      : basics
+  $* <'print $type($size(a))' >'uint64' : type
+}
+
+: sort
+:
+{
+  $* <'print $sort( d/t{a} t{c b} d/t{a})'        >'t{b} t{c} d/t{a} d/t{a}' : basics
+  $* <'print $sort( d/t{a} t{c b} d/t{a}, dedup)' >'t{b} t{c} d/t{a}'        : dedup
+}