diff options
Diffstat (limited to 'emacs/.emacs.d/wpc/cycle.el')
| -rw-r--r-- | emacs/.emacs.d/wpc/cycle.el | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/emacs/.emacs.d/wpc/cycle.el b/emacs/.emacs.d/wpc/cycle.el index df9c49b5dc80..5a3a50006ae9 100644 --- a/emacs/.emacs.d/wpc/cycle.el +++ b/emacs/.emacs.d/wpc/cycle.el @@ -196,23 +196,23 @@ If X is the currently focused value, after it's deleted, current-index will be (when cycle/enable-tests? (let ((xs (cycle/new 1 2 3))) - (prelude/assert (maybe-nil? (cycle/previous-focus xs))) - (prelude/assert (= 1 (cycle/current xs))) - (prelude/assert (= 2 (cycle/next xs))) - (prelude/assert (= 1 (cycle/previous-focus xs))) - (prelude/assert (= 1 (->> xs (cycle/jump 0) cycle/current))) - (prelude/assert (= 2 (->> xs (cycle/jump 1) cycle/current))) - (prelude/assert (= 3 (->> xs (cycle/jump 2) cycle/current))) - (prelude/assert (= 2 (cycle/previous-focus xs))) - (prelude/assert (= 2 (cycle/focus-previous! xs))) - (prelude/assert (equal '(1 4 2 3) (cycle-xs (cycle/append 4 xs)))) - (prelude/assert (equal '(1 2 3) (cycle-xs (cycle/remove 4 xs)))) + (prelude-assert (maybe-nil? (cycle/previous-focus xs))) + (prelude-assert (= 1 (cycle/current xs))) + (prelude-assert (= 2 (cycle/next xs))) + (prelude-assert (= 1 (cycle/previous-focus xs))) + (prelude-assert (= 1 (->> xs (cycle/jump 0) cycle/current))) + (prelude-assert (= 2 (->> xs (cycle/jump 1) cycle/current))) + (prelude-assert (= 3 (->> xs (cycle/jump 2) cycle/current))) + (prelude-assert (= 2 (cycle/previous-focus xs))) + (prelude-assert (= 2 (cycle/focus-previous! xs))) + (prelude-assert (equal '(1 4 2 3) (cycle-xs (cycle/append 4 xs)))) + (prelude-assert (equal '(1 2 3) (cycle-xs (cycle/remove 4 xs)))) (progn (cycle/focus-item 3 xs) (cycle/focus-item 2 xs) (cycle/remove 1 xs) - (prelude/assert (= 2 (cycle/current xs))) - (prelude/assert (= 3 (cycle/previous-focus xs)))))) + (prelude-assert (= 2 (cycle/current xs))) + (prelude-assert (= 3 (cycle/previous-focus xs)))))) (provide 'cycle) ;;; cycle.el ends here |