[perl5.git] / lib / constant.t

#!./perl -T

BEGIN {
    if ($ENV{PERL_CORE}) {
        chdir 't' if -d 't';
        @INC = '../lib';
    }
}

use warnings;
use vars qw{ @warnings $fagwoosh $putt $kloong};
BEGIN {				# ...and save 'em for later
    $SIG{'__WARN__'} = sub { push @warnings, @_ }
}
END { print STDERR @warnings }


use strict;
use Test::More tests => 97;
my $TB = Test::More->builder;

BEGIN { use_ok('constant'); }

use constant PI		=> 4 * atan2 1, 1;

ok defined PI,                          'basic scalar constant';
is substr(PI, 0, 7), '3.14159',         '    in substr()';

sub deg2rad { PI * $_[0] / 180 }

my $ninety = deg2rad 90;

cmp_ok abs($ninety - 1.5707), '<', 0.0001, '    in math expression';

use constant UNDEF1	=> undef;	# the right way
use constant UNDEF2	=>	;	# the weird way
use constant 'UNDEF3'		;	# the 'short' way
use constant EMPTY	=> ( )  ;	# the right way for lists

is UNDEF1, undef,       'right way to declare an undef';
is UNDEF2, undef,       '    weird way';
is UNDEF3, undef,       '    short way';

# XXX Why is this way different than the other ones?
my @undef = UNDEF1;
is @undef, 1;
is $undef[0], undef;

@undef = UNDEF2;
is @undef, 0;
@undef = UNDEF3;
is @undef, 0;
@undef = EMPTY;
is @undef, 0;

use constant COUNTDOWN	=> scalar reverse 1, 2, 3, 4, 5;
use constant COUNTLIST	=> reverse 1, 2, 3, 4, 5;
use constant COUNTLAST	=> (COUNTLIST)[-1];

is COUNTDOWN, '54321';
my @cl = COUNTLIST;
is @cl, 5;
is COUNTDOWN, join '', @cl;
is COUNTLAST, 1;
is((COUNTLIST)[1], 4);

use constant ABC	=> 'ABC';
is "abc${\( ABC )}abc", "abcABCabc";

use constant DEF	=> 'D', 'E', chr ord 'F';
is "d e f @{[ DEF ]} d e f", "d e f D E F d e f";

