<commit_before>(defpackage #:lispkit-test
  (:use :cl :lispkit))

(in-package #:lispkit-test)


;; If the debugger is fired, it means something went wrong.
(setf fiveam:*debug-on-error* t
      fiveam:*debug-on-failure* t)
(setf *debugger-hook*
      (lambda (c h)
	(declare (ignore c h))
	(uiop:quit -1)))

(5am:def-suite main)
(5am:def-suite commands)
(5am:def-suite events)
(5am:def-suite jumps)
(5am:def-suite keys)

(defmethod asdf:perform ((op asdf:test-op) (system (eql (asdf:find-system :lispkit-test))))
  (5am:run! 'main)
  (5am:run! 'commands)
  (5am:run! 'events)
  (5am:run! 'jumps)
  (5am:run! 'keys))
<commit_msg>Removes unneeded code for tests<commit_after>(defpackage #:lispkit-test
  (:use :cl :lispkit))

(in-package #:lispkit-test)


(5am:def-suite main)
(5am:def-suite commands)
(5am:def-suite events)
(5am:def-suite jumps)
(5am:def-suite keys)

(defmethod asdf:perform ((op asdf:test-op) (system (eql (asdf:find-system :lispkit-test))))
  (5am:run! 'main)
  (5am:run! 'commands)
  (5am:run! 'events)
  (5am:run! 'jumps)
  (5am:run! 'keys))

{'fraction_non_alphanumeric': 0.1873822975517891, 'fraction_numerical': 0.01977401129943503, 'mean_word_length': 4.97191011235955, 'pattern_counts': {'":': 0, '<': 3, '<?xml version=': 0, '>': 3, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '2059977', 'n_tokens_mistral': 470, 'n_tokens_neox': 460, 'n_words': 100}