diff options
| author | Daniel Colascione <[email protected]> | 2014-04-21 23:45:41 -0700 |
|---|---|---|
| committer | Daniel Colascione <[email protected]> | 2014-04-21 23:45:41 -0700 |
| commit | ba9b77fe2049846c50cd09285c7b201412072f0d (patch) | |
| tree | 9c306d9547f5d75745ca5b39122a9dd033a86914 /test/automated | |
| parent | 66fda7948f7d0b94194d53edcfbf27bec596c019 (diff) | |
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.
Diffstat (limited to 'test/automated')
| -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 89bc3cea39..48a4c5da25 100644 --- a/test/automated/cl-lib.el +++ b/test/automated/cl-lib.el @@ -201,8 +201,8 @@ :b :a :a 42) '(42 :a)))) +(cl-defstruct mystruct (abc :readonly t) def) (ert-deftest cl-lib-struct-accessors () - (cl-defstruct mystruct (abc :readonly t) def) (let ((x (make-mystruct :abc 1 :def 2))) (should (eql (cl-struct-slot-value 'mystruct 'abc x) 1)) (should (eql (cl-struct-slot-value 'mystruct 'def x) 2)) |