[perl5.git] / lib / strict.t

#!./perl

chdir 't' if -d 't';
@INC = '../lib';

our $local_tests = 6;
require "../t/lib/common.pl";

eval qq(use strict 'garbage');
like($@, qr/^Unknown 'strict' tag\(s\) 'garbage'/);

eval qq(no strict 'garbage');
like($@, qr/^Unknown 'strict' tag\(s\) 'garbage'/);

eval qq(use strict qw(foo bar));
like($@, qr/^Unknown 'strict' tag\(s\) 'foo bar'/);

eval qq(no strict qw(foo bar));
like($@, qr/^Unknown 'strict' tag\(s\) 'foo bar'/);

eval 'use v5.12; use v5.10; ${"c"}';
is($@, '', 'use v5.10 disables implicit strict refs');

eval 'use strict; use v5.10; ${"c"}';
like($@,
    qr/^Can't use string \("c"\) as a SCALAR ref while "strict refs" in use/,
    "use v5.10 doesn't disable explicit strict ref");
Commit	Line	Data
619d9e9c	1	#!./perl
8ebc5c01	2
a80e93c2 NC	3	chdir 't' if -d 't';
a80e93c2 NC	4	@INC = '../lib';
8ebc5c01	5
ed958fa3	6	our $local_tests = 6;
619d9e9c	7	require "../t/lib/common.pl";
210bfd0c EM	8
210bfd0c EM	9	eval qq(use strict 'garbage');
619d9e9c	10	like($@, qr/^Unknown 'strict' tag\(s\) 'garbage'/);
210bfd0c EM	11
210bfd0c EM	12	eval qq(no strict 'garbage');
619d9e9c	13	like($@, qr/^Unknown 'strict' tag\(s\) 'garbage'/);
210bfd0c EM	14
210bfd0c EM	15	eval qq(use strict qw(foo bar));
619d9e9c	16	like($@, qr/^Unknown 'strict' tag\(s\) 'foo bar'/);
210bfd0c EM	17
210bfd0c EM	18	eval qq(no strict qw(foo bar));
619d9e9c	19	like($@, qr/^Unknown 'strict' tag\(s\) 'foo bar'/);
ed958fa3 JR	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");