|
Assertions | Index << >> |
assert←{⍺←'assertion failure' ⋄ 0∊⍵:⍺ ⎕signal 8 ⋄ shy←0}
tassert ← {
assert (1≤≢⍵)∧1=⍴⍴⍵ : ⍝ non-empty vector
assert (⊃=⊢)≢¨⍵ : ⍝ equal tally in each item
assert 2=≡⍵ : ⍝ nested array with simple items
1
}
tassert T
1
tassert X
assertion failure
tassert[1] assert(1≤≢⍵)∧1=⍴⍴⍵: ⍝ non-empty vector
∧
|