add no-catch option to test/run.bqn
This commit is contained in:
parent
0319be27ea
commit
d8a79145a6
10
test/run.bqn
10
test/run.bqn
@ -11,6 +11,7 @@ Trim ← {((∨`⌾⌽∧∨`)𝕩≠' ')/𝕩}
|
|||||||
•Out " noerr Disable erroring tests (ones expected to, or which contain ⎊)"
|
•Out " noerr Disable erroring tests (ones expected to, or which contain ⎊)"
|
||||||
•Out " heapverify Disable tests that aren't runnable in heapverify"
|
•Out " heapverify Disable tests that aren't runnable in heapverify"
|
||||||
•Out " debug Disable tests that aren't runnable in debug"
|
•Out " debug Disable tests that aren't runnable in debug"
|
||||||
|
•Out " no-catch Disable catching errors in tests not expected to error"
|
||||||
•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"
|
||||||
@ -35,7 +36,7 @@ o ← {
|
|||||||
search ↩ search∾1
|
search ↩ search∾1
|
||||||
args ↩ (¬n∨𝕩)/args
|
args ↩ (¬n∨𝕩)/args
|
||||||
}⍟(∨´) "bin-search"⊸≡¨ args
|
}⍟(∨´) "bin-search"⊸≡¨ args
|
||||||
named ← "run"‿"lint"‿"update-messages"‿"slow"‿"ignore-messages"‿"noerr"‿"heapverify"‿"debug"
|
named ← "run"‿"lint"‿"update-messages"‿"slow"‿"ignore-messages"‿"noerr"‿"heapverify"‿"debug"‿"no-catch"
|
||||||
i ← named⊐args
|
i ← named⊐args
|
||||||
run ⇐ ∨´i=0
|
run ⇐ ∨´i=0
|
||||||
lint ⇐ ∨´i=1
|
lint ⇐ ∨´i=1
|
||||||
@ -45,11 +46,14 @@ o ← {
|
|||||||
noerr ⇐ ∨´i=5
|
noerr ⇐ ∨´i=5
|
||||||
heapverify ⇐ ∨´i=6
|
heapverify ⇐ ∨´i=6
|
||||||
debug ⇐ ∨´i=7
|
debug ⇐ ∨´i=7
|
||||||
|
noCatch ⇐ ∨´i=8
|
||||||
noerr∨↩ heapverify
|
noerr∨↩ heapverify
|
||||||
files ⇐ (i=≠named)/args
|
files ⇐ (i=≠named)/args
|
||||||
run ↩ update ∨ ¬∨´lint‿update
|
run ↩ update ∨ ¬∨´lint‿update
|
||||||
}
|
}
|
||||||
|
|
||||||
|
_catch_ ← {o.noCatch? 𝔽; 𝔽⎊𝔾}
|
||||||
|
|
||||||
searchRefine ← {
|
searchRefine ← {
|
||||||
searchI ← 0
|
searchI ← 0
|
||||||
{
|
{
|
||||||
@ -145,7 +149,7 @@ Run ← { 𝕊 testname:
|
|||||||
results ← {
|
results ← {
|
||||||
"eval"‿str: {
|
"eval"‿str: {
|
||||||
o.noerr? ⊑'⎊'∊str? skipped+↩1;
|
o.noerr? ⊑'⎊'∊str? skipped+↩1;
|
||||||
Eval⎊{𝕊: Bad "Expected success, got error: "∾ErrMsg@} str
|
Eval _catch_ {𝕊: Bad "Expected success, got error: "∾ErrMsg@} str
|
||||||
@
|
@
|
||||||
};
|
};
|
||||||
"error"‿str‿exp: {
|
"error"‿str‿exp: {
|
||||||
@ -162,7 +166,7 @@ Run ← { 𝕊 testname:
|
|||||||
};
|
};
|
||||||
"equal"‿str‿exp: {
|
"equal"‿str‿exp: {
|
||||||
o.noerr? ⊑'⎊'∊str? skipped+↩1;
|
o.noerr? ⊑'⎊'∊str? skipped+↩1;
|
||||||
ok‿got ← (1⋈Eval)⎊(0⋈ErrMsg) str
|
ok‿got ← (1⋈Eval)_catch_(0⋈ErrMsg) str
|
||||||
exp ↩ EvalS exp
|
exp ↩ EvalS exp
|
||||||
{
|
{
|
||||||
¬ok? Bad "Expected value, but got error: "∾got;
|
¬ok? Bad "Expected value, but got error: "∾got;
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user