external/lift.darcs/_darcs/pristine/dev/lift-randomized.lisp

   1 (in-package #:lift)
   2
   3 ;;; ---------------------------------------------------------------------------
   4 ;;; randomized testing helpers
   5 ;;; ---------------------------------------------------------------------------
   6
   7 (u:export-exported-symbols "VARIATES" "LIFT")
   8
   9 ;;; ---------------------------------------------------------------------------
  10
  11 (defclass randomized-testsuite-mixin (test-mixin)
  12   ((generator
  13     :reader generator)
  14    (shuffle-methods?
  15     :initform t
  16     :initarg :shuffle-methods?
  17     :reader shuffle-methods?)))
  18
  19 ;;; ---------------------------------------------------------------------------
  20
  21 (defmethod testsuite-methods :around ((case randomized-testsuite-mixin))
  22   (let ((methods (call-next-method)))
  23     (if (shuffle-methods? case)
  24       (variates:shuffle-elements! (copy-list methods) :generator (generator case))
  25       methods)))
  26
  27 ;;; ---------------------------------------------------------------------------
  28 ;;; single-setup testing
  29 ;;; ---------------------------------------------------------------------------
  30
  31 (defclass single-setup-mixin (test-mixin)
  32   ((single-setup?
  33     :initform nil
  34     :initargs :single-setup?
  35     :reader single-setup?)))
  36
  37 ;;; ---------------------------------------------------------------------------
  38
  39 (defmethod initialize-instance :after ((object single-setup-mixin) &key)
  40   ;; no shuffling of single setup tests
  41   (when (slot-exists-p object 'shuffle-methods?)
  42     (setf (slot-value object 'shuffle-methods?) nil)))
  43
  44
  45