diff options
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/fns-tests.el | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/test/src/fns-tests.el b/test/src/fns-tests.el index 160d0f106e9..a1b48a643e1 100644 --- a/test/src/fns-tests.el +++ b/test/src/fns-tests.el | |||
| @@ -473,12 +473,12 @@ | |||
| 473 | (should (lax-plist-get d2 1)) | 473 | (should (lax-plist-get d2 1)) |
| 474 | (should-error (lax-plist-get c1 2) :type 'circular-list) | 474 | (should-error (lax-plist-get c1 2) :type 'circular-list) |
| 475 | (should (lax-plist-get c2 2)) | 475 | (should (lax-plist-get c2 2)) |
| 476 | (should-not (lax-plist-get d1 2)) | 476 | (should-error (lax-plist-get d1 2) :type 'wrong-type-argument) |
| 477 | (should (lax-plist-get d2 2)) | 477 | (should (lax-plist-get d2 2)) |
| 478 | (should-error (lax-plist-get c1 3) :type 'circular-list) | 478 | (should-error (lax-plist-get c1 3) :type 'circular-list) |
| 479 | (should-error (lax-plist-get c2 3) :type 'circular-list) | 479 | (should-error (lax-plist-get c2 3) :type 'circular-list) |
| 480 | (should-not (lax-plist-get d1 3)) | 480 | (should-error (lax-plist-get d1 3) :type 'wrong-type-argument) |
| 481 | (should-not (lax-plist-get d2 3)))) | 481 | (should-error (lax-plist-get d2 3) :type 'wrong-type-argument))) |
| 482 | 482 | ||
| 483 | (ert-deftest test-cycle-plist-member () | 483 | (ert-deftest test-cycle-plist-member () |
| 484 | (let ((c1 (cyc1 1)) | 484 | (let ((c1 (cyc1 1)) |
| @@ -509,12 +509,12 @@ | |||
| 509 | (should (plist-put d2 1 1)) | 509 | (should (plist-put d2 1 1)) |
| 510 | (should-error (plist-put c1 2 2) :type 'circular-list) | 510 | (should-error (plist-put c1 2 2) :type 'circular-list) |
| 511 | (should (plist-put c2 2 2)) | 511 | (should (plist-put c2 2 2)) |
| 512 | (should (plist-put d1 2 2)) | 512 | (should-error (plist-put d1 2 2) :type 'wrong-type-argument) |
| 513 | (should (plist-put d2 2 2)) | 513 | (should (plist-put d2 2 2)) |
| 514 | (should-error (plist-put c1 3 3) :type 'circular-list) | 514 | (should-error (plist-put c1 3 3) :type 'circular-list) |
| 515 | (should-error (plist-put c2 3 3) :type 'circular-list) | 515 | (should-error (plist-put c2 3 3) :type 'circular-list) |
| 516 | (should (plist-put d1 3 3)) | 516 | (should-error (plist-put d1 3 3) :type 'wrong-type-argument) |
| 517 | (should (plist-put d2 3 3)))) | 517 | (should-error (plist-put d2 3 3) :type 'wrong-type-argument))) |
| 518 | 518 | ||
| 519 | (ert-deftest test-cycle-lax-plist-put () | 519 | (ert-deftest test-cycle-lax-plist-put () |
| 520 | (let ((c1 (cyc1 1)) | 520 | (let ((c1 (cyc1 1)) |
| @@ -527,12 +527,12 @@ | |||
| 527 | (should (lax-plist-put d2 1 1)) | 527 | (should (lax-plist-put d2 1 1)) |
| 528 | (should-error (lax-plist-put c1 2 2) :type 'circular-list) | 528 | (should-error (lax-plist-put c1 2 2) :type 'circular-list) |
| 529 | (should (lax-plist-put c2 2 2)) | 529 | (should (lax-plist-put c2 2 2)) |
| 530 | (should (lax-plist-put d1 2 2)) | 530 | (should-error (lax-plist-put d1 2 2) :type 'wrong-type-argument) |
| 531 | (should (lax-plist-put d2 2 2)) | 531 | (should (lax-plist-put d2 2 2)) |
| 532 | (should-error (lax-plist-put c1 3 3) :type 'circular-list) | 532 | (should-error (lax-plist-put c1 3 3) :type 'circular-list) |
| 533 | (should-error (lax-plist-put c2 3 3) :type 'circular-list) | 533 | (should-error (lax-plist-put c2 3 3) :type 'circular-list) |
| 534 | (should (lax-plist-put d1 3 3)) | 534 | (should-error (lax-plist-put d1 3 3) :type 'wrong-type-argument) |
| 535 | (should (lax-plist-put d2 3 3)))) | 535 | (should-error (lax-plist-put d2 3 3) :type 'wrong-type-argument))) |
| 536 | 536 | ||
| 537 | (ert-deftest test-cycle-equal () | 537 | (ert-deftest test-cycle-equal () |
| 538 | (should-error (equal (cyc1 1) (cyc1 1))) | 538 | (should-error (equal (cyc1 1) (cyc1 1))) |