contrib/sb-cover/test-data-branching-forms.lisp

   1 (in-package sb-cover-test)
   2
   3 ;; Total of 13 forms have coverage data (the defun plus 12 subforms)
   4 (defun test-branching-forms ()
   5   ;; The tests forms here need to be a cons to have coverage data
   6   ;; instrumentation, but the progn-like clauses should allow for coverage
   7   ;; data instrumentation if non-empty, even if they contain a single
   8   ;; atom.
   9
  10   ;; This should have coverage data for 4 forms (when, progn, t, and :foo)
  11   (when (progn t)
  12     :foo)
  13
  14   ;; This should have coverage data for 4 forms (unless, progn, nil, and :foo)
  15   (unless (progn nil)
  16     :foo)
  17
  18   ;; This should have coverage data for 4 forms (cond, progn, t, and :foo)
  19   (cond
  20     ((progn t) :foo)))