(deftest test-prism ()
  (check
    (samep (prism 3 (contact-lens) :verbose nil)
           "(#(ABCD :FOR HARD :A 25 :B 0 :C 15 :D 8 
                    :ACC .69 :PD 1.00 :PF .38 :PREC .35 :F .55 :BAL .73)
            #(ABCD :FOR NONE :A 18 :B 28 :C 0 :D 2
                   :ACC .42 :PD .07 :PF .00 :PREC 1.00 :F .00 :BAL .34)
            #(ABCD :FOR SOFT :A 26 :B 1 :C 12 :D 9
                   :ACC .73 :PD .90 :PF .32 :PREC .43 :F .47 :BAL .77)
            #(ABCD :FOR ? :A 46 :B 0 :C 2 :D 0 
                   :ACC .96 :PD .00 :PF .04 :PREC .00 :F .00 :BAL .29))")))