Aß
Size: a a a
Aß
A
AS
A
LL
a
sow
):** Summary...
** Examples
[...]
*** TEST-PASSED Sow into different targets
#+begin_src lisp :tangle no :load no :results value verbatim :wrap example lisp :package serere-tests
(reap ((:squares :cubes))
(loop :for i :from 1 :to 10
:sum (1+ (- (sow (expt i 3) :cubes)
(sow (expt i 2) :squares)))))
#+end_src
#+EXPECTED:
#+begin_example lisp
2650
(1 4 9 16 25 36 49 64 81 100)
(1 8 27 64 125 216 343 512 729 1000)
#+end_example
M-x run-nearest-test
, то в нормальной обстановке просто получу сообщение Test passed. В ненормальной будет что-то типа этого:**** TEST-FAILED Sow into different targets
#+begin_src lisp :tangle no :load no :results value verbatim :wrap example lisp :package serere-tests
(reap ((:squares :cubes))
(loop :for i :from 1 :to 10
:sum (1+ (- (sow (expt i 3) :cubes)
(sow (expt i 2) :squares)))))
#+end_src
#+RESULTS:
#+begin_example lisp
2650
#+end_example
#+EXPECTED:
#+begin_example lisp
2650
(1 4 9 16 25 36 49 64 81 100)
(1 8 27 64 125 216 343 512 729 1000)
#+end_example
*failed tests in <whatever>*
, прыгать из него по сломанным местам и чинить. Ну или не чинить, а коммитить так — будет явное описание того, что сломано, прямо в коде.A
AS
LL
A
A
A
LL
A
LL
A
LL
LL
A
LL