view test/bug-53956/bug-53956.tst @ 31197:8d4c87e88d0e

maint: Merge stable to default.
author Markus Mützel <markus.muetzel@gmx.de>
date Tue, 23 Aug 2022 19:45:19 +0200
parents b31a118729ed
children 332a6ccac881
line wrap: on
line source

%!test <*53956>
%! global dtor2_called dtor4_called
%!
%! dtor2_called = dtor4_called = 0;
%! x = bug53956_class_3 ();
%! clear x
%! assert (dtor2_called, 1);
%!
%! dtor2_called = dtor4_called = 0;
%! x = bug53956_class_4 ();
%! clear x
%! assert (dtor2_called, 1);
%! assert (dtor4_called, 1);
%!
%! clear -global dtor2_called dtor4_called;  # cleanup after test