diff options
| author | Daniel Colascione | 2014-04-21 23:45:41 -0700 |
|---|---|---|
| committer | Daniel Colascione | 2014-04-21 23:45:41 -0700 |
| commit | ba9b77fe2049846c50cd09285c7b201412072f0d (patch) | |
| tree | 9c306d9547f5d75745ca5b39122a9dd033a86914 | |
| parent | 66fda7948f7d0b94194d53edcfbf27bec596c019 (diff) | |
| download | emacs-ba9b77fe2049846c50cd09285c7b201412072f0d.tar.gz emacs-ba9b77fe2049846c50cd09285c7b201412072f0d.zip | |
Fix cl-lib-struct-accessors test again.
* test/automated/cl-lib.el (cl-lib-struct-accessors): Fix test to
account for removal of `cl-struct-set-slot-value'. Also, move
the defstruct to top level.
| -rw-r--r-- | test/automated/cl-lib.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/automated/cl-lib.el b/test/automated/cl-lib.el index 89bc3cea392..48a4c5da251 100644 --- a/test/automated/cl-lib.el +++ b/test/automated/cl-lib.el | |||
| @@ -201,8 +201,8 @@ | |||
| 201 | :b :a :a 42) | 201 | :b :a :a 42) |
| 202 | '(42 :a)))) | 202 | '(42 :a)))) |
| 203 | 203 | ||
| 204 | (cl-defstruct mystruct (abc :readonly t) def) | ||
| 204 | (ert-deftest cl-lib-struct-accessors () | 205 | (ert-deftest cl-lib-struct-accessors () |
| 205 | (cl-defstruct mystruct (abc :readonly t) def) | ||
| 206 | (let ((x (make-mystruct :abc 1 :def 2))) | 206 | (let ((x (make-mystruct :abc 1 :def 2))) |
| 207 | (should (eql (cl-struct-slot-value 'mystruct 'abc x) 1)) | 207 | (should (eql (cl-struct-slot-value 'mystruct 'abc x) 1)) |
| 208 | (should (eql (cl-struct-slot-value 'mystruct 'def x) 2)) | 208 | (should (eql (cl-struct-slot-value 'mystruct 'def x) 2)) |