diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/ChangeLog | 9 | ||||
| -rw-r--r-- | test/automated/finalizer-tests.el | 8 | ||||
| -rw-r--r-- | test/automated/generator-tests.el | 2 |
3 files changed, 14 insertions, 5 deletions
diff --git a/test/ChangeLog b/test/ChangeLog index d8d3fc80f06..6ff35afa66b 100644 --- a/test/ChangeLog +++ b/test/ChangeLog | |||
| @@ -1,3 +1,12 @@ | |||
| 1 | 2015-03-03 Daniel Colascione <dancol@dancol.org> | ||
| 2 | |||
| 3 | * automated/finalizer-tests.el (finalizer-basic) | ||
| 4 | (finalizer-circular-reference, finalizer-cross-reference) | ||
| 5 | (finalizer-error): Rename `gc-precise-p' to `gc-precise'. | ||
| 6 | |||
| 7 | * automated/generator-tests.el (cps-test-iter-close-finalizer): | ||
| 8 | Rename `gc-precise-p' to `gc-precise'. | ||
| 9 | |||
| 1 | 2015-03-03 Glenn Morris <rgm@gnu.org> | 10 | 2015-03-03 Glenn Morris <rgm@gnu.org> |
| 2 | 11 | ||
| 3 | * automated/generator-tests.el (cps-while-incf): | 12 | * automated/generator-tests.el (cps-while-incf): |
diff --git a/test/automated/finalizer-tests.el b/test/automated/finalizer-tests.el index 4bf8bb1a318..142152e3fb0 100644 --- a/test/automated/finalizer-tests.el +++ b/test/automated/finalizer-tests.el | |||
| @@ -31,7 +31,7 @@ | |||
| 31 | 31 | ||
| 32 | (ert-deftest finalizer-basic () | 32 | (ert-deftest finalizer-basic () |
| 33 | "Test that finalizers run at all." | 33 | "Test that finalizers run at all." |
| 34 | (skip-unless gc-precise-p) | 34 | (skip-unless gc-precise) |
| 35 | (let* ((finalized nil) | 35 | (let* ((finalized nil) |
| 36 | (finalizer (make-finalizer (lambda () (setf finalized t))))) | 36 | (finalizer (make-finalizer (lambda () (setf finalized t))))) |
| 37 | (garbage-collect) | 37 | (garbage-collect) |
| @@ -42,7 +42,7 @@ | |||
| 42 | 42 | ||
| 43 | (ert-deftest finalizer-circular-reference () | 43 | (ert-deftest finalizer-circular-reference () |
| 44 | "Test references from a callback to a finalizer." | 44 | "Test references from a callback to a finalizer." |
| 45 | (skip-unless gc-precise-p) | 45 | (skip-unless gc-precise) |
| 46 | (let ((finalized nil)) | 46 | (let ((finalized nil)) |
| 47 | (let* ((value nil) | 47 | (let* ((value nil) |
| 48 | (finalizer (make-finalizer (lambda () (setf finalized value))))) | 48 | (finalizer (make-finalizer (lambda () (setf finalized value))))) |
| @@ -53,7 +53,7 @@ | |||
| 53 | 53 | ||
| 54 | (ert-deftest finalizer-cross-reference () | 54 | (ert-deftest finalizer-cross-reference () |
| 55 | "Test that between-finalizer references do not prevent collection." | 55 | "Test that between-finalizer references do not prevent collection." |
| 56 | (skip-unless gc-precise-p) | 56 | (skip-unless gc-precise) |
| 57 | (let ((d nil) (fc 0)) | 57 | (let ((d nil) (fc 0)) |
| 58 | (let* ((f1-data (cons nil nil)) | 58 | (let* ((f1-data (cons nil nil)) |
| 59 | (f2-data (cons nil nil)) | 59 | (f2-data (cons nil nil)) |
| @@ -68,7 +68,7 @@ | |||
| 68 | 68 | ||
| 69 | (ert-deftest finalizer-error () | 69 | (ert-deftest finalizer-error () |
| 70 | "Test that finalizer errors are suppressed" | 70 | "Test that finalizer errors are suppressed" |
| 71 | (skip-unless gc-precise-p) | 71 | (skip-unless gc-precise) |
| 72 | (make-finalizer (lambda () (error "ABCDEF"))) | 72 | (make-finalizer (lambda () (error "ABCDEF"))) |
| 73 | (garbage-collect) | 73 | (garbage-collect) |
| 74 | (with-current-buffer "*Messages*" | 74 | (with-current-buffer "*Messages*" |
diff --git a/test/automated/generator-tests.el b/test/automated/generator-tests.el index 0721009d70b..a8607f9274d 100644 --- a/test/automated/generator-tests.el +++ b/test/automated/generator-tests.el | |||
| @@ -261,7 +261,7 @@ identical output. | |||
| 261 | (should (not cps-test-closed-flag))))) | 261 | (should (not cps-test-closed-flag))))) |
| 262 | 262 | ||
| 263 | (ert-deftest cps-test-iter-close-finalizer () | 263 | (ert-deftest cps-test-iter-close-finalizer () |
| 264 | (skip-unless gc-precise-p) | 264 | (skip-unless gc-precise) |
| 265 | (garbage-collect) | 265 | (garbage-collect) |
| 266 | (let ((cps-test-closed-flag nil)) | 266 | (let ((cps-test-closed-flag nil)) |
| 267 | (let ((iter (funcall | 267 | (let ((iter (funcall |