<commit_before>;;; core-evilified-state-utest.el --- Spacemacs Unit Test File
;;
;; Copyright (c) 2012-2014 <NAME>
;; Copyright (c) 2014-2015 <NAME> & Contributors
;;
;; Author: <NAME> <<EMAIL>>
;; URL: https://github.com/syl20bnr/spacemacs
;;
;; This file is not part of GNU Emacs.
;;
;;; License: GPLv3
(require 'core-funcs)
(require 'core-configuration-layer)
(spacemacs/load-or-install-package 'evil)
(spacemacs/load-or-install-package 'evil-leader)

(require 'core-evilified-state)

;; ---------------------------------------------------------------------------
;; spacemacs//evilify-find-new-event
;; ---------------------------------------------------------------------------

(ert-deftest test-evilify-find-new-event--s-to-S ()
  (let ((input ?s))
    (should (equal ?S (spacemacs//evilify-find-new-event input)))))

(ert-deftest test-evilify-find-new-event--S-to-C-s ()
  (let ((input ?S))
    (should (equal ?\C-s (spacemacs//evilify-find-new-event input)))))

(ert-deftest test-evilify-find-new-event--C-s-to-C-S-s ()
  (let ((input ?\C-s)
        (output (+ (expt 2 25) ?\C-s)))
    (should (equal output (spacemacs//evilify-find-new-event input)))))

(ert-deftest test-evilify-find-new-event--C-S-s-error-return-nil ()
  (let ((input (+ (expt 2 25) ?\C-s)))
    (should (equal nil (spacemacs//evilify-find-new-event input)))))

(ert-deftest test-evilify-find-new-event--Space-error-return-nil ()
  (let ((input 32))
    (should (equal nil (spacemacs//evilify-find-new-event input)))))

(ert-deftest test-evilify-find-new-event--/-error-not-covered-for-now ()
  (let ((input ?/))
    (should (equal nil (spacemacs//evilify-find-new-event input)))))

(ert-deftest test-evilify-find-new-event--/-error-return-nil ()
  (let ((input ?:))
    (should (equal nil (spacemacs//evilify-find-new-event input)))))

;; ---------------------------------------------------------------------------<commit_msg>Fix core tests<commit_after>;;; core-evilified-state-utest.el --- Spacemacs Unit Test File
;;
;; Copyright (c) 2012-2014 <NAME>
;; Copyright (c) 2014-2015 <NAME> & Contributors
;;
;; Author: <NAME> <<EMAIL>>
;; URL: https://github.com/syl20bnr/spacemacs
;;
;; This file is not part of GNU Emacs.
;;
;;; License: GPLv3
(require 'core-funcs)
(require 'core-configuration-layer)
(spacemacs/load-or-install-package 'evil)
(spacemacs/load-or-install-package 'evil-leader)

(require 'core-evilified-state)

;; ---------------------------------------------------------------------------
;; spacemacs//evilify-find-new-event
;; ---------------------------------------------------------------------------

(ert-deftest test-evilify-find-new-event--s-to-S ()
  (let ((input ?s))
    (should (equal ?S (spacemacs//evilify-find-new-event input)))))

(ert-deftest test-evilify-find-new-event--S-to-C-s ()
  (let ((input ?S))
    (should (equal ?\C-s (spacemacs//evilify-find-new-event input)))))

(ert-deftest test-evilify-find-new-event--C-s-to-C-S-s ()
  (let ((input ?\C-s)
        (output (+ (expt 2 25) ?\C-s)))
    (should (equal output (spacemacs//evilify-find-new-event input)))))

(ert-deftest test-evilify-find-new-event--C-S-s-error-return-nil ()
  (let ((input (+ (expt 2 25) ?\C-s)))
    (should (equal nil (spacemacs//evilify-find-new-event input)))))

(ert-deftest test-evilify-find-new-event--Space-remap ()
  (let ((input 32))
    (should (equal ?' (spacemacs//evilify-find-new-event input)))))

(ert-deftest test-evilify-find-new-event--/-remap ()
  (let ((input ?/))
    (should (equal ?\\ (spacemacs//evilify-find-new-event input)))))

(ert-deftest test-evilify-find-new-event--:-remap ()
  (let ((input ?:))
    (should (equal ?| (spacemacs//evilify-find-new-event input)))))

;; ---------------------------------------------------------------------------
{'fraction_non_alphanumeric': 0.30910055717697, 'fraction_numerical': 0.01432740780047758, 'mean_word_length': 2.2277397260273974, 'pattern_counts': {'":': 0, '<': 13, '<?xml version=': 0, '>': 13, 'https://': 2, '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': '5887672', 'n_tokens_mistral': 1422, 'n_tokens_neox': 1330, 'n_words': 233}