(deftest test-abcd ()
  (let* ((tmp (abcd-stats '((a . a) (a . a) (a . b) (a . c) (a . c)
                            (b . a) (b . a) (b . a) (b . b)
                            (c . b) (c . b) (c . a)) :verbose nil))
         (b   (second tmp)))
    (check
      (samep tmp "(
     #(ABCD :FOR A :A 3 :B 3 :C 4 :D 2 :ACC .42 
                :PD .40 :PF .57 :PREC .33 :F .47 :BAL .41)
     #(ABCD :FOR B :A 5 :B 3 :C 3 :D 1 :ACC .50 
                   :PD .25 :PF .38 :PREC .25 :F .30 :BAL .41)
     #(ABCD :FOR C :A 7 :B 3 :C 2 :D 0 :ACC .58 
                   :PD .00 :PF .22 :PREC .00 :F .00 :BAL .28))")
      (= (accuracy  b) (/ 6 12))
      (= (all       b) 12)
      (= (pd        b) (/ 1 4))
      (= (pf        b) (/ 3 8))
      (= (precision b) (/ 1 4))
      (= (f-measure b) (/ 3 10))
      (= (balance   b) 0.40707296)
      )))