1#!./perl -T 2 3use Test::More; 4BEGIN { 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 10use utf8; 11 12plan tests => 2; 13 14use constant π => 4 * atan2 1, 1; 15 16ok defined π, 'basic scalar constant with funny name'; 17is substr(π, 0, 7), '3.14159', ' in substr()'; 18 19