Browse Source

Improve the regression test for 245cbc2

* test/elbank-boobank-test.el: Test account merging when there are new account
  fields.
custom-labels
Nicolas Petton 3 years ago
parent
commit
ad26135ac6
No known key found for this signature in database GPG Key ID: E8BCD7866AFCF978
1 changed files with 3 additions and 3 deletions
  1. +3
    -3
      test/elbank-boobank-test.el

+ 3
- 3
test/elbank-boobank-test.el View File

@ -58,9 +58,9 @@
(expect (cadr merged) :to-be (cadr old))
(expect (cl-caddr merged) :to-be (cadr new))))
(it "should not duplicate accounts when merging"
(let* ((old '(((id . "1") (label "old"))))
(new '(((id . "1") (label "new"))))
(it "should not duplicate accounts when there are new fields"
(let* ((old '(((id . "1") (foo "old"))))
(new '(((id . "1") (foo "old") (bar "new"))))
(merged (elbank--merge-accounts old new)))
(expect (seq-length merged) :to-be 1)
(expect (car merged) :to-be (car old))))


Loading…
Cancel
Save