[perl5.git] / lib / strict.t

#!./perl

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

our $local_tests = 4;
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'/);
Commit	Line	Data
619d9e9c	1	#!./perl
8ebc5c01	2
a80e93c2 NC	3	chdir 't' if -d 't';
a80e93c2 NC	4	@INC = '../lib';
8ebc5c01	5
619d9e9c NC	6	our $local_tests = 4;
619d9e9c NC	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'/);