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/builtin/testscript |  7 ++-----
 tests/function/name/buildfile     |  4 ++++
 tests/function/name/testscript    | 18 ++++++++++++++++++
 3 files changed, 24 insertions(+), 5 deletions(-)
 create mode 100644 tests/function/name/buildfile
 create mode 100644 tests/function/name/testscript

(limited to 'tests')

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