use constant SINGLE	=> "'";
use constant DOUBLE	=> '"';
use constant BACK	=> '\\';
my $tt = BACK . SINGLE . DOUBLE ;
is $tt, q(\\'");

use constant MESS	=> q('"'\\"'"\\);
is MESS, q('"'\\"'"\\);
is length(MESS), 8;

use constant TRAILING	=> '12 cats';
{
    local $^W;
    cmp_ok TRAILING, '==', 12;
}
is TRAILING, '12 cats';

use constant LEADING	=> " \t1234";
cmp_ok LEADING, '==', 1234;
is LEADING, " \t1234";

use constant ZERO1	=> 0;
use constant ZERO2	=> 0.0;
use constant ZERO3	=> '0.0';
is ZERO1, '0';
is ZERO2, '0';
is ZERO3, '0.0';

{
    package Other;
    use constant PI	=> 3.141;
}

cmp_ok(abs(PI - 3.1416), '<', 0.0001);
is Other::PI, 3.141;

use constant E2BIG => $! = 7;
cmp_ok E2BIG, '==', 7;
# This is something like "Arg list too long", but the actual message
# text may vary, so we can't test much better than this.
cmp_ok length(E2BIG), '>', 6;

is @warnings, 0 or diag join "\n", "unexpected warning", @warnings;
@warnings = ();		# just in case
undef &PI;
ok @warnings && ($warnings[0] =~ /Constant sub.* undefined/) or
  diag join "\n", "unexpected warning", @warnings;
shift @warnings;

is @warnings, 0, "unexpected warning";

my $curr_test = $TB->current_test;
use constant CSCALAR	=> \"ok 37\n";
use constant CHASH	=> { foo => "ok 38\n" };
use constant CARRAY	=> [ undef, "ok 39\n" ];
use constant CCODE	=> sub { "ok $_[0]\n" };

my $output = $TB->output ;
print $output ${+CSCALAR};
print $output CHASH->{foo};
print $output CARRAY->[1];
print $output CCODE->($curr_test+4);

$TB->current_test($curr_test+4);

eval q{ CCODE->{foo} };
ok scalar($@ =~ /^Constant is not a HASH/);


# Allow leading underscore
use constant _PRIVATE => 47;
is _PRIVATE, 47;

# Disallow doubled leading underscore
eval q{
    use constant __DISALLOWED => "Oops";
};
like $@, qr/begins with '__'/;

# Check on declared() and %declared. This sub should be EXACTLY the
# same as the one quoted in the docs!
sub declared ($) {
    use constant 1.01;              # don't omit this!
    my $name = shift;
    $name =~ s/^::/main::/;
    my $pkg = caller;
    my $full_name = $name =~ /::/ ? $name : "${pkg}::$name";
    $constant::declared{$full_name};
}

ok declared 'PI';
ok $constant::declared{'main::PI'};

ok !declared 'PIE';
ok !$constant::declared{'main::PIE'};

{
    package Other;
    use constant IN_OTHER_PACK => 42;
    ::ok ::declared 'IN_OTHER_PACK';
    ::ok $constant::declared{'Other::IN_OTHER_PACK'};
    ::ok ::declared 'main::PI';
    ::ok $constant::declared{'main::PI'};
}

ok declared 'Other::IN_OTHER_PACK';
ok $constant::declared{'Other::IN_OTHER_PACK'};

@warnings = ();
eval q{
    no warnings;
    #local $^W if $] < 5.006;
    use warnings 'constant';
    use constant 'BEGIN' => 1 ;
    use constant 'INIT' => 1 ;
    use constant 'CHECK' => 1 ;
    use constant 'END' => 1 ;
    use constant 'DESTROY' => 1 ;
    use constant 'AUTOLOAD' => 1 ;
    use constant 'STDIN' => 1 ;
    use constant 'STDOUT' => 1 ;
    use constant 'STDERR' => 1 ;
    use constant 'ARGV' => 1 ;
    use constant 'ARGVOUT' => 1 ;
    use constant 'ENV' => 1 ;
    use constant 'INC' => 1 ;
    use constant 'SIG' => 1 ;
    use constant 'UNITCHECK' => 1;
};

my @Expected_Warnings = 
  (
   qr/^Constant name 'BEGIN' is a Perl keyword at/,
   qr/^Constant subroutine BEGIN redefined at/,
   qr/^Constant name 'INIT' is a Perl keyword at/,
   qr/^Constant name 'CHECK' is a Perl keyword at/,
   qr/^Constant name 'END' is a Perl keyword at/,
   qr/^Constant name 'DESTROY' is a Perl keyword at/,
   qr/^Constant name 'AUTOLOAD' is a Perl keyword at/,
   qr/^Constant name 'STDIN' is forced into package main:: a/,
   qr/^Constant name 'STDOUT' is forced into package main:: at/,
   qr/^Constant name 'STDERR' is forced into package main:: at/,
   qr/^Constant name 'ARGV' is forced into package main:: at/,
   qr/^Constant name 'ARGVOUT' is forced into package main:: at/,
   qr/^Constant name 'ENV' is forced into package main:: at/,
   qr/^Constant name 'INC' is forced into package main:: at/,
   qr/^Constant name 'SIG' is forced into package main:: at/,
   qr/^Constant name 'UNITCHECK' is a Perl keyword at/,
);

unless ($] > 5.009) {
    # Remove the UNITCHECK warning
    pop @Expected_Warnings;
    # But keep the count the same
    push @Expected_Warnings, qr/^$/;
    push @warnings, "";
}

