[elpa] externals/ebdb c0910a1 312/350: Add test for multiple databases plus read only

[Eric Abrahamsen]

branch: externals/ebdb
commit c0910a181069f27dd2e4730c934824d500156fb2
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    Add test for multiple databases plus read only
    
    * ebdb-test.el (ebdb-load-record-multiple-databases-error): Editing a
      record should raise an error if one of its databases is read only.
---
 ebdb-test.el | 19 +++++++++++++++++--
 1 file changed, 17 insertions(+), 2 deletions(-)

diff --git a/ebdb-test.el b/ebdb-test.el
index cbedfad..2743302 100644
--- a/ebdb-test.el
+++ b/ebdb-test.el
@@ -115,6 +115,21 @@
          (should (= 1 (length ebdb-record-tracker)))
          (should (equal rec (ebdb-gethash (ebdb-record-uuid rec) 'uuid))))))))
 
+(ert-deftest ebdb-load-record-multiple-databases-error ()
+  "Test that record can't be edited when one of its databases is
+  read-only."
+  (ebdb-test-with-records
+    (ebdb-test-with-database (db1 ebdb-test-database-1)
+      (ebdb-test-with-database (db2 ebdb-test-database-2)
+       (let ((rec (make-instance 'ebdb-record-person)))
+         (ebdb-db-add-record db1 rec)
+         (ebdb-db-add-record db2 rec)
+         (setf (slot-value db1 'read-only) t)
+         (should-error
+          (ebdb-record-insert-field
+           rec (ebdb-parse 'ebdb-field-mail "address@hidden"))
+          :type 'ebdb-readonly-db))))))
+
 ;; Test adding, deleting and changing fields.
 
 (ert-deftest ebdb-add-delete-record-field ()
@@ -435,7 +450,7 @@
   (should (equal (ebdb-vcard-escape "Marry\\n uncle!")
                 "Marry\\n uncle!"))
 
-  (should (equal (ebdb-vcard-escape "Mine 
+  (should (equal (ebdb-vcard-escape "Mine
 uncle")
                 "Mine \\nuncle"))
 
@@ -443,7 +458,7 @@ uncle")
                 "Marry, nuncle!"))
 
   (should (equal (ebdb-vcard-unescape "Marry \\nuncle")
-                "Marry 
+                "Marry
 uncle"))
 
   (should (equal (ebdb-vcard-unescape