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

3 files changed, 24 insertions, 5 deletions

diff --git a/tests/function/builtin/testscript b/tests/function/builtin/testscript
index 3853ec2..00d594b 100644
--- a/tests/function/builtin/testscript
+++ b/tests/function/builtin/testscript
@@ -80,11 +80,8 @@
 : sort
 :
 {
-  $* <'print $sort( d/t{a} t{c b} d/t{a})'        >'t{b} t{c} d/t{a} d/t{a}' : name-basics
-  $* <'print $sort( d/t{a} t{c b} d/t{a}, dedup)' >'t{b} t{c} d/t{a}'        : name-dedup
-
-  $* <'print $sort([uint64s] 0 2 1 000)'        >'0 0 1 2' : int-basics
-  $* <'print $sort([uint64s] 0 2 1 000, dedup)' >'0 1 2'   : int-dedup
+  $* <'print $sort([uint64s] 0 2 1 000)'        >'0 0 1 2' : basics
+  $* <'print $sort([uint64s] 0 2 1 000, dedup)' >'0 1 2'   : dedup
 }
 
 : getenv
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
+}