anchor.diff:    
     (funcall (find-symbol (string '#:do-tests) '#:rtest)))
   
  +(defmethod libtest ((library-name (eql :iterate)))
  +
  +  ;; The test framework used: rt.
  +  (clean-rt)
  +  (asdf:clear-system :iterate-tests)
  +  (asdf:clear-system :iterate)
  +
  +  (quicklisp:quickload :iterate-tests)
  +  
  +  (funcall (intern "DO-TESTS" (find-package #+sbcl "SB-RT"
  +                                            #-sbcl "REGRESSION-TEST"))))
  +
  +(defmethod libtest ((library-name (eql :metabang-bind)))
  +  
  +  ;; The test framework used: lift.
  +  
  +  ;; metabang-bind-test includes regular-expression
  +  ;; bindings and tests, which is only loaded if
  +  ;; cl-ppcre to be loaded first.
  +  (quicklisp:quickload :cl-ppcre)
  +  (quicklisp:quickload :metabang-bind-test)
  +
  +  (run-lift-tests :metabang-bind-test))
  +
   (defun run-libtest (lib)
     (let* ((orig-std-out *standard-output*)
            (buf (make-string-output-stream))
  
positive.code:   (funcall (intern (symbol-name '#:do-tests)
                     (find-package '#:cl-base64-tests))))
  
  (defmethod libtest ((library-name (eql :trivial-backtrace)))
    
    ;; The test framework used: lift.
    
    (quicklisp:quickload :trivial-backtrace-test)
    
    (let ((result 
           ;; copy/paste from trivial-backtrace.asd
           (funcall (intern (symbol-name '#:run-tests) :lift)
                    :suite :trivial-backtrace-test))
          (errors (intern (symbol-name '#:errors) :lift))
          (expected-errors (intern (symbol-name '#:expected-errors) :lift))
          (failures (intern (symbol-name '#:failures) :lift))
          (expected-failures (intern (symbol-name '#:expected-failures) :lift)))
      (describe result *standard-output*)
      (zerop
       (+ (length (set-difference (funcall errors result)
                                  (funcall expected-errors result)))
          (length (set-difference (funcall failures result)
                                  (funcall expected-failures result)))))))
  
  (defmethod libtest ((library-name (eql :puri)))
  
  
negative.code:     224 + parenscript
      221 - cl-who
      207 + trivial-garbage
      201 + iterate
      193 - cl-vectors
      190 - zpng
      177 - asdf-system-connections
      174 - zpb-ttf
      173 + uffi But the test suite is non trivial (for example, it defines asdf:compile-op 
                 for C files using make). Probably that's why quickisp does not
                 make the uffi-tests.asd availabel for ql:quickload. A study is needed about 
                 how to include this system, therefore I avoid it for now.
      173 + metabang-bind
    ------------------------ << I am here
      170 - split-sequence
      164 - vecto (there is a test.lisp, but it's not automated, intended for manual run and eye-testing of the resulting images)
      163 + cl-json
      162 + cl-containers
      161 + metatilities-base
      159 - fare-utils
      156 + weblocks (do these tests start hunchentoot? seems no, it creates mock objects for request, response, etc.)
      156 - fare-matcher (not test-op, but there is fare-matcher-test.asd with one test defined using stefil)
      148 - drakma
      144 + cl-cont
      143 - closure-common
      140 + moptilities
      138 - f-underscore
      137 + trivial-timeout
      136 + metatilities
      135 + clsql (big test suite, requires database server(s). Runs test on the 
                   DB servers you specified in the configiration. Therefore
                   we need to think how to represent results - we can't
                   just collect results under the same name "clsql", because 
                   different agents might have tested different servers).
      133 + cxml (but how to run it? seems like it requires some .xml 
                  files which are not in the repository, so it probably
                  is not fully automated).
  |#
  