aboutsummaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
Diffstat (limited to 'test')
-rw-r--r--test/cases/fill.bqn4
-rw-r--r--test/cases/header.bqn4
2 files changed, 7 insertions, 1 deletions
diff --git a/test/cases/fill.bqn b/test/cases/fill.bqn
index b03cb15d..dab7a65b 100644
--- a/test/cases/fill.bqn
+++ b/test/cases/fill.bqn
@@ -5,10 +5,12 @@
"ab" ≡○(0⊸↑) ↕2
# Functions that fill
-("abc"≍"de ") ≡ 2‿↑⥊"abcde"
"abc "≡5↑"abc"
" ab" ≡ »"abc"
"bc " ≡ «"abc"
+("abc"≍"de ") ≡ 2‿↑⥊"abcde"
+(1‿3⥊4‿0‿0) ≡ ↑‿3⥊4
+(4‿3⥊12↑<¨↕10)≡ ↑‿3⥊<¨↕10
# Box generates arbitrary fill elements
∧´ (2⊸↑ ≡ 1‿0⊸×)∘<¨ ⟨π, ↕3, "", 2+⌜○↕3, ≍˘⟨2‿1,↕4‿2⟩⟩
diff --git a/test/cases/header.bqn b/test/cases/header.bqn
index 1396b338..2b4713f4 100644
--- a/test/cases/header.bqn
+++ b/test/cases/header.bqn
@@ -130,3 +130,7 @@
2 % 4 3{4 3 _𝕣_ 2 1:𝕨÷𝕘}2 1
55 % 1‿1{𝕗_r 1:0⊑𝕗 ; 𝕗_r 2:1⊑𝕗 ; _r: +´ 𝕗_r¨ 𝕩-1‿2} 10
34 % 1‿1{𝕗_r_𝕘 1:0⊑𝕗 ; 𝕗_r_𝕘 2:1⊑𝕗 ; _r_: 𝔾´ 𝕊¨ 𝕩-1‿2}+ 9
+
+# Namespace destructuring
+2 % {b⇐3} ÷○{⟨a⟩:a+1; 𝕤,8} {a⇐3}
+6 % {⟨al⇐a⟩:al+1; 𝕊:0} {a⇐5}