From: Sergey Matveev <stargrave@stargrave.org>
Date: Wed, 18 Jun 2025 15:14:33 +0000 (+0300)
Subject: More int-indexed TAKE tests
X-Git-Url: http://www.git.cypherpunks.su/?a=commitdiff_plain;h=db7a4ac4cbd321c5aa35dc1bcf95de67979516ea3e88d866714bb2caee427f92;p=keks.git

More int-indexed TAKE tests
---

diff --git a/tcl/schema.t/generic.t b/tcl/schema.t/generic.t
index 257fff5..a599117 100755
--- a/tcl/schema.t/generic.t
+++ b/tcl/schema.t/generic.t
@@ -132,6 +132,30 @@ test_expect_success "list of int schema" "$SCHEMA_VALIDATE schema.keks e <data.k
 
 ########################################################################
 
+cat >schema.tcl <<EOF
+int {{field . {int} >100}}
+str {{field . {str}}}
+e {
+    {field . {list} len=2}
+    {field 0 {with int}}
+    {field 1 {with str}}
+}
+EOF
+$root/schema.tcl schema.tcl | xxd -r -p >schema.keks
+$root/keks.tcl >data.keks.hex <<EOF
+LIST {{INT 123} {STR foo}}
+EOF
+xxd -r -p <data.keks.hex >data.keks
+test_expect_success "list take ok" "$SCHEMA_VALIDATE schema.keks e <data.keks"
+
+$root/keks.tcl >data.keks.hex <<EOF
+LIST {{INT 50} {STR foo}}
+EOF
+xxd -r -p <data.keks.hex >data.keks
+test_expect_success "list take bad range" "! $SCHEMA_VALIDATE schema.keks e <data.keks"
+
+########################################################################
+
 cat >schema.tcl <<EOF
 v {{field . {int}}}
 e {{field . {with v}}}