This repository has been archived on 2024-10-22. You can view files and clone it, but cannot push or open issues or pull requests.
spacemacs/tests/core/core-spacemacs-buffer-ftest.el

122 lines
7.8 KiB
EmacsLisp
Raw Normal View History

;;; core-spacemacs-buffer-ftest.el --- Spacemacs Unit Test File
;;
;; Copyright (c) 2012-2016 Sylvain Benner & Contributors
;;
;; Author: Sylvain Benner <sylvain.benner@gmail.com>
;; URL: https://github.com/syl20bnr/spacemacs
;;
;; This file is not part of GNU Emacs.
;;
(require 'core-spacemacs-buffer)
(setq-default fill-column 80)
;; ---------------------------------------------------------------------------
;; spacemacs//render-framed-text
;; ---------------------------------------------------------------------------
(defvar test-text
"Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua.")
(ert-deftest test-render-framed-text--msg-width-caption-and-padding ()
(should (equal (spacemacs//render-framed-text test-text 32 "Caption" 4)
2015-07-31 01:33:28 +00:00
"╭─Caption──────────────────────╮
Lorem ipsum dolor sit
amet, consectetur
adipiscing elit, sed
do eiusmod tempor
incididunt ut labore
et dolore magna
aliqua.
"
)))
(ert-deftest test-render-framed-text--msg-width-caption-no-padding ()
(should (equal (spacemacs//render-framed-text test-text 32 "Caption")
2015-07-31 01:33:28 +00:00
"╭─Caption──────────────────────╮
Lorem ipsum dolor sit amet,
consectetur adipiscing elit,
sed do eiusmod tempor
incididunt ut labore et
dolore magna aliqua.
"
)))
(ert-deftest test-render-framed-text--msg-width-no-caption-no-padding ()
(should (equal (spacemacs//render-framed-text test-text 32)
2015-07-31 01:33:28 +00:00
"╭──────────────────────────────╮
Lorem ipsum dolor sit amet,
consectetur adipiscing elit,
sed do eiusmod tempor
incididunt ut labore et
dolore magna aliqua.
"
)))
(ert-deftest test-render-framed-text--msg-no-width-no-caption-no-padding ()
(should (equal (spacemacs//render-framed-text test-text)
"╭──────────────────────────────────────────────────────────────────────────────────╮
Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor
incididunt ut labore et dolore magna aliqua.
2015-07-31 01:33:28 +00:00
"
)))
(ert-deftest test-render-framed-text--msg-short-text ()
(should (equal (spacemacs//render-framed-text "Short content.")
"╭──────────────────────────────────────────────────────────────────────────────────╮
Short content.
2015-07-31 01:33:28 +00:00
"
)))
(ert-deftest test-render-framed-text--msg-several-paragraphs ()
(should (equal (spacemacs//render-framed-text
(concat "\n"
test-text "\n\n\n"
test-text "\n\n"
test-text "\n"))
"╭──────────────────────────────────────────────────────────────────────────────────╮
Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor
incididunt ut labore et dolore magna aliqua.
Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor
incididunt ut labore et dolore magna aliqua.
Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor
incididunt ut labore et dolore magna aliqua.
2015-07-31 01:33:28 +00:00
"
)))
(ert-deftest test-render-framed-text--file-caption-and-padding ()
(should (equal (spacemacs//render-framed-text
(concat spacemacs-test-directory "core/data/framed-text.txt")
62 "Caption" 4)
2015-07-31 01:33:28 +00:00
"╭─Caption────────────────────────────────────────────────────╮
Lorem ipsum dolor sit amet, consectetur adipiscing
elit, sed do eiusmod tempor incididunt ut labore et
dolore magna aliqua. Ut enim ad minim veniam, quis
nostrud exercitation ullamco laboris nisi ut aliquip
ex ea commodo consequat. Duis aute irure dolor in
reprehenderit in voluptate velit esse cillum dolore
eu fugiat nulla pariatur. Excepteur sint occaecat
cupidatat non proident, sunt in culpa qui officia
deserunt mollit anim id est laborum.
"
)))