diff --git a/test/cases/under.bqn b/test/cases/under.bqn index 4c78a99f..46e1cef4 100644 --- a/test/cases/under.bqn +++ b/test/cases/under.bqn @@ -127,6 +127,7 @@ n←500 ⋄ a←↕n ⋄ i←(-n)+↕2×n ⋄ r←⌽(2×n)⥊a ⋄ ! (⌽a) ≡ %USE eqvar ⋄ 2‿3‿2‿1 {0¨⌾(𝕨⊸⊏) 𝕩}_eqvar 2≠↕10 %% 1‿0‿0‿0‿1‿1‿1‿1‿1‿1 %USE eqvar ⋄ 2‿3‿2‿1 {!˙¨⌾(𝕨⊸⊏) 𝕩}_eqvar 2≠↕10 %% 1‿!‿!‿!‿1‿1‿1‿1‿1‿1 %USE eqvar ⋄ [1‿2,3‿1,1‿8] {99¨⌾(𝕨⊸⊏) 𝕩}_eqvar ↕10 %% 0‿99‿99‿99‿4‿5‿6‿7‿99‿9 +%USE eqvar ⋄ 2‿3‿2‿1 {'?'¨⌾(𝕨⊸⊏) 𝕩}_eqvar "abcdefgh"+⌜↕3 %% ["abc","???","???","???","efg","fgh","ghi","hij"] %USE eqvar ⋄ 2‿3‿2‿1 {'?'¨⌾(𝕨⊸⊏) 𝕩}_eqvar "abcdefgh" %% "a???efgh" %USE eqvar ⋄ 2‿3‿2‿1 {'𝕨'¨⌾(𝕨⊸⊏) 𝕩}_eqvar "abcdefgh" %% "a𝕨𝕨𝕨efgh"