[perl5.git] / dist / constant / t / utf8.t

#!./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()';
Commit	Line	Data
d12b49d6 FC	1	#!./perl -T
d12b49d6 FC	2
7d7d93ad AT	3	use Test::More;
	4	BEGIN {
	5	plan skip_all => "irrelevant on pre-5.8.4" if $] < 5.008004
	6	}
	7
d12b49d6 FC	8	# Tests for constant.pm that require the utf8 pragma
	9
	10	use utf8;
7d7d93ad AT	11
7d7d93ad AT	12	plan tests => 2;
d12b49d6 FC	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