]> code.delx.au - gnu-emacs/blobdiff - test/automated/generator-tests.el
Assume GC_MARK_STACK == GC_MAKE_GCPROS_NOOPS
[gnu-emacs] / test / automated / generator-tests.el
index d9c81b59a23c4ad524b93305c130335d7c9b42d1..96a68d1b9c190092923ffa17b094c300fc3aed8e 100644 (file)
@@ -260,20 +260,6 @@ identical output.
       (iter-close iter)
       (should (not cps-test-closed-flag)))))
 
-(ert-deftest cps-test-iter-close-finalizer ()
-  (skip-unless gc-precise)
-  (garbage-collect)
-  (let ((cps-test-closed-flag nil))
-    (let ((iter (funcall
-                 (iter-lambda ()
-                   (unwind-protect (iter-yield 1)
-                     (setf cps-test-closed-flag t))))))
-      (should (equal (iter-next iter) 1))
-      (should (not cps-test-closed-flag))
-      (setf iter nil)
-      (garbage-collect)
-      (should cps-test-closed-flag))))
-
 (ert-deftest cps-test-iter-cleanup-once-only ()
   (let* ((nr-unwound 0)
          (iter