spacemacs/core/tests/core-spacemacs-buffer-ftest.el
2015-04-13 02:17:48 -04:00

114 lines
7.8 KiB
EmacsLisp

;;; core-spacemacs-buffer-ftest.el --- Spacemacs Unit Test File
;;
;; Copyright (c) 2012-2014 Sylvain Benner
;; Copyright (c) 2014-2015 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)
"╭─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")
"╭─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)
"╭─────────────────────────────────╮
│ │
│ 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. │
│ │
╰──────────────────────────────────────────────────────────────────────────────────╯")))
(ert-deftest test-render-framed-text--msg-short-text ()
(should (equal (spacemacs//render-framed-text "Short content.")
"╭──────────────────────────────────────────────────────────────────────────────────╮
│ │
│ Short content. │
│ │
╰──────────────────────────────────────────────────────────────────────────────────╯")))
(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. │
│ │
│ │
╰──────────────────────────────────────────────────────────────────────────────────╯")))
(ert-deftest test-render-framed-text--file-caption-and-padding ()
(should (equal (spacemacs//render-framed-text
(concat spacemacs-core-directory "tests/data/framed-text.txt")
62 "Caption" 4)
"╭─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. │
│ │
╰──────────────────────────────────────────────────────────────────╯")))