TakeV
/
spacemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
spacemacs/tests/core/core-spacemacs-buffer-ftest.el

126 lines
6.9 KiB
EmacsLisp
Raw Permalink Normal View History

New functions to display some text in a frame spacemacs/insert-framed-text-to-buffer spacemacs/insert-framed-text-from-file-to-buffer
2015-04-06 00:59:55 +00:00
;;; core-spacemacs-buffer-ftest.el --- Spacemacs Unit Test File
;;
chore: update copyright headers to 2022 The script used to identify and update the change is added into the GitHub workflows script directory. A workflow action can be created to trigger the script to update the headers on the first of every new year. Possibly a task for a consequent PR.
2022-05-31 16:12:58 +00:00
;; Copyright (c) 2012-2022 Sylvain Benner & Contributors
New functions to display some text in a frame spacemacs/insert-framed-text-to-buffer spacemacs/insert-framed-text-from-file-to-buffer
2015-04-06 00:59:55 +00:00
;;
;; 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)
home buffer: center buffer on fixed width 80 when not responsive
2016-10-29 02:04:42 +00:00
(setq-default fill-column 80
spacemacs-buffer--window-width 75)
New functions to display some text in a frame spacemacs/insert-framed-text-to-buffer spacemacs/insert-framed-text-from-file-to-buffer
2015-04-06 00:59:55 +00:00
;; ---------------------------------------------------------------------------
home buffer: better framed notes display <3 More flexible framed text generation: - adjust frame width to content width - define minimum and maximum width - allow for inserting a caption at the bottom of the frame Unless dotspacemacs-startup-buffer-respinsive is nil: - framed notes are centered - max width is adapted to the window width Also add a note inviting the user to update his packages and dotfile on every new release (fixes #7357).
2016-10-27 16:02:59 +00:00
;; spacemacs-buffer//notes-render-framed-text
New functions to display some text in a frame spacemacs/insert-framed-text-to-buffer spacemacs/insert-framed-text-from-file-to-buffer
2015-04-06 00:59:55 +00:00
;; ---------------------------------------------------------------------------
(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 ()
home buffer: better framed notes display <3 More flexible framed text generation: - adjust frame width to content width - define minimum and maximum width - allow for inserting a caption at the bottom of the frame Unless dotspacemacs-startup-buffer-respinsive is nil: - framed notes are centered - max width is adapted to the window width Also add a note inviting the user to update his packages and dotfile on every new release (fixes #7357).
2016-10-27 16:02:59 +00:00
(should (equal (spacemacs-buffer//notes-render-framed-text test-text "Caption" "Botcaption" 4 32 32)
"╭─ Caption ────────────────────╮
core: fix tests
2015-07-31 01:33:28 +00:00
│ │
home buffer: better framed notes display <3 More flexible framed text generation: - adjust frame width to content width - define minimum and maximum width - allow for inserting a caption at the bottom of the frame Unless dotspacemacs-startup-buffer-respinsive is nil: - framed notes are centered - max width is adapted to the window width Also add a note inviting the user to update his packages and dotfile on every new release (fixes #7357).
2016-10-27 16:02:59 +00:00
│ Lorem ipsum dolor sit │
│ amet, consectetur │
│ adipiscing elit, sed │
│ do eiusmod tempor │
│ incididunt ut labore │
│ et dolore magna │
core: fix tests
2015-07-31 01:33:28 +00:00
│ aliqua. │
│ │
home buffer: better framed notes display <3 More flexible framed text generation: - adjust frame width to content width - define minimum and maximum width - allow for inserting a caption at the bottom of the frame Unless dotspacemacs-startup-buffer-respinsive is nil: - framed notes are centered - max width is adapted to the window width Also add a note inviting the user to update his packages and dotfile on every new release (fixes #7357).
2016-10-27 16:02:59 +00:00
╰─ Botcaption ─────────────────╯
"
core: fix tests
2015-07-31 01:33:28 +00:00
)))
New functions to display some text in a frame spacemacs/insert-framed-text-to-buffer spacemacs/insert-framed-text-from-file-to-buffer
2015-04-06 00:59:55 +00:00
(ert-deftest test-render-framed-text--msg-width-caption-no-padding ()
home buffer: better framed notes display <3 More flexible framed text generation: - adjust frame width to content width - define minimum and maximum width - allow for inserting a caption at the bottom of the frame Unless dotspacemacs-startup-buffer-respinsive is nil: - framed notes are centered - max width is adapted to the window width Also add a note inviting the user to update his packages and dotfile on every new release (fixes #7357).
2016-10-27 16:02:59 +00:00
(should (equal (spacemacs-buffer//notes-render-framed-text test-text "Caption" "Botcaption" nil 32 32)
"╭─ Caption ────────────────────╮
core: fix tests
2015-07-31 01:33:28 +00:00
│ │
home buffer: better framed notes display <3 More flexible framed text generation: - adjust frame width to content width - define minimum and maximum width - allow for inserting a caption at the bottom of the frame Unless dotspacemacs-startup-buffer-respinsive is nil: - framed notes are centered - max width is adapted to the window width Also add a note inviting the user to update his packages and dotfile on every new release (fixes #7357).
2016-10-27 16:02:59 +00:00
│ Lorem ipsum dolor sit amet, │
core: fix tests
2015-07-31 01:33:28 +00:00
│ consectetur adipiscing elit, │
home buffer: better framed notes display <3 More flexible framed text generation: - adjust frame width to content width - define minimum and maximum width - allow for inserting a caption at the bottom of the frame Unless dotspacemacs-startup-buffer-respinsive is nil: - framed notes are centered - max width is adapted to the window width Also add a note inviting the user to update his packages and dotfile on every new release (fixes #7357).
2016-10-27 16:02:59 +00:00
│ sed do eiusmod tempor │
│ incididunt ut labore et │
core: fix tests
2015-07-31 01:33:28 +00:00
│ dolore magna aliqua. │
│ │
home buffer: better framed notes display <3 More flexible framed text generation: - adjust frame width to content width - define minimum and maximum width - allow for inserting a caption at the bottom of the frame Unless dotspacemacs-startup-buffer-respinsive is nil: - framed notes are centered - max width is adapted to the window width Also add a note inviting the user to update his packages and dotfile on every new release (fixes #7357).
2016-10-27 16:02:59 +00:00
╰─ Botcaption ─────────────────╯
"
core: fix tests
2015-07-31 01:33:28 +00:00
)))
New functions to display some text in a frame spacemacs/insert-framed-text-to-buffer spacemacs/insert-framed-text-from-file-to-buffer
2015-04-06 00:59:55 +00:00
(ert-deftest test-render-framed-text--msg-width-no-caption-no-padding ()
home buffer: better framed notes display <3 More flexible framed text generation: - adjust frame width to content width - define minimum and maximum width - allow for inserting a caption at the bottom of the frame Unless dotspacemacs-startup-buffer-respinsive is nil: - framed notes are centered - max width is adapted to the window width Also add a note inviting the user to update his packages and dotfile on every new release (fixes #7357).
2016-10-27 16:02:59 +00:00
(should (equal (spacemacs-buffer//notes-render-framed-text test-text nil nil nil 32 32)
core: fix tests
2015-07-31 01:33:28 +00:00
"╭──────────────────────────────╮
│ │
home buffer: better framed notes display <3 More flexible framed text generation: - adjust frame width to content width - define minimum and maximum width - allow for inserting a caption at the bottom of the frame Unless dotspacemacs-startup-buffer-respinsive is nil: - framed notes are centered - max width is adapted to the window width Also add a note inviting the user to update his packages and dotfile on every new release (fixes #7357).
2016-10-27 16:02:59 +00:00
│ Lorem ipsum dolor sit amet, │
core: fix tests
2015-07-31 01:33:28 +00:00
│ consectetur adipiscing elit, │
home buffer: better framed notes display <3 More flexible framed text generation: - adjust frame width to content width - define minimum and maximum width - allow for inserting a caption at the bottom of the frame Unless dotspacemacs-startup-buffer-respinsive is nil: - framed notes are centered - max width is adapted to the window width Also add a note inviting the user to update his packages and dotfile on every new release (fixes #7357).
2016-10-27 16:02:59 +00:00
│ sed do eiusmod tempor │
│ incididunt ut labore et │
core: fix tests
2015-07-31 01:33:28 +00:00
│ dolore magna aliqua. │
│ │
╰──────────────────────────────╯"
)))
New functions to display some text in a frame spacemacs/insert-framed-text-to-buffer spacemacs/insert-framed-text-from-file-to-buffer
2015-04-06 00:59:55 +00:00
(ert-deftest test-render-framed-text--msg-no-width-no-caption-no-padding ()
home buffer: better framed notes display <3 More flexible framed text generation: - adjust frame width to content width - define minimum and maximum width - allow for inserting a caption at the bottom of the frame Unless dotspacemacs-startup-buffer-respinsive is nil: - framed notes are centered - max width is adapted to the window width Also add a note inviting the user to update his packages and dotfile on every new release (fixes #7357).
2016-10-27 16:02:59 +00:00
(should (equal (spacemacs-buffer//notes-render-framed-text test-text)
"╭─────────────────────────────────────────────────────────────────────────╮
│ │
│ Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod │
│ tempor incididunt ut labore et dolore magna aliqua. │
│ │
╰─────────────────────────────────────────────────────────────────────────╯"
core: fix tests
2015-07-31 01:33:28 +00:00
)))
New functions to display some text in a frame spacemacs/insert-framed-text-to-buffer spacemacs/insert-framed-text-from-file-to-buffer
2015-04-06 00:59:55 +00:00
(ert-deftest test-render-framed-text--msg-short-text ()
home buffer: better framed notes display <3 More flexible framed text generation: - adjust frame width to content width - define minimum and maximum width - allow for inserting a caption at the bottom of the frame Unless dotspacemacs-startup-buffer-respinsive is nil: - framed notes are centered - max width is adapted to the window width Also add a note inviting the user to update his packages and dotfile on every new release (fixes #7357).
2016-10-27 16:02:59 +00:00
(should (equal (spacemacs-buffer//notes-render-framed-text "Short content.")
"╭────────────────╮
│ │
│ Short content. │
│ │
╰────────────────╯"
core: fix tests
2015-07-31 01:33:28 +00:00
)))
New functions to display some text in a frame spacemacs/insert-framed-text-to-buffer spacemacs/insert-framed-text-from-file-to-buffer
2015-04-06 00:59:55 +00:00
(ert-deftest test-render-framed-text--msg-several-paragraphs ()
home buffer: better framed notes display <3 More flexible framed text generation: - adjust frame width to content width - define minimum and maximum width - allow for inserting a caption at the bottom of the frame Unless dotspacemacs-startup-buffer-respinsive is nil: - framed notes are centered - max width is adapted to the window width Also add a note inviting the user to update his packages and dotfile on every new release (fixes #7357).
2016-10-27 16:02:59 +00:00
(should (equal (spacemacs-buffer//notes-render-framed-text
New functions to display some text in a frame spacemacs/insert-framed-text-to-buffer spacemacs/insert-framed-text-from-file-to-buffer
2015-04-06 00:59:55 +00:00
(concat "\n"
test-text "\n\n\n"
test-text "\n\n"
home buffer: better framed notes display <3 More flexible framed text generation: - adjust frame width to content width - define minimum and maximum width - allow for inserting a caption at the bottom of the frame Unless dotspacemacs-startup-buffer-respinsive is nil: - framed notes are centered - max width is adapted to the window width Also add a note inviting the user to update his packages and dotfile on every new release (fixes #7357).
2016-10-27 16:02:59 +00:00
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. │
│ │
│ │
╰─────────────────────────────────────────────────────────────────────────╯"
core: fix tests
2015-07-31 01:33:28 +00:00
)))
New functions to display some text in a frame spacemacs/insert-framed-text-to-buffer spacemacs/insert-framed-text-from-file-to-buffer
2015-04-06 00:59:55 +00:00
(ert-deftest test-render-framed-text--file-caption-and-padding ()
home buffer: better framed notes display <3 More flexible framed text generation: - adjust frame width to content width - define minimum and maximum width - allow for inserting a caption at the bottom of the frame Unless dotspacemacs-startup-buffer-respinsive is nil: - framed notes are centered - max width is adapted to the window width Also add a note inviting the user to update his packages and dotfile on every new release (fixes #7357).
2016-10-27 16:02:59 +00:00
(should (equal (spacemacs-buffer//notes-render-framed-text
Refactor test system Should allow easier testing of layers, not just core
2015-07-31 08:30:42 +00:00
(concat spacemacs-test-directory "core/data/framed-text.txt")
home buffer: better framed notes display <3 More flexible framed text generation: - adjust frame width to content width - define minimum and maximum width - allow for inserting a caption at the bottom of the frame Unless dotspacemacs-startup-buffer-respinsive is nil: - framed notes are centered - max width is adapted to the window width Also add a note inviting the user to update his packages and dotfile on every new release (fixes #7357).
2016-10-27 16:02:59 +00:00
"Caption" "Botcaption" 4 62 62)
"╭─ Caption ──────────────────────────────────────────────────╮
core: fix tests
2015-07-31 01:33:28 +00:00
│ │
home buffer: better framed notes display <3 More flexible framed text generation: - adjust frame width to content width - define minimum and maximum width - allow for inserting a caption at the bottom of the frame Unless dotspacemacs-startup-buffer-respinsive is nil: - framed notes are centered - max width is adapted to the window width Also add a note inviting the user to update his packages and dotfile on every new release (fixes #7357).
2016-10-27 16:02:59 +00:00
│ 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 │
core: fix tests
2015-07-31 01:33:28 +00:00
│ nostrud exercitation ullamco laboris nisi ut aliquip │
home buffer: better framed notes display <3 More flexible framed text generation: - adjust frame width to content width - define minimum and maximum width - allow for inserting a caption at the bottom of the frame Unless dotspacemacs-startup-buffer-respinsive is nil: - framed notes are centered - max width is adapted to the window width Also add a note inviting the user to update his packages and dotfile on every new release (fixes #7357).
2016-10-27 16:02:59 +00:00
│ 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 │
core: fix tests
2015-07-31 01:33:28 +00:00
│ deserunt mollit anim id est laborum. │
│ │
home buffer: better framed notes display <3 More flexible framed text generation: - adjust frame width to content width - define minimum and maximum width - allow for inserting a caption at the bottom of the frame Unless dotspacemacs-startup-buffer-respinsive is nil: - framed notes are centered - max width is adapted to the window width Also add a note inviting the user to update his packages and dotfile on every new release (fixes #7357).
2016-10-27 16:02:59 +00:00
╰─ Botcaption ───────────────────────────────────────────────╯
"
core: fix tests
2015-07-31 01:33:28 +00:00
)))