dist/constant/t/utf8.t

   1 #!./perl -T
   2
   3 use Test::More;
   4 BEGIN {
   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
  10 use utf8;
  11
  12 plan tests => 2;
  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