6d0aa5eb |
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 | |