lib/strict.t

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