branch: elpa/loopy-dash
commit b1a12170806a6565db34f918a22c4931b0176716
Author: okamsn <[email protected]>
Commit: okamsn <[email protected]>
Remove tests using deprecated `loopy-default-flags`. (#9)
- Remove test `dash-flag-default`.
- Rename test `dash-flag-enable-disable` to
`dash-flag-enable-then-disable`.
- Rewrite the test so that we do not mark it as expected to fail.
- Add test `dash-flag-disable-then-enable`.
Reviewed-on: https://codeberg.org/okamsn/loopy-dash/pulls/9
---
tests/dash-tests.el | 26 ++++++++------------------
1 file changed, 8 insertions(+), 18 deletions(-)
diff --git a/tests/dash-tests.el b/tests/dash-tests.el
index 791bf4f492..2b108179e3 100644
--- a/tests/dash-tests.el
+++ b/tests/dash-tests.el
@@ -7,13 +7,6 @@
(require 'loopy)
(require 'loopy-dash)
-(ert-deftest dash-flag-default ()
- (should (equal '(5 6)
- (let ((loopy-default-flags '(dash)))
- (eval (quote (loopy (list (&plist :a a :b b)
- '((:a 3 :b 4) (:a 5 :b 6)))
- (finally-return a b))))))))
-
(ert-deftest dash-flag-list-destructuring ()
(should (equal '(1 2)
(eval (quote (loopy (flag dash)
@@ -46,19 +39,16 @@
(list [i &rest j] '([1 2 3]))
(collect (list i j))))))))
-(ert-deftest dash-flag-default-disable ()
- :expected-result :failed
- (should (equal '(5 6)
- (let ((loopy-default-flags '(dash)))
- (eval (quote (loopy (flag -dash)
- (list (&plist :a a :b b)
- '((:a 3 :b 4) (:a 5 :b 6)))
- (finally-return a b))))))))
-
-(ert-deftest dash-flag-enable-disable ()
- :expected-result :failed
+(ert-deftest dash-flag-enable-then-disable ()
(should (equal '(5 6)
(eval (quote (loopy (flag dash -dash)
+ (list (&map (:a a) (:b b))
+ '((:a 3 :b 4) (:a 5 :b 6)))
+ (finally-return a b)))))))
+
+(ert-deftest dash-flag-disable-then-enable ()
+ (should (equal '(5 6)
+ (eval (quote (loopy (flag -dash dash)
(list (&plist :a a :b b)
'((:a 3 :b 4) (:a 5 :b 6)))
(finally-return a b)))))))