# when run under "make test"
if (@warnings == 16) {
    push @warnings, "";
    push @Expected_Warnings, qr/^$/;
}
# when run directly: perl -wT -Ilib t/constant.t
elsif (@warnings == 17) {
    splice @Expected_Warnings, 1, 0, 
        qr/^Prototype mismatch: sub main::BEGIN \(\) vs none at/;
}
# when run directly under 5.6.2: perl -wT -Ilib t/constant.t
elsif (@warnings == 15) {
    splice @Expected_Warnings, 1, 1;
    push @warnings, "", "";
    push @Expected_Warnings, qr/^$/, qr/^$/;
}
else {
    my $rule = " -" x 20;
    diag "/!\\ unexpected case: ", scalar @warnings, " warnings\n$rule\n";
    diag map { "  $_" } @warnings;
    diag $rule, $/;
}

is @warnings, 17;

for my $idx (0..$#warnings) {
    like $warnings[$idx], $Expected_Warnings[$idx];
}

@warnings = ();


use constant {
	THREE  => 3,
	FAMILY => [ qw( John Jane Sally ) ],
	AGES   => { John => 33, Jane => 28, Sally => 3 },
	RFAM   => [ [ qw( John Jane Sally ) ] ],
	SPIT   => sub { shift },
};

is @{+FAMILY}, THREE;
is @{+FAMILY}, @{RFAM->[0]};
is FAMILY->[2], RFAM->[0]->[2];
is AGES->{FAMILY->[1]}, 28;
is THREE**3, SPIT->(@{+FAMILY}**3);

# Allow name of digits/underscores only if it begins with underscore
{
    use warnings FATAL => 'constant';
    eval q{
        use constant _1_2_3 => 'allowed';
    };
    ok( $@ eq '' );
}

sub slotch ();

{
    my @warnings;
    local $SIG{'__WARN__'} = sub { push @warnings, @_ };
    eval 'use constant slotch => 3; 1' or die $@;

    is ("@warnings", "", "No warnings if a prototype exists");

    my $value = eval 'slotch';
    is ($@, '');
    is ($value, 3);
}

sub zit;

{
    my @warnings;
    local $SIG{'__WARN__'} = sub { push @warnings, @_ };
    eval 'use constant zit => 4; 1' or die $@;

    # empty prototypes are reported differently in different versions
    my $no_proto = $] < 5.008004 ? "" : ": none";

    is(scalar @warnings, 1, "1 warning");
    like ($warnings[0], qr/^Prototype mismatch: sub main::zit$no_proto vs \(\)/,
	  "about the prototype mismatch");

    my $value = eval 'zit';
    is ($@, '');
    is ($value, 4);
}

$fagwoosh = 'geronimo';
$putt = 'leutwein';
$kloong = 'schlozhauer';

{
    my @warnings;
    local $SIG{'__WARN__'} = sub { push @warnings, @_ };
    eval 'use constant fagwoosh => 5; 1' or die $@;

    is ("@warnings", "", "No warnings if the typeglob exists already");

    my $value = eval 'fagwoosh';
    is ($@, '');
    is ($value, 5);

    my @value = eval 'fagwoosh';
    is ($@, '');
    is_deeply (\@value, [5]);

    eval 'use constant putt => 6, 7; 1' or die $@;

    is ("@warnings", "", "No warnings if the typeglob exists already");

    @value = eval 'putt';
    is ($@, '');
    is_deeply (\@value, [6, 7]);

    eval 'use constant "klong"; 1' or die $@;

    is ("@warnings", "", "No warnings if the typeglob exists already");

    $value = eval 'klong';
    is ($@, '');
    is ($value, undef);

    @value = eval 'klong';
    is ($@, '');
    is_deeply (\@value, []);
}
Commit	Line	Data
6515510f	1	#!./perl -T
54310121	2
54310121	3	BEGIN {
6515510f AT	4	if ($ENV{PERL_CORE}) {
	5	chdir 't' if -d 't';
	6	@INC = '../lib';
	7	}
54310121	8	}
54310121	9
9f1b1f2d	10	use warnings;
69e7dc3c	11	use vars qw{ @warnings $fagwoosh $putt $kloong};
54310121	12	BEGIN { # ...and save 'em for later
	13	$SIG{'__WARN__'} = sub { push @warnings, @_ }
	14	}
