gnu/usr.bin/perl/dist/constant/t/utf8.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

#!./perl -T

use Test::More;
BEGIN {
 plan skip_all => "irrelevant on pre-5.8.4" if $] < 5.008004
}

# Tests for constant.pm that require the utf8 pragma

use utf8;

plan tests => 2;

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

ok defined π,                    'basic scalar constant with funny name';
is substr(π, 0, 7), '3.14159',   '    in substr()';