[p5sagit/Sub-Name.git] / t / RT42725_deparse.t

use strict;
use warnings;

use Test::More;
use if $ENV{AUTHOR_TESTING}, 'Test::Warnings';
use Sub::Name;
use B::Deparse;

my $source = eval {
    B::Deparse->new->coderef2text(subname foo => sub{ @_ });
};

ok !$@;

like $source, qr/\@\_/;

done_testing;
Commit	Line	Data
de3e8218	1	use strict;
de3e8218	2	use warnings;
de3e8218	3
4d0e6f3d	4	use Test::More;
4d0e6f3d	5	use if $ENV{AUTHOR_TESTING}, 'Test::Warnings';
de3e8218	6	use Sub::Name;
de3e8218	7	use B::Deparse;
	8
	9	my $source = eval {
a0f015f5	10	B::Deparse->new->coderef2text(subname foo => sub{ @_ });
de3e8218	11	};
	12
	13	ok !$@;
	14
	15	like $source, qr/\@\_/;
4d0e6f3d	16
4d0e6f3d	17	done_testing;