mirror of
https://github.com/correl/melpa.git
synced 2024-12-24 03:00:13 +00:00
add ecukes tests
This commit is contained in:
parent
2bc1dc39ad
commit
b6d30f4376
4 changed files with 85 additions and 0 deletions
8
features/initialization.feature
Normal file
8
features/initialization.feature
Normal file
|
@ -0,0 +1,8 @@
|
|||
Feature: Initialization
|
||||
|
||||
Scenario: read recipes
|
||||
Given read recipes
|
||||
|
||||
Scenario: package-build initialization
|
||||
Given initialization
|
||||
|
22
features/step-definitions/melpa-steps.el
Normal file
22
features/step-definitions/melpa-steps.el
Normal file
|
@ -0,0 +1,22 @@
|
|||
(Given "^initialization$"
|
||||
(lambda ()
|
||||
(package-build-initialize)))
|
||||
|
||||
(Given "^read recipes$"
|
||||
(lambda ()
|
||||
(pb/read-recipes)))
|
||||
|
||||
(Given "^capture messages to \\(.+\\)$"
|
||||
(lambda (varby)
|
||||
(message "****** %s" varby)
|
||||
(collect-messages-to varby)))
|
||||
|
||||
(Given "^package initialization$"
|
||||
(lambda ()
|
||||
(package-initialize)))
|
||||
|
||||
(Then "^\\(.+\\) should be empty"
|
||||
(lambda (var)
|
||||
(message "//////// %s" (eval (intern var)))
|
||||
(let ((varsym (intern var)))
|
||||
(assert (not (eval varsym)) nil "Variable %s is not empty." var))))
|
43
features/support/env.el
Normal file
43
features/support/env.el
Normal file
|
@ -0,0 +1,43 @@
|
|||
;; This is an example of how you could set up this file. This setup
|
||||
;; requires a directory called util in the project root and that the
|
||||
;; util directory contains the testing tools ert and espuds.
|
||||
|
||||
(let* ((features-directory
|
||||
(file-name-directory
|
||||
(directory-file-name (file-name-directory load-file-name))))
|
||||
(project-directory
|
||||
(file-name-directory
|
||||
(directory-file-name features-directory))))
|
||||
(setq melpa-root-path project-directory)
|
||||
(setq melpa-util-path (expand-file-name "util" melpa-root-path)))
|
||||
|
||||
(add-to-list 'load-path melpa-root-path)
|
||||
(add-to-list 'load-path (expand-file-name "espuds" melpa-util-path))
|
||||
|
||||
(require 'package-build)
|
||||
(require 'ert)
|
||||
(require 'espuds)
|
||||
|
||||
|
||||
(Setup
|
||||
;; Before anything has run
|
||||
)
|
||||
|
||||
(Before
|
||||
;; Before each scenario is run
|
||||
(defmacro collect-messages-to (var)
|
||||
(let ((varsym (intern (eval var))))
|
||||
(set varsym '())
|
||||
`(defadvice message (before message (format-string &rest args) activate)
|
||||
(add-to-list ',varsym (ignore-errors (format format-string args))))
|
||||
))
|
||||
)
|
||||
|
||||
(After
|
||||
;; After each scenario is run
|
||||
)
|
||||
|
||||
(Teardown
|
||||
;; After when everything has been run
|
||||
)
|
||||
|
12
run-travis-ci.sh
Executable file
12
run-travis-ci.sh
Executable file
|
@ -0,0 +1,12 @@
|
|||
#!/bin/sh -e
|
||||
|
||||
cd "$(dirname "$0")"
|
||||
|
||||
ECUKES_EMACS=${EMACS:-$(which emacs)}
|
||||
|
||||
echo "*** Emacs version ***"
|
||||
echo "ECUKES_EMACS = $ECUKES_EMACS"
|
||||
"$ECUKES_EMACS" --version
|
||||
echo
|
||||
|
||||
exec ./util/ecukes/ecukes --graphical
|
Loading…
Reference in a new issue