From 56a6a08b9748aae6fd53220d525af790f3539ca2 Mon Sep 17 00:00:00 2001 From: dzaima Date: Mon, 11 Dec 2023 13:45:17 +0200 Subject: [PATCH] import tests --- test/cases/imports.bqn | 20 ++++++++++++++++++++ test/imports/cyclic.bqn | 1 + test/imports/cyclic_A.bqn | 1 + test/imports/cyclic_B.bqn | 1 + test/imports/notCyclic.bqn | 1 + test/imports/show.bqn | 1 + test/run.bqn | 2 +- 7 files changed, 26 insertions(+), 1 deletion(-) create mode 100644 test/cases/imports.bqn create mode 100644 test/imports/cyclic.bqn create mode 100644 test/imports/cyclic_A.bqn create mode 100644 test/imports/cyclic_B.bqn create mode 100644 test/imports/notCyclic.bqn create mode 100644 test/imports/show.bqn diff --git a/test/cases/imports.bqn b/test/cases/imports.bqn new file mode 100644 index 00000000..fea77a85 --- /dev/null +++ b/test/cases/imports.bqn @@ -0,0 +1,20 @@ +%DEF file ( + path0 ← •path•file.At"../imports/" + File ← {path0 •file.At 𝕩} + CleanPath ← ! {r←•file.RealPath path0 ⋄ ≠i←/r ⍷ 𝕩? (⋈⁼i)(↑∾"..."∾(≠r)⊸+⊸↓)𝕩; 𝕩}∘•CurrentError∘@ +) +( + %USE file + i1 ← •Import File "show.bqn" ⋄ ! "show.bqn"‿⟨⟩ ≡ 1↓i1 + i2 ← •Import File "show.bqn" ⋄ ! "show.bqn"‿⟨⟩ ≡ 1↓i2 + ! i1 ≡ i2 +) + +!"•Import: cyclic import of "".../cyclic.bqn""" % %USE file ⋄ •Import⎊CleanPath File "cyclic.bqn" +!"•Import: cyclic import of "".../cyclic.bqn""" % %USE file ⋄ •Import⎊CleanPath File "cyclic.bqn" +!"•Import: cyclic import of "".../cyclic.bqn""" % %USE file ⋄ ⟨⟩•Import⎊CleanPath File "cyclic.bqn" +!"•Import: cyclic import of "".../cyclic_A.bqn""" % %USE file ⋄ •Import⎊CleanPath File "cyclic_A.bqn" +!"•Import: cyclic import of "".../cyclic_B.bqn""" % %USE file ⋄ •Import⎊CleanPath File "cyclic_B.bqn" +!"•Import: cyclic import of "".../cyclic_A.bqn""" % %USE file ⋄ ⟨⟩•Import⎊CleanPath File "cyclic_B.bqn" +!"•Import: cyclic import of "".../cyclic_B.bqn""" % %USE file ⋄ ⟨⟩•Import⎊CleanPath File "cyclic_A.bqn" +%USE file ⋄ 3 •Import File "notCyclic.bqn" %% 30 \ No newline at end of file diff --git a/test/imports/cyclic.bqn b/test/imports/cyclic.bqn new file mode 100644 index 00000000..9213eaa6 --- /dev/null +++ b/test/imports/cyclic.bqn @@ -0,0 +1 @@ +•Import"cyclic.bqn" \ No newline at end of file diff --git a/test/imports/cyclic_A.bqn b/test/imports/cyclic_A.bqn new file mode 100644 index 00000000..1edcf547 --- /dev/null +++ b/test/imports/cyclic_A.bqn @@ -0,0 +1 @@ +•Import"cyclic_B.bqn" \ No newline at end of file diff --git a/test/imports/cyclic_B.bqn b/test/imports/cyclic_B.bqn new file mode 100644 index 00000000..2fa76bc6 --- /dev/null +++ b/test/imports/cyclic_B.bqn @@ -0,0 +1 @@ +•Import"cyclic_A.bqn" \ No newline at end of file diff --git a/test/imports/notCyclic.bqn b/test/imports/notCyclic.bqn new file mode 100644 index 00000000..33ecc450 --- /dev/null +++ b/test/imports/notCyclic.bqn @@ -0,0 +1 @@ +{•args≡0? 0; 10+(•args-1) •Import "notCyclic.bqn"} \ No newline at end of file diff --git a/test/imports/show.bqn b/test/imports/show.bqn new file mode 100644 index 00000000..aa1c5e74 --- /dev/null +++ b/test/imports/show.bqn @@ -0,0 +1 @@ +⟨{⇐}, "show.bqn", •args⟩ diff --git a/test/run.bqn b/test/run.bqn index 65c6cf64..7c863925 100644 --- a/test/run.bqn +++ b/test/run.bqn @@ -167,7 +167,7 @@ Run ← { 𝕊 testname: { ¬ok? Bad "Expected value, but got error: "∾got; got •internal.EEqual exp? @; - ⟨"Expected: "∾•Repr exp ⋄ "Got: "∾•Repr got⟩ Bad "Wrong value" + ⟨"Expected: "∾•Repr exp ⋄ "Got: "∾•Repr⎊•Show got⟩ Bad "Wrong value" @ } @