This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make Unicode constants under use utf8 work again
[perl5.git] / dist / constant / t / utf8.t
1 #!./perl -T
2
3 # Tests for constant.pm that require the utf8 pragma
4
5 use utf8;
6 use Test::More tests => 2;
7
8 use constant π         => 4 * atan2 1, 1;
9
10 ok defined π,                    'basic scalar constant with funny name';
11 is substr(π, 0, 7), '3.14159',   '    in substr()';
12