diff --git a/test/cases/fuzz/join.bqn b/test/cases/fuzz/join.bqn new file mode 100644 index 00000000..b5f333d8 --- /dev/null +++ b/test/cases/fuzz/join.bqn @@ -0,0 +1,4 @@ +( + # ∾𝕩 not getting garbage + ≠{𝕊: ! ∧´1=⥊∾⎊1 ⥊⟜1¨ (4•rand.Range 3) •rand.Range¨ 4}¨↕10000 +) diff --git a/test/cases/fuzz.bqn b/test/cases/fuzz/member-of.bqn similarity index 50% rename from test/cases/fuzz.bqn rename to test/cases/fuzz/member-of.bqn index a25675f0..62f0b2ee 100644 --- a/test/cases/fuzz.bqn +++ b/test/cases/fuzz/member-of.bqn @@ -6,19 +6,3 @@ GS←{𝕊: @+0⌈(¯1+2⋆R∘≠⊸⊑7‿8‿15‿16‿20) - R˜R 200} {𝕊:(GS@) ∊_t GS@}¨↕1000 ) - -( - # ∾𝕩 not getting garbage - ≠{𝕊: ! ∧´1=⥊∾⎊1 ⥊⟜1¨ (4•rand.Range 3) •rand.Range¨ 4}¨↕10000 -) - -( - # bitarr »˘ / «˘ - _test ← {𝔽_𝕣𝕩: - a←(1+2•rand.Range 100)•rand.Range 2 - v←•rand.Range 2 - v‿a ! (v 𝔽○•internal.Keep˘ a) ≡ v 𝔽˘ a - } - » _test¨ ↕10000 - « _test¨ ↕10000 -) diff --git a/test/cases/fuzz/shift.bqn b/test/cases/fuzz/shift.bqn new file mode 100644 index 00000000..59f6dd34 --- /dev/null +++ b/test/cases/fuzz/shift.bqn @@ -0,0 +1,10 @@ +( + # bitarr »˘ / «˘ + _test ← {𝔽_𝕣𝕩: + a←(1+2•rand.Range 100)•rand.Range 2 + v←•rand.Range 2 + v‿a ! (v 𝔽○•internal.Keep˘ a) ≡ v 𝔽˘ a + } + » _test¨ ↕10000 + « _test¨ ↕10000 +) diff --git a/test/run.bqn b/test/run.bqn index 07fba509..ba14b32d 100644 --- a/test/run.bqn +++ b/test/run.bqn @@ -15,14 +15,6 @@ Trim ← {((∨`⌾⌽∧∨`)𝕩≠' ')/𝕩} •Out " update-messages Auto-update error messages in tests" •Out " ignore-messages Don't warn about incorrect error messages" •Out " bin-search Binary search for some property. Next argument should be /[01]*/, with a 1 appended every time the property is matched, and a 0 otherwise" - •Out "Files:" - •Out " General:" - •Out " prims cells syntax system fills hash patterns under" - •Out " More special:" - •Out " fuzz perf" - •Out " For specific configurations:" - •Out " test_range // -DTEST_RANGE" - •Out "Lint all: test/run.bqn lint prims cells syntax system fills hash patterns under fuzz perf ffi test_range" •Exit 0 }⍟⊢ (0=≠•args) ∨´ "help"‿"h"‿"?"∊'-'⊸≠⊸/¨•args