t/lib/sample-tests/taint_warn

   1 #!/usr/bin/perl -tw
   2
   3 use lib qw(t/lib);
   4 use Test::More tests => 1;
   5
   6 my $warnings = '';
   7 {
   8     local $SIG{__WARN__} = sub { $warnings .= join '', @_ };
   9     kill 0, $^X;
  10 }
  11 like( $warnings, '/^Insecure dependency/', '-t honored' );