From 10e634e64b5fffaf19778d8fd3aa854118aa0d53 Mon Sep 17 00:00:00 2001
From: Boris Kolpackov <boris@codesynthesis.com>
Date: Wed, 3 Nov 2021 13:08:48 +0200
Subject: Add $size() function to get size of sequence (names, strings, etc)

---
 tests/function/name/buildfile  |  4 ++++
 tests/function/name/testscript | 18 ++++++++++++++++++
 2 files changed, 22 insertions(+)
 create mode 100644 tests/function/name/buildfile
 create mode 100644 tests/function/name/testscript

(limited to 'tests/function/name')

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
+}
-- 
cgit v1.1