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
CommitLineData
d12b49d6
FC
1#!./perl -T
2
3# Tests for constant.pm that require the utf8 pragma
4
5use utf8;
6use Test::More tests => 2;
7
8use constant π => 4 * atan2 1, 1;
9
10ok defined π, 'basic scalar constant with funny name';
11is substr(π, 0, 7), '3.14159', ' in substr()';
12