803b07a7	15	END { print STDERR @warnings }
54310121	16
54310121	17
54310121	18	use strict;
6515510f	19	use Test::More tests => 97;
10a0e555 HS	20	my $TB = Test::More->builder;
	21
	22	BEGIN { use_ok('constant'); }
54310121	23
54310121	24	use constant PI => 4 * atan2 1, 1;
54310121	25
10a0e555 HS	26	ok defined PI, 'basic scalar constant';
10a0e555 HS	27	is substr(PI, 0, 7), '3.14159', ' in substr()';
54310121	28
	29	sub deg2rad { PI * $_[0] / 180 }
	30
	31	my $ninety = deg2rad 90;
	32
10a0e555	33	cmp_ok abs($ninety - 1.5707), '<', 0.0001, ' in math expression';
54310121	34
	35	use constant UNDEF1 => undef; # the right way
	36	use constant UNDEF2 => ; # the weird way
	37	use constant 'UNDEF3' ; # the 'short' way
	38	use constant EMPTY => ( ) ; # the right way for lists
	39
10a0e555 HS	40	is UNDEF1, undef, 'right way to declare an undef';
	41	is UNDEF2, undef, ' weird way';
	42	is UNDEF3, undef, ' short way';
	43
	44	# XXX Why is this way different than the other ones?
54310121	45	my @undef = UNDEF1;
10a0e555 HS	46	is @undef, 1;
	47	is $undef[0], undef;
	48
54310121	49	@undef = UNDEF2;
10a0e555	50	is @undef, 0;
54310121	51	@undef = UNDEF3;
10a0e555	52	is @undef, 0;
54310121	53	@undef = EMPTY;
10a0e555	54	is @undef, 0;
54310121	55
	56	use constant COUNTDOWN => scalar reverse 1, 2, 3, 4, 5;
	57	use constant COUNTLIST => reverse 1, 2, 3, 4, 5;
	58	use constant COUNTLAST => (COUNTLIST)[-1];
	59
10a0e555	60	is COUNTDOWN, '54321';
54310121	61	my @cl = COUNTLIST;
10a0e555 HS	62	is @cl, 5;
	63	is COUNTDOWN, join '', @cl;
	64	is COUNTLAST, 1;
	65	is((COUNTLIST)[1], 4);
54310121	66
54310121	67	use constant ABC => 'ABC';
10a0e555	68	is "abc${\( ABC )}abc", "abcABCabc";
54310121	69
9d116dd7	70	use constant DEF => 'D', 'E', chr ord 'F';
10a0e555	71	is "d e f @{[ DEF ]} d e f", "d e f D E F d e f";
54310121	72
	73	use constant SINGLE => "'";
	74	use constant DOUBLE => '"';
	75	use constant BACK => '\\';
	76	my $tt = BACK . SINGLE . DOUBLE ;
