diff options
| author | Sean Allred <code@seanallred.com> | 2014-10-31 00:42:26 -0400 |
|---|---|---|
| committer | Sean Allred <code@seanallred.com> | 2014-10-31 00:42:26 -0400 |
| commit | 3dbca261e2a0fc392ab0cc2e63c9d0c2d948bcf1 (patch) | |
| tree | d92aac4eae5cadfb8b59273be93349e342c7c7ac | |
| parent | 1838aeb531ab61e2c333c70fbf57d534df54fc47 (diff) | |
Implement proper unit tests
| -rw-r--r-- | .travis.yml | 15 | ||||
| -rw-r--r-- | README.org | 2 | ||||
| -rw-r--r-- | tests.el | 25 |
3 files changed, 27 insertions, 15 deletions
diff --git a/.travis.yml b/.travis.yml new file mode 100644 index 0000000..6b7d7ea --- /dev/null +++ b/.travis.yml @@ -0,0 +1,15 @@ +# Stolen from capitaomorte/yasnippet +language: emacs + +env: + - "EMACS=emacs24" + +install: + - if [ "$EMACS" = "emacs24" ]; then + sudo add-apt-repository -y ppa:cassou/emacs && + sudo apt-get -qq update && + sudo apt-get -qq -f install && + sudo apt-get -qq install emacs24-nox; + fi + +script: emacs -batch -l ert -l tests.el -f ert-run-tests-batch-and-exit @@ -18,8 +18,6 @@ The best way to contribute right now is via discussion. Open an issue describing a feature you'd like (That isn't already listed) or a package you think would come in handy. ** Wishlist -- Proper unit tests :: Nothing too in-depth -- just a start using 'the - right way' would be /very/ nice - Automatic testing system (usable with Travis CI) :: Along with unit-testing, it would be best to have this done in Travis CI so that pull requests can be examined before merge. @@ -1,3 +1,10 @@ +(defun -stack--nuke () + (interactive) + (mapatoms + (lambda (symbol) + (if (string-prefix-p "stack-" (symbol-name symbol)) + (unintern symbol))))) + ;;; Tests (add-to-list 'load-path ".") @@ -5,17 +12,9 @@ (require 'stack-core) (require 'stack-question) -(setq - stack-tmp (stack-question-get-questions 'emacs) - stack-tmp-2 (stack-question-get-questions 'emacs 2)) +(ert-deftest test-question-retrieve () + (should (stack-question-get-questions 'emacs))) -(prog1 nil - (stack-message "%S" stack-tmp) - (stack-message "%S" stack-tmp-2)) - -(defun -stack--nuke () - (interactive) - (mapatoms - (lambda (symbol) - (if (string-prefix-p "stack-" (symbol-name symbol)) - (unintern symbol))))) +(ert-deftest test-bad-request () + (should-error + (stack-core-make-request "questions" '(())))) |