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←{𝕊: @+0⌈(¯1+2⋆R∘≠⊸⊑7‿8‿15‿16‿20) - R˜R 200}
|
||||||
{𝕊:(GS@) ∊_t GS@}¨↕1000
|
{𝕊:(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 " update-messages Auto-update error messages in tests"
|
||||||
•Out " ignore-messages Don't warn about incorrect error messages"
|
•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 " 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
|
•Exit 0
|
||||||
}⍟⊢ (0=≠•args) ∨´ "help"‿"h"‿"?"∊'-'⊸≠⊸/¨•args
|
}⍟⊢ (0=≠•args) ∨´ "help"‿"h"‿"?"∊'-'⊸≠⊸/¨•args
|
||||||
|
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user