src/mao/mao-tests.lisp

   1 (in-package :lol-test)
   2
   3 (defsuite :mao)
   4 (in-suite :mao)
   5
   6 (defdescription test-empty-description ())
   7
   8 (defdescription property-speed-test ()
   9   ((attribute :value t)))
  10
  11 (defdescription property-speed-test ()
  12   ((attribute :value t))
  13   (:in-description test-empty-description))
  14
  15 (defdescription property-speed-test-many-attributes ()
  16   ((attribute :value t)
  17    (attribute2 :value t)
  18    (attribute3 :value t)
  19    (attribute4 :value t)
  20    (attribute5 :value t)
  21    (attribute6 :value t)
  22    (attribute7 :value t)
  23    (attribute8 :value t)
  24    (attribute9 :value t)
  25    (attributea :value t)
  26    (attributeb :value t)
  27    (attributec :value t)
  28    (attributed :value t)
  29    (attributee :value t)
  30    (attributef :value t)
  31    (attributeg :value t)
  32    (attributeh :value t)
  33    (attributei :value t)
  34    (attributej :value t)
  35    (attributek :value t)
  36    (attributel :value t)
  37    (attributem :value t)
  38    (attributen :value t)
  39    (attributeo :value t)
  40    )
  41   )
  42
  43
  44
  45
  46 (defun attribute-property-speed-test (n &optional (description 'property-speed-test) (attribute 'attribute))
  47   (with-described-object (nil (find-description description))
  48     (let ((attribute (find-attribute (current-description) 'attributeo)))
  49
  50       (loop repeat n do (attribute-value attribute)))))
  51