diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/ChangeLog | 5 | ||||
| -rw-r--r-- | test/automated/finalizer-tests.el | 3 |
2 files changed, 8 insertions, 0 deletions
diff --git a/test/ChangeLog b/test/ChangeLog index 64ad85198af..3a311e97aa5 100644 --- a/test/ChangeLog +++ b/test/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2015-03-03 Daniel Colascione <dancol@dancol.org> | ||
| 2 | |||
| 3 | * automated/finalizer-tests.el (finalizer-object-type): Test that | ||
| 4 | `type-of' works correctly for finalizers. | ||
| 5 | |||
| 1 | 2015-03-02 Daniel Colascione <dancol@dancol.org> | 6 | 2015-03-02 Daniel Colascione <dancol@dancol.org> |
| 2 | 7 | ||
| 3 | * automated/generator-tests.el: New tests | 8 | * automated/generator-tests.el: New tests |
diff --git a/test/automated/finalizer-tests.el b/test/automated/finalizer-tests.el index 5308f01085b..4746dbea9b7 100644 --- a/test/automated/finalizer-tests.el +++ b/test/automated/finalizer-tests.el | |||
| @@ -76,3 +76,6 @@ | |||
| 76 | (should (equal | 76 | (should (equal |
| 77 | (buffer-substring (point) (point-at-eol)) | 77 | (buffer-substring (point) (point-at-eol)) |
| 78 | "finalizer failed: (error \"ABCDEF\")"))))) | 78 | "finalizer failed: (error \"ABCDEF\")"))))) |
| 79 | |||
| 80 | (ert-deftest finalizer-object-type () | ||
| 81 | (should (equal (type-of (make-finalizer nil)) 'finalizer))) | ||