Commit | Line | Data |
e4fc8a1e |
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' ); |