Generate the test Java file.
(atj-gen-test-file deep$ guards$ no-aij-types$ java-package$ java-class$ output-file-test$ tests$ verbose$ pkg-class-names fn-method-names state) → state
Function:
(defun atj-gen-test-file (deep$ guards$ no-aij-types$ java-package$ java-class$ output-file-test$ tests$ verbose$ pkg-class-names fn-method-names state) (declare (xargs :stobjs (state))) (declare (xargs :guard (and (booleanp deep$) (booleanp guards$) (booleanp no-aij-types$) (maybe-stringp java-package$) (stringp java-class$) (stringp output-file-test$) (atj-test-listp tests$) (booleanp verbose$) (string-string-alistp pkg-class-names) (symbol-string-alistp fn-method-names)))) (let ((__function__ 'atj-gen-test-file)) (declare (ignorable __function__)) (b* ((cunit (atj-gen-test-cunit deep$ guards$ no-aij-types$ java-package$ java-class$ tests$ verbose$ pkg-class-names fn-method-names (w state))) ((unless (jcunitp cunit)) (raise "Internal error: generated an invalid compilation unit.") state) ((run-when verbose$) (cw "~%Generate the test Java file.~%"))) (print-to-jfile (print-jcunit cunit) output-file-test$ state))))