Generate the Java field that keeps track of failures in the test Java class.
(atj-gen-test-failures-field) → field
This is a private static boolean field that is initially false, and gets set if and when any test fails (see below).
This is generated only if the
Function:
(defun atj-gen-test-failures-field nil (declare (xargs :guard t)) (let ((__function__ 'atj-gen-test-failures-field)) (declare (ignorable __function__)) (make-jfield :access (jaccess-private) :static? t :final? nil :transient? nil :volatile? nil :type (jtype-boolean) :name "failures" :init? (jexpr-literal-false))))
Theorem:
(defthm jfieldp-of-atj-gen-test-failures-field (b* ((field (atj-gen-test-failures-field))) (jfieldp field)) :rule-classes :rewrite)