[perl5.git] / t / lib / feature / implicit

Check implicit loading of features with use VERSION.

__END__
# Standard feature bundle
use feature ":5.10";
say "Hello", "world";
EXPECT
Helloworld
########
# VERSION requirement, dotted notation
use 5.9.5;
say "Hello", "world";
EXPECT
Helloworld
########
# VERSION requirement, v-dotted notation
use v5.9.5;
say "Hello", "world";
EXPECT
Helloworld
########
# VERSION requirement, decimal notation
use 5.009005;
say "Helloworld";
EXPECT
Helloworld
########
# VERSION requirement, doesn't load anything with require
require 5.9.5;
print "<".$INC{"feature.pm"}.">\n";
EXPECT
<>
########
# VERSION requirement in eval {}
eval {
    use 5.9.5;
    say "Hello", "world";
}
EXPECT
Helloworld
########
# VERSION requirement in eval ""
eval q{
    use 5.9.5;
    say "Hello", "world";
}
EXPECT
Helloworld
########
# VERSION requirement in BEGIN
BEGIN {
    use 5.9.5;
    say "Hello", "world";
}
EXPECT
Helloworld
########
# no implicit features with 'no'
eval "no " . ($]+1); print $@;
EXPECT
########
# lower version after higher version
sub evalbytes { print "evalbytes sub\n" }
sub say { print "say sub\n" }
use 5.015;
evalbytes "say 'yes'";
use 5.014;
evalbytes;
use 5;
say "no"
EXPECT
yes
evalbytes sub
say sub
########
# No $[ under 5.15
# SKIP ? not defined DynaLoader::boot_DynaLoader
use v5.14;
no warnings 'deprecated';
$[ = 1;
print qw[a b c][2], "\n";
use v5.15;
print qw[a b c][2], "\n";
EXPECT
b
c
########
# $[ under < 5.10
# SKIP ? not defined DynaLoader::boot_DynaLoader
use feature 'say'; # make sure it is loaded and modifies %^H; we are test-
use v5.8.8;        # ing to make sure it does not disable $[
no warnings 'deprecated';
$[ = 1;
print qw[a b c][2], "\n";
EXPECT
b
########
# $[ under < 5.10 after use v5.15
# SKIP ? not defined DynaLoader::boot_DynaLoader
use v5.15;
use v5.8.8;
no warnings 'deprecated';
$[ = 1;
print qw[a b c][2], "\n";
EXPECT
b
########
# Implicit unicode_string feature
use v5.14;
my $sharp_s = chr utf8::unicode_to_native(0xdf);
print 'ss' =~ /$sharp_s/i ? "ok\n" : "nok\n";
use v5.8.8;
print 'ss' =~ /$sharp_s/i ? "ok\n" : "nok\n";
EXPECT
ok
nok
########
# Implicit unicode_eval feature
use v5.15;
require '../../t/charset_tools.pl';
my $long_s = byte_utf8a_to_utf8n("\xc5\xbf");
print eval "use utf8; q|$long_s|" eq $long_s ? "ok\n" : "nok\n";
use v5.8.8;
print eval "use utf8; q|$long_s|" eq "\x{17f}" ? "ok\n" : "nok\n";
EXPECT
ok
ok
Commit	Line	Data
7dfde25d RGS	1	Check implicit loading of features with use VERSION.
	2
	3	__END__
	4	# Standard feature bundle
	5	use feature ":5.10";
	6	say "Hello", "world";
	7	EXPECT
	8	Helloworld
	9	########
	10	# VERSION requirement, dotted notation
	11	use 5.9.5;
	12	say "Hello", "world";
	13	EXPECT
	14	Helloworld
	15	########
	16	# VERSION requirement, v-dotted notation
	17	use v5.9.5;
	18	say "Hello", "world";
	19	EXPECT
	20	Helloworld
	21	########
	22	# VERSION requirement, decimal notation
	23	use 5.009005;
033d875e	24	say "Helloworld";
7dfde25d RGS	25	EXPECT
	26	Helloworld
	27	########
7dfde25d RGS	28	# VERSION requirement, doesn't load anything with require
	29	require 5.9.5;
	30	print "<".$INC{"feature.pm"}.">\n";
	31	EXPECT
	32	<>
	33	########
	34	# VERSION requirement in eval {}
	35	eval {
	36	use 5.9.5;
	37	say "Hello", "world";
	38	}
	39	EXPECT
	40	Helloworld
	41	########
	42	# VERSION requirement in eval ""
	43	eval q{
	44	use 5.9.5;
	45	say "Hello", "world";
	46	}
	47	EXPECT
	48	Helloworld
	49	########
	50	# VERSION requirement in BEGIN
	51	BEGIN {
	52	use 5.9.5;
	53	say "Hello", "world";
	54	}
	55	EXPECT
	56	Helloworld
e57ed4ec FC	57	########
	58	# no implicit features with 'no'
	59	eval "no " . ($]+1); print $@;
	60	EXPECT
b50b2058 FC	61	########
	62	# lower version after higher version
	63	sub evalbytes { print "evalbytes sub\n" }
	64	sub say { print "say sub\n" }
	65	use 5.015;
	66	evalbytes "say 'yes'";
	67	use 5.014;
	68	evalbytes;
	69	use 5;
	70	say "no"
	71	EXPECT
	72	yes
	73	evalbytes sub
	74	say sub
7d69d4a6 FC	75	########
	76	# No $[ under 5.15
	77	# SKIP ? not defined DynaLoader::boot_DynaLoader
	78	use v5.14;
	79	no warnings 'deprecated';
	80	$[ = 1;
	81	print qw[a b c][2], "\n";
	82	use v5.15;
	83	print qw[a b c][2], "\n";
	84	EXPECT
	85	b
	86	c
	87	########
	88	# $[ under < 5.10
	89	# SKIP ? not defined DynaLoader::boot_DynaLoader
	90	use feature 'say'; # make sure it is loaded and modifies %^H; we are test-
	91	use v5.8.8; # ing to make sure it does not disable $[
	92	no warnings 'deprecated';
	93	$[ = 1;
	94	print qw[a b c][2], "\n";
	95	EXPECT
	96	b
	97	########
	98	# $[ under < 5.10 after use v5.15
	99	# SKIP ? not defined DynaLoader::boot_DynaLoader
	100	use v5.15;
	101	use v5.8.8;
	102	no warnings 'deprecated';
	103	$[ = 1;
	104	print qw[a b c][2], "\n";
	105	EXPECT
	106	b
6389c777 FC	107	########
	108	# Implicit unicode_string feature
	109	use v5.14;
740b32c3 KW	110	my $sharp_s = chr utf8::unicode_to_native(0xdf);
740b32c3 KW	111	print 'ss' =~ /$sharp_s/i ? "ok\n" : "nok\n";
6389c777	112	use v5.8.8;
740b32c3	113	print 'ss' =~ /$sharp_s/i ? "ok\n" : "nok\n";
6389c777 FC	114	EXPECT
	115	ok
	116	nok
915a83fe FC	117	########
	118	# Implicit unicode_eval feature
	119	use v5.15;
b806f728 KW	120	require '../../t/charset_tools.pl';
	121	my $long_s = byte_utf8a_to_utf8n("\xc5\xbf");
	122	print eval "use utf8; q\|$long_s\|" eq $long_s ? "ok\n" : "nok\n";
915a83fe	123	use v5.8.8;
b806f728	124	print eval "use utf8; q\|$long_s\|" eq "\x{17f}" ? "ok\n" : "nok\n";
915a83fe FC	125	EXPECT
	126	ok
	127	ok