diff --git a/test/cases/system.bqn b/test/cases/system.bqn index 99983395..77321e73 100644 --- a/test/cases/system.bqn +++ b/test/cases/system.bqn @@ -61,6 +61,7 @@ f←•ReBQN{primitives⇐⋈'÷'‿- ⋄ system⇐⟨"foo"‿⋈, "oldbqn"‿ !"•ReBQN: No system value ""baz"" to inherit" % •ReBQN{system⇐⟨"foo"‿"bar", "bqn", "baz", "rebqn"⟩} !"•ReBQN: No system value ""bqn"" to inherit" % f←•ReBQN{system⇐⟨"baz"‿1, "rebqn", "foo"‿2⟩} ⋄ g←F"•ReBQN" ⋄ G {system⇐⟨"foo"‿"bar", "baz", "bqn", "rebqn"⟩} f←•ReBQN{primitives⇐⋈'÷'‿- ⋄ system⇐⟨"primitives", "foo"‿⋈, "bqn", "listsys"⟩} ⋄ F"•primitives‿•listsys" %% ⟨⟨'÷'‿-⟩ ⋄ ⟨"primitives","foo","bqn","listsys"⟩⟩ +f←•ReBQN{system⇐⟨"e1"⋈↕0, "e2"⋈"", "e3"⋈0⥊<"hi"⟩ ⋄ primitives⇐⟨'+',(<"")⊸∾⟩‿⟨'-',(<↕0)⊸∾⟩} ⋄ (⊑1↑⊢)¨ F "+-•e2‿•e1‿•e3" %% ⟨' ', 0, ' ', 0, " "⟩ # TODO test stacktrace of {𝕏"!0"}•ReBQN{⇐}