This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
subroutine redefinitions made with local() shouldn't warn
[perl5.git] / dist / constant / t / utf8.t
1 #!./perl -T
2
3 use Test::More;
4 BEGIN {
5  plan skip_all => "irrelevant on pre-5.8.4" if $] < 5.008004
6 }
7
8 # Tests for constant.pm that require the utf8 pragma
9
10 use utf8;
11
12 plan tests => 2;
13
14 use constant π         => 4 * atan2 1, 1;
15
16 ok defined π,                    'basic scalar constant with funny name';
17 is substr(π, 0, 7), '3.14159',   '    in substr()';
18