1#!./perl 2 3chdir 't' if -d 't'; 4@INC = '../lib'; 5 6our $local_tests = 4; 7require "../t/lib/common.pl"; 8 9eval qq(use strict 'garbage'); 10like($@, qr/^Unknown 'strict' tag\(s\) 'garbage'/); 11 12eval qq(no strict 'garbage'); 13like($@, qr/^Unknown 'strict' tag\(s\) 'garbage'/); 14 15eval qq(use strict qw(foo bar)); 16like($@, qr/^Unknown 'strict' tag\(s\) 'foo bar'/); 17 18eval qq(no strict qw(foo bar)); 19like($@, qr/^Unknown 'strict' tag\(s\) 'foo bar'/); 20