(defun Test (ruleset testdata)
  (let ((results (abcd-stats (mapcar #'(lambda (x)
					 (cons (eg-class x) (MakePrediction ruleset x)))
				     (table-rows (xindex-table testdata)))
			     :verbose nil)))
    (setf results (remove-if-not #'(lambda (x) (or (equal (abcd-for x) 'True) (equal (abcd-for x) 'Yes))) results))
    (setf results (mapcar #'(lambda (x) (setf (abcd-for x) (table-name (xindex-table testdata))) x) results))
    results))
;	(TreeSize ruleset)))
(deftest test-test ()
  (check
    (samep (test (make-RDRule :fn (MakePredicate 1 'ADULT) :class 'NO) (cross-index (table-copy (titanic) (list (first (table-egs (titanic)))))))
	   "(#(ABCD :FOR NO :A 0 :B 0 :C 0 :D 1 :ACC 1.00 :PD 1.00 :PF .00 :PREC 1.00 :F .00 :BAL 1.00))")))