t/taint.t

   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;