You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
27 lines
742 B
EmacsLisp
27 lines
742 B
EmacsLisp
#!/bin/sh
|
|
":"; exec emacs -Q --script "$0" -- "$@"
|
|
|
|
(setq cwd default-directory)
|
|
|
|
(defun stomp-message-buffer (test-file)
|
|
"Create a buffer with a stomp message in it for testing purposes"
|
|
(find-file (format "%s/testdata/%s" cwd test-file)))
|
|
|
|
(defun simple-message-buffer ()
|
|
"Simple buffer to be used for testing"
|
|
(stomp-message-buffer "stomp_message.txt"))
|
|
|
|
(defun carriage-return-message-buffer ()
|
|
"Simple buffer with carriage returns"
|
|
(stomp-message-buffer "stomp_message_cr.txt"))
|
|
|
|
(load (format "%sstomp.el" default-directory) nil t)
|
|
|
|
;; Simple test for basic buffer
|
|
(pp (stomp-read-message (simple-message-buffer)))
|
|
|
|
;; Test for buffer containing carriage returns
|
|
(pp (stomp-read-message (carriage-return-message-buffer)))
|
|
|
|
|