jesse at fsck
Nov 25, 2009, 10:04 AM
Post #1 of 1
(212 views)
Permalink
|
|
Re: [PATCH] Add TODO test for [perl #70748]
|
|
Thanks. Applied as 7c76c2a0d87e7bfac7012fb2b38100addc903e9d.
On Tue 24.Nov'09 at 16:28:07 -0500, Jerry D. Hedden wrote:
> Attached adds a TODO test to t/op/threads.t for perl #70748.
> From a611a5d553f7483a25a4879986015ceb4b51f5a0 Mon Sep 17 00:00:00 2001
> From: Jerry D. Hedden <jdhedden [at] cpan>
> Date: Tue, 24 Nov 2009 16:26:08 -0500
> Subject: [PATCH] Add TODO test for perl #70748
>
> ---
> t/op/threads.t | 17 +++++++++++++++++
> 1 files changed, 17 insertions(+), 0 deletions(-)
>
> diff --git a/t/op/threads.t b/t/op/threads.t
> index c8ed34a..48ead65 100644
> --- a/t/op/threads.t
> +++ b/t/op/threads.t
> @@ -191,4 +191,21 @@ undef *a;
> threads->new(sub {})->join;
> pass("undefing a typeglob doesn't cause a crash during cloning");
>
> +
> +TODO: {
> + no strict 'vars'; # Accessing $TODO from test.pl
> + local $TODO = 'perl #70748';
> +
> +# Test we don't get:
> +# panic: del_backref during global destruction.
> +fresh_perl_is(<<'EOI', 'ok', { }, 'No del_backref panic');
> +use threads;
> +sub foo { return (sub { }); }
> +my $bar = threads->create(\&foo)->join();
> +threads->create(sub { })->join();
> +print "ok";
> +EOI
> +
> +} # TODO
> +
> # EOF
> --
> 1.6.1.2
>
|
