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
           ∧