anchor.diff:        (zoglog::process msg)
         (is (null (gethash "#channel2" zoglog::*users-list*))))))
   
  -
   ;;; Statistics calculation tests
   (def-suite stat-tests
       :description "Test suite for channel statistics")
  
positive.code:             (is (equal (getf user :nick) nick))
              (is (= (getf user :messages) 0))
              (is (= (getf user :share) 0))))))
  
negative.code: ;; Run all test suites
  (defun run-tests ()
    (run! 'irc-messages-tests)
    (run! 'stat-tests)
    (run! 'pagination-tests))
  
  ;;; Message parsing tests
  (def-suite irc-messages-tests
  