22 lines
490 B
EmacsLisp
22 lines
490 B
EmacsLisp
|
;;; two-fer-test.el --- Tests for Two-fer (exercism)
|
||
|
|
|
||
|
|
;;; Commentary:
|
||
|
|
;; Common test data version: 1.2.0 4fc1acb
|
||
|
|
|
||
|
|
;;; Code:
|
||
|
|
|
||
|
|
(load-file "two-fer.el")
|
||
|
|
|
||
|
|
(ert-deftest no-name-given ()
|
||
|
|
(should (equal (two-fer) "One for you, one for me.")))
|
||
|
|
|
||
|
|
(ert-deftest a-name-given ()
|
||
|
|
(should (equal (two-fer "Alice") "One for Alice, one for me.")))
|
||
|
|
|
||
|
|
(ert-deftest another-name-given ()
|
||
|
|
(should (equal (two-fer "Bob") "One for Bob, one for me.")))
|
||
|
|
|
||
|
|
(provide 'two-fer-test)
|
||
|
|
|
||
|
|
;;; two-fer-test.el ends here
|