10a0e555	77	is $tt, q(\\'");
54310121	78
54310121	79	use constant MESS => q('"'\\"'"\\);
10a0e555 HS	80	is MESS, q('"'\\"'"\\);
10a0e555 HS	81	is length(MESS), 8;
54310121	82
	83	use constant TRAILING => '12 cats';
	84	{
6515510f	85	local $^W;
10a0e555	86	cmp_ok TRAILING, '==', 12;
54310121	87	}
10a0e555	88	is TRAILING, '12 cats';
54310121	89
c1b0f331	90	use constant LEADING => " \t1234";
10a0e555 HS	91	cmp_ok LEADING, '==', 1234;
10a0e555 HS	92	is LEADING, " \t1234";
54310121	93
	94	use constant ZERO1 => 0;
	95	use constant ZERO2 => 0.0;
	96	use constant ZERO3 => '0.0';
10a0e555 HS	97	is ZERO1, '0';
	98	is ZERO2, '0';
	99	is ZERO3, '0.0';
54310121	100
	101	{
	102	package Other;
	103	use constant PI => 3.141;
	104	}
	105
10a0e555 HS	106	cmp_ok(abs(PI - 3.1416), '<', 0.0001);
10a0e555 HS	107	is Other::PI, 3.141;
54310121	108
54310121	109	use constant E2BIG => $! = 7;
10a0e555	110	cmp_ok E2BIG, '==', 7;
54310121	111	# This is something like "Arg list too long", but the actual message
54310121	112	# text may vary, so we can't test much better than this.
10a0e555	113	cmp_ok length(E2BIG), '>', 6;
54310121	114
10a0e555	115	is @warnings, 0 or diag join "\n", "unexpected warning", @warnings;
54310121	116	@warnings = (); # just in case
54310121	117	undef &PI;
10a0e555 HS	118	ok @warnings && ($warnings[0] =~ /Constant sub.* undefined/) or
	119	diag join "\n", "unexpected warning", @warnings;
	120	shift @warnings;
54310121	121
10a0e555	122	is @warnings, 0, "unexpected warning";
779c5bc9	123
10a0e555 HS	124	my $curr_test = $TB->current_test;
	125	use constant CSCALAR => \"ok 37\n";
	126	use constant CHASH => { foo => "ok 38\n" };
	127	use constant CARRAY => [ undef, "ok 39\n" ];
779c5bc9 GS	128	use constant CCODE => sub { "ok $_[0]\n" };
779c5bc9 GS	129
6515510f AT	130	my $output = $TB->output ;
	131	print $output ${+CSCALAR};
	132	print $output CHASH->{foo};
	133	print $output CARRAY->[1];
	134	print $output CCODE->($curr_test+4);
10a0e555 HS	135
	136	$TB->current_test($curr_test+4);
	137
779c5bc9	138	eval q{ CCODE->{foo} };
10a0e555 HS	139	ok scalar($@ =~ /^Constant is not a HASH/);
10a0e555 HS	140
83763826 GS	141
	142	# Allow leading underscore
	143	use constant _PRIVATE => 47;
10a0e555	144	is _PRIVATE, 47;
83763826 GS	145
	146	# Disallow doubled leading underscore
	147	eval q{
	148	use constant __DISALLOWED => "Oops";
	149	};
10a0e555	150	like $@, qr/begins with '__'/;
83763826 GS	151
	152	# Check on declared() and %declared. This sub should be EXACTLY the
	153	# same as the one quoted in the docs!
	154	sub declared ($) {
	155	use constant 1.01; # don't omit this!
	156	my $name = shift;
	157	$name =~ s/^::/main::/;
	158	my $pkg = caller;
	159	my $full_name = $name =~ /::/ ? $name : "${pkg}::$name";
	160	$constant::declared{$full_name};
	161	}
	162
10a0e555 HS	163	ok declared 'PI';
10a0e555 HS	164	ok $constant::declared{'main::PI'};
83763826	165
10a0e555 HS	166	ok !declared 'PIE';
10a0e555 HS	167	ok !$constant::declared{'main::PIE'};
83763826 GS	168
	169	{
	170	package Other;
	171	use constant IN_OTHER_PACK => 42;
10a0e555 HS	172	::ok ::declared 'IN_OTHER_PACK';
	173	::ok $constant::declared{'Other::IN_OTHER_PACK'};
	174	::ok ::declared 'main::PI';
	175	::ok $constant::declared{'main::PI'};
83763826 GS	176	}
83763826 GS	177
10a0e555 HS	178	ok declared 'Other::IN_OTHER_PACK';
10a0e555 HS	179	ok $constant::declared{'Other::IN_OTHER_PACK'};
d3a7d8c7 GS	180
	181	@warnings = ();
	182	eval q{
9f1b1f2d	183	no warnings;
6515510f	184	#local $^W if $] < 5.006;
d3a7d8c7 GS	185	use warnings 'constant';
	186	use constant 'BEGIN' => 1 ;
	187	use constant 'INIT' => 1 ;
	188	use constant 'CHECK' => 1 ;
	189	use constant 'END' => 1 ;
	190	use constant 'DESTROY' => 1 ;
	191	use constant 'AUTOLOAD' => 1 ;
	192	use constant 'STDIN' => 1 ;
	193	use constant 'STDOUT' => 1 ;
	194	use constant 'STDERR' => 1 ;
	195	use constant 'ARGV' => 1 ;
	196	use constant 'ARGVOUT' => 1 ;
	197	use constant 'ENV' => 1 ;
	198	use constant 'INC' => 1 ;
	199	use constant 'SIG' => 1 ;
83b99c4f	200	use constant 'UNITCHECK' => 1;
d3a7d8c7 GS	201	};
d3a7d8c7 GS	202
10a0e555 HS	203	my @Expected_Warnings =
	204	(
	205	qr/^Constant name 'BEGIN' is a Perl keyword at/,
	206	qr/^Constant subroutine BEGIN redefined at/,
	207	qr/^Constant name 'INIT' is a Perl keyword at/,
	208	qr/^Constant name 'CHECK' is a Perl keyword at/,
	209	qr/^Constant name 'END' is a Perl keyword at/,
	210	qr/^Constant name 'DESTROY' is a Perl keyword at/,
	211	qr/^Constant name 'AUTOLOAD' is a Perl keyword at/,
	212	qr/^Constant name 'STDIN' is forced into package main:: a/,
	213	qr/^Constant name 'STDOUT' is forced into package main:: at/,
	214	qr/^Constant name 'STDERR' is forced into package main:: at/,
	215	qr/^Constant name 'ARGV' is forced into package main:: at/,
	216	qr/^Constant name 'ARGVOUT' is forced into package main:: at/,
	217	qr/^Constant name 'ENV' is forced into package main:: at/,
	218	qr/^Constant name 'INC' is forced into package main:: at/,
	219	qr/^Constant name 'SIG' is forced into package main:: at/,
83b99c4f	220	qr/^Constant name 'UNITCHECK' is a Perl keyword at/,
10a0e555	221	);
6515510f	222
83b99c4f NC	223	unless ($] > 5.009) {
	224	# Remove the UNITCHECK warning
	225	pop @Expected_Warnings;
	226	# But keep the count the same
	227	push @Expected_Warnings, qr/^$/;
	228	push @warnings, "";
	229	}
	230
