separate fuzz test files
also remove out-of-date stuff from test/run.bqn help
This commit is contained in:
parent
bc81b26a03
commit
315ab8563a
4
test/cases/fuzz/join.bqn
Normal file
4
test/cases/fuzz/join.bqn
Normal file
@ -0,0 +1,4 @@
|
||||
(
|
||||
# ∾𝕩 not getting garbage
|
||||
≠{𝕊: ! ∧´1=⥊∾⎊1 ⥊⟜1¨ (4•rand.Range 3) •rand.Range¨ 4}¨↕10000
|
||||
)
|
||||
@ -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
|
||||
)
|
||||
10
test/cases/fuzz/shift.bqn
Normal file
10
test/cases/fuzz/shift.bqn
Normal file
@ -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
|
||||
)
|
||||
@ -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
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user