Function: make-ert--stats--cmacro

make-ert--stats--cmacro is a function defined in ert.el.gz.

Signature

(make-ert--stats--cmacro CL-WHOLE &cl-quote &key SELECTOR TESTS TEST-MAP TEST-RESULTS TEST-START-TIMES TEST-END-TIMES PASSED-EXPECTED PASSED-UNEXPECTED FAILED-EXPECTED FAILED-UNEXPECTED SKIPPED START-TIME END-TIME ABORTED-P CURRENT-TEST NEXT-REDISPLAY)

Documentation

compiler-macro for make-ert--stats.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/ert.el.gz
;; Could not find source code, showing raw function object.
#[(cl-whole &rest --cl-rest--)
  ((let*
       ((selector
	 (car
	  (cdr
	   (or (plist-member --cl-rest-- ':selector)
	       '(nil (cl-assert nil))))))
	(tests
	 (car
	  (cdr
	   (or (plist-member --cl-rest-- ':tests)
	       '(nil (cl-assert nil))))))
	(test-map
	 (car
	  (cdr
	   (or (plist-member --cl-rest-- ':test-map)
	       '(nil (cl-assert nil))))))
	(test-results
	 (car
	  (cdr
	   (or (plist-member --cl-rest-- ':test-results)
	       '(nil (cl-assert nil))))))
	(test-start-times
	 (car
	  (cdr
	   (or (plist-member --cl-rest-- ':test-start-times)
	       '(nil (cl-assert nil))))))
	(test-end-times
	 (car
	  (cdr
	   (or (plist-member --cl-rest-- ':test-end-times)
	       '(nil (cl-assert nil))))))
	(passed-expected
	 (car
	  (cdr
	   (or (plist-member --cl-rest-- ':passed-expected) '(nil 0)))))
	(passed-unexpected
	 (car
	  (cdr
	   (or (plist-member --cl-rest-- ':passed-unexpected) '(nil 0)))))
	(failed-expected
	 (car
	  (cdr
	   (or (plist-member --cl-rest-- ':failed-expected) '(nil 0)))))
	(failed-unexpected
	 (car
	  (cdr
	   (or (plist-member --cl-rest-- ':failed-unexpected) '(nil 0)))))
	(skipped
	 (car (cdr (or (plist-member --cl-rest-- ':skipped) '(nil 0)))))
	(start-time
	 (car (cdr (plist-member --cl-rest-- ':start-time))))
	(end-time (car (cdr (plist-member --cl-rest-- ':end-time))))
	(aborted-p (car (cdr (plist-member --cl-rest-- ':aborted-p))))
	(current-test
	 (car (cdr (plist-member --cl-rest-- ':current-test))))
	(next-redisplay
	 (car
	  (cdr
	   (or (plist-member --cl-rest-- ':next-redisplay) '(nil 0.0))))))
     (progn
       (let ((--cl-keys-- --cl-rest--))
	 (while --cl-keys--
	   (cond
	    ((memq (car --cl-keys--)
		   '(:selector :tests :test-map :test-results
			       :test-start-times :test-end-times
			       :passed-expected :passed-unexpected
			       :failed-expected :failed-unexpected
			       :skipped :start-time :end-time
			       :aborted-p :current-test
			       :next-redisplay :allow-other-keys))
	     (unless (cdr --cl-keys--)
	       (error "Missing argument for %s" (car --cl-keys--)))
	     (setq --cl-keys-- (cdr (cdr --cl-keys--))))
	    ((car (cdr (memq ':allow-other-keys --cl-rest--)))
	     (setq --cl-keys-- nil))
	    (t
	     (error
	      "Keyword argument %s not one of (:selector :tests :test-map :test-results :test-start-times :test-end-times :passed-expected :passed-unexpected :failed-expected :failed-unexpected :skipped :start-time :end-time :aborted-p :current-test :next-redisplay)"
	      (car --cl-keys--))))))
       (cl-block make-ert--stats--cmacro
	 (cl--defsubst-expand
	  '(selector tests test-map test-results test-start-times
		     test-end-times passed-expected passed-unexpected
		     failed-expected failed-unexpected skipped
		     start-time end-time aborted-p current-test
		     next-redisplay)
	  '(cl-block make-ert--stats
	     (record 'ert--stats selector tests test-map test-results
		     test-start-times test-end-times passed-expected
		     passed-unexpected failed-expected
		     failed-unexpected skipped start-time end-time
		     aborted-p current-test next-redisplay))
	  nil cl-whole nil selector tests test-map test-results
	  test-start-times test-end-times passed-expected
	  passed-unexpected failed-expected failed-unexpected skipped
	  start-time end-time aborted-p current-test next-redisplay)))))
  (t) nil
  "compiler-macro for `make-ert--stats'.\n\n(fn CL-WHOLE &cl-quote &key SELECTOR TESTS TEST-MAP TEST-RESULTS TEST-START-TIMES TEST-END-TIMES PASSED-EXPECTED PASSED-UNEXPECTED FAILED-EXPECTED FAILED-UNEXPECTED SKIPPED START-TIME END-TIME ABORTED-P CURRENT-TEST NEXT-REDISPLAY)"]