This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Convert all File::Glob tests to Test::More.
[perl5.git] / ext / File-Glob / t / taint.t
CommitLineData
72b16652
GS
1#!./perl -T
2
3BEGIN {
4 chdir 't' if -d 't';
1d89eaef 5 @INC = '../lib';
d2a01882
GS
6 require Config; import Config;
7 if ($Config{'extensions'} !~ /\bFile\/Glob\b/i) {
8 print "1..0\n";
9 exit 0;
10 }
72b16652 11}
92361f5e
NC
12
13use Test::More tests => 2;
14
15BEGIN {
16 use_ok('File::Glob');
72b16652 17}
72b16652 18
00c80938 19@a = File::Glob::bsd_glob("*");
72b16652 20eval { $a = join("",@a), kill 0; 1 };
92361f5e 21like($@, qr/Insecure dependency/, 'all filenames should be tainted');