6515510f AT	231	# when run under "make test"
	232	if (@warnings == 16) {
	233	push @warnings, "";
	234	push @Expected_Warnings, qr/^$/;
	235	}
	236	# when run directly: perl -wT -Ilib t/constant.t
	237	elsif (@warnings == 17) {
	238	splice @Expected_Warnings, 1, 0,
	239	qr/^Prototype mismatch: sub main::BEGIN \(\) vs none at/;
	240	}
	241	# when run directly under 5.6.2: perl -wT -Ilib t/constant.t
	242	elsif (@warnings == 15) {
	243	splice @Expected_Warnings, 1, 1;
	244	push @warnings, "", "";
	245	push @Expected_Warnings, qr/^$/, qr/^$/;
	246	}
	247	else {
	248	my $rule = " -" x 20;
	249	diag "/!\\ unexpected case: ", scalar @warnings, " warnings\n$rule\n";
	250	diag map { " $_" } @warnings;
	251	diag $rule, $/;
	252	}
	253
	254	is @warnings, 17;
	255
10a0e555 HS	256	for my $idx (0..$#warnings) {
	257	like $warnings[$idx], $Expected_Warnings[$idx];
	258	}
6515510f	259
d3a7d8c7	260	@warnings = ();
c7206c54 CT	261
	262
	263	use constant {
	264	THREE => 3,
	265	FAMILY => [ qw( John Jane Sally ) ],
	266	AGES => { John => 33, Jane => 28, Sally => 3 },
	267	RFAM => [ [ qw( John Jane Sally ) ] ],
	268	SPIT => sub { shift },
c7206c54 CT	269	};
c7206c54 CT	270
10a0e555 HS	271	is @{+FAMILY}, THREE;
	272	is @{+FAMILY}, @{RFAM->[0]};
	273	is FAMILY->[2], RFAM->[0]->[2];
	274	is AGES->{FAMILY->[1]}, 28;
	275	is THREE3, SPIT->(@{+FAMILY}3);
