[p5sagit/Module-Metadata.git] / t / taint.t

#!/usr/bin/perl -T
use strict;
use warnings;

use 5.008000;   # for ${^TAINT}
use Module::Metadata;
use Test::More;
use Test::Fatal;

ok(${^TAINT}, 'taint flag is set');

# without the fix, we get:
# Insecure dependency in eval while running with -T switch at lib/Module/Metadata.pm line 668, <GEN0> line 15.
is(
    exception { Module::Metadata->new_from_module( "Module::Metadata" )->version },
    undef,
    'no exception',
);

done_testing;
Commit	Line	Data
5ae49e26	1	#!/usr/bin/perl -T
	2	use strict;
	3	use warnings;
	4
	5	use 5.008000; # for ${^TAINT}
	6	use Module::Metadata;
	7	use Test::More;
	8	use Test::Fatal;
	9
	10	ok(${^TAINT}, 'taint flag is set');
	11
	12	# without the fix, we get:
	13	# Insecure dependency in eval while running with -T switch at lib/Module/Metadata.pm line 668, <GEN0> line 15.
	14	is(
	15	exception { Module::Metadata->new_from_module( "Module::Metadata" )->version },
	16	undef,
	17	'no exception',
	18	);
	19
	20	done_testing;