lib/strict.t

   1 #!./perl
   2
   3 chdir 't' if -d 't';
   4 @INC = ( '.', '../lib' );
   5
   6 our $local_tests = 6;
   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'/);
  20
  21 eval 'use v5.12; use v5.10; ${"c"}';
  22 is($@, '', 'use v5.10 disables implicit strict refs');
  23
  24 eval 'use strict; use v5.10; ${"c"}';
  25 like($@,
  26     qr/^Can't use string \("c"\) as a SCALAR ref while "strict refs" in use/,
  27     "use v5.10 doesn't disable explicit strict ref");