5b673cda AS	276
	277	# Allow name of digits/underscores only if it begins with underscore
	278	{
	279	use warnings FATAL => 'constant';
	280	eval q{
	281	use constant _1_2_3 => 'allowed';
	282	};
	283	ok( $@ eq '' );
	284	}
69e7dc3c NC	285
	286	sub slotch ();
	287
	288	{
	289	my @warnings;
	290	local $SIG{'__WARN__'} = sub { push @warnings, @_ };
	291	eval 'use constant slotch => 3; 1' or die $@;
	292
	293	is ("@warnings", "", "No warnings if a prototype exists");
	294
	295	my $value = eval 'slotch';
	296	is ($@, '');
	297	is ($value, 3);
	298	}
	299
	300	sub zit;
	301
	302	{
	303	my @warnings;
	304	local $SIG{'__WARN__'} = sub { push @warnings, @_ };
	305	eval 'use constant zit => 4; 1' or die $@;
	306
6515510f	307	# empty prototypes are reported differently in different versions
13e592d2	308	my $no_proto = $] < 5.008004 ? "" : ": none";
6515510f	309
69e7dc3c	310	is(scalar @warnings, 1, "1 warning");
6515510f	311	like ($warnings[0], qr/^Prototype mismatch: sub main::zit$no_proto vs \(\)/,
69e7dc3c NC	312	"about the prototype mismatch");
	313
	314	my $value = eval 'zit';
	315	is ($@, '');
	316	is ($value, 4);
	317	}
	318
	319	$fagwoosh = 'geronimo';
	320	$putt = 'leutwein';
	321	$kloong = 'schlozhauer';
	322
	323	{
	324	my @warnings;
	325	local $SIG{'__WARN__'} = sub { push @warnings, @_ };
	326	eval 'use constant fagwoosh => 5; 1' or die $@;
	327
	328	is ("@warnings", "", "No warnings if the typeglob exists already");
	329
	330	my $value = eval 'fagwoosh';
	331	is ($@, '');
	332	is ($value, 5);
	333
	334	my @value = eval 'fagwoosh';
	335	is ($@, '');
	336	is_deeply (\@value, [5]);
	337
	338	eval 'use constant putt => 6, 7; 1' or die $@;
	339
	340	is ("@warnings", "", "No warnings if the typeglob exists already");
	341
	342	@value = eval 'putt';
	343	is ($@, '');
	344	is_deeply (\@value, [6, 7]);
	345
	346	eval 'use constant "klong"; 1' or die $@;
	347
	348	is ("@warnings", "", "No warnings if the typeglob exists already");
	349
	350	$value = eval 'klong';
	351	is ($@, '');
	352	is ($value, undef);
	353
	354	@value = eval 'klong';
	355	is ($@, '');
	356	is_deeply (\@value, []);
	357	}