t/global_underscore.t

   1 use strict;
   2 use warnings;
   3 use Test::More;
   4 use lib qw(t/lib);
   5
   6 use_ok('UnderscoreClass');
   7
   8 is(
   9         UnderscoreClass->c1,
  10         'c1',
  11 );
  12
  13 is(
  14         UnderscoreClass->r1,
  15         'r1',
  16 );
  17
  18 is(
  19         ClobberUnderscore::h1(),
  20         'h1',
  21 );
  22
  23 done_testing;