(defun Oracle (rule data)
  (if (equal (RDRule-prediction rule) (eg-class data))
      t
      nil))

(deftest test-Oracle ()
  (check
    (Oracle (AddRule (first (table-rows (weather))) nil nil (list 0 1 2 3)) (first (table-rows (weather))))))