From 1c6096e53a906d7821a401d91b32ca02df3d715f Mon Sep 17 00:00:00 2001
From: Boris Kolpackov <boris@codesynthesis.com>
Date: Thu, 2 Nov 2023 10:18:50 +0200
Subject: Add $first()/$second() pair functions

---
 tests/function/builtin/testscript | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

(limited to 'tests')

diff --git a/tests/function/builtin/testscript b/tests/function/builtin/testscript
index 714a38d..88f802a 100644
--- a/tests/function/builtin/testscript
+++ b/tests/function/builtin/testscript
@@ -55,6 +55,31 @@
   $* <'print $empty([bool] false)' >'false'  : bool
 }
 
+: first-second
+:
+{
+  $* <'print $first(a@1)'     >'a'                            : first
+  $* <'print $second(a@1)'    >'1'                            : second
+
+  $* <'print $first(@1)'     >'{}'                            : first-empty
+  $* <'print $second(a@)'    >'{}'                            : second-empty
+
+  $* <'print $first(1)'     >'[null]'                         : first-null
+  $* <'print $second(a)'    >'[null]'                         : second-null
+
+  $* <'print $first(1, true)'     >'1'                        : first-all
+  $* <'print $second(a, true)'    >'a'                        : second-all
+
+  $* <'print $first(0 a@1 b@2 c@ 4)'     >'a b c'             : firsts
+  $* <'print $second(z a@1 b@2 @3 d)'    >'1 2 3'             : seconds
+
+  $* <'print $first(0 a@1 b@2 c@ 4, true)'     >'0 a b c 4'   : firsts-all
+  $* <'print $second(z a@1 b@2 @3 d, true)'    >'z 1 2 3 d'   : seconds-all
+
+  $* <'print $first([name_pair] a@1)'     >'a'                : first-typed
+  $* <'print $second([name_pair] a@1)'    >'1'                : second-typed
+}
+
 : identity
 :
 {
-- 
cgit v1.1