[perl5.git] / cpan / Test-Simple / t / Legacy / ribasushi_threads2.t

use strict;
use warnings;

use Test::CanThread qw/AUTHOR_TESTING/;
use Test::More;

{
    my $todo = sub {
        my $out;
        ok(1);
        42;
    };

    is(
        threads->create($todo)->join,
        42,
        "Correct result after do-er",
    );
}

done_testing;
Commit	Line	Data
518760d9 CG	1	use strict;
	2	use warnings;
	3
2e52a9b8	4	use Test::CanThread qw/AUTHOR_TESTING/;
518760d9 CG	5	use Test::More;
	6
	7	{
	8	my $todo = sub {
	9	my $out;
	10	ok(1);
	11	42;
	12	};
	13
	14	is(
	15	threads->create($todo)->join,
	16	42,
	17	"Correct result after do-er",
	18	);
	19	}
	20
	21	